94: ELSE
95: /* set the seq dep ind to the current seq num */
96: act_tab (i).seq_dep_ind := seq_num;
97:
98: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
99: gme_debug.put_line
100: ( g_pkg_name
101: || '.'
102: || l_api_name
95: /* set the seq dep ind to the current seq num */
96: act_tab (i).seq_dep_ind := seq_num;
97:
98: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
99: gme_debug.put_line
100: ( g_pkg_name
101: || '.'
102: || l_api_name
103: || 'found_seq = 0,batchstep_activity_id is'
101: || '.'
102: || l_api_name
103: || 'found_seq = 0,batchstep_activity_id is'
104: || act_tab (i).batchstep_activity_id);
105: gme_debug.put_line ( g_pkg_name
106: || '.'
107: || l_api_name
108: || 'seq. dep. id is'
109: || act_tab (i).seq_dep_ind);
174: at the normal increment method */
175: act_tab (i).seq_dep_ind := lower_seq + 100;
176: END IF;
177:
178: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
179: gme_debug.put_line
180: ( g_pkg_name
181: || '.'
182: || l_api_name
175: act_tab (i).seq_dep_ind := lower_seq + 100;
176: END IF;
177:
178: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
179: gme_debug.put_line
180: ( g_pkg_name
181: || '.'
182: || l_api_name
183: || 'found_seq = 1,batchstep_activity_id is'
181: || '.'
182: || l_api_name
183: || 'found_seq = 1,batchstep_activity_id is'
184: || act_tab (i).batchstep_activity_id);
185: gme_debug.put_line ( g_pkg_name
186: || '.'
187: || l_api_name
188: || 'seq. dep. id is'
189: || act_tab (i).seq_dep_ind);
338: IF (v_sds_type = 1)
339: OR (v_sds_type = 2 AND last_res <> v_batchstep_resource_id) THEN
340: last_res := v_batchstep_resource_id;
341:
342: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
343: gme_debug.put_line ( g_pkg_name
344: || '.'
345: || l_api_name
346: || 'v_sds_type ='
339: OR (v_sds_type = 2 AND last_res <> v_batchstep_resource_id) THEN
340: last_res := v_batchstep_resource_id;
341:
342: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
343: gme_debug.put_line ( g_pkg_name
344: || '.'
345: || l_api_name
346: || 'v_sds_type ='
347: || v_sds_type);
344: || '.'
345: || l_api_name
346: || 'v_sds_type ='
347: || v_sds_type);
348: gme_debug.put_line ( g_pkg_name
349: || '.'
350: || l_api_name
351: || 'seq_dep_id ='
352: || v_seq_dep_id);
349: || '.'
350: || l_api_name
351: || 'seq_dep_id ='
352: || v_seq_dep_id);
353: gme_debug.put_line ( g_pkg_name
354: || '.'
355: || l_api_name
356: || 'batchstep resource id = '
357: || v_batchstep_resource_id);
451: x_return_status := fnd_api.g_ret_sts_success;
452:
453: IF p_batchstep_id IS NOT NULL THEN
454: --clear the dates of only charges associated with the step.
455: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
456: gme_debug.put_line ( g_pkg_name
457: || '.'
458: || l_api_name
459: || 'batch,step ids are'
452:
453: IF p_batchstep_id IS NOT NULL THEN
454: --clear the dates of only charges associated with the step.
455: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
456: gme_debug.put_line ( g_pkg_name
457: || '.'
458: || l_api_name
459: || 'batch,step ids are'
460: || p_batch_id
488:
489: CLOSE cur_get_batchstep_ids;
490:
491: FOR i IN 1 .. l_gme_batchstep_ids_tab.COUNT LOOP
492: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
493: gme_debug.put_line ( g_pkg_name
494: || l_api_name
495: || 'batch,step ids are'
496: || p_batch_id
489: CLOSE cur_get_batchstep_ids;
490:
491: FOR i IN 1 .. l_gme_batchstep_ids_tab.COUNT LOOP
492: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
493: gme_debug.put_line ( g_pkg_name
494: || l_api_name
495: || 'batch,step ids are'
496: || p_batch_id
497: || l_gme_batchstep_ids_tab (i) );
522: EXCEPTION
523: WHEN OTHERS THEN
524: x_return_status := fnd_api.g_ret_sts_unexp_error;
525: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
526: gme_debug.put_line ( g_pkg_name
527: || '.'
528: || l_api_name
529: || ':'
530: || ' OTHERS:'
573: x_return_status := fnd_api.g_ret_sts_success;
574:
575: IF p_batchstep_id IS NOT NULL THEN
576: --clear only charges associated with the step.
577: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
578: gme_debug.put_line ( g_pkg_name
579: || '.'
580: || l_api_name
581: || ' batch step ids are'
574:
575: IF p_batchstep_id IS NOT NULL THEN
576: --clear only charges associated with the step.
577: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
578: gme_debug.put_line ( g_pkg_name
579: || '.'
580: || l_api_name
581: || ' batch step ids are'
582: || p_batchstep_id
610:
611: CLOSE cur_get_batchstep_ids;
612:
613: FOR i IN 1 .. l_gme_batchstep_ids_tab.COUNT LOOP
614: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
615: gme_debug.put_line ( g_pkg_name
616: || '.'
617: || l_api_name
618: || 'batch,step ids are'
611: CLOSE cur_get_batchstep_ids;
612:
613: FOR i IN 1 .. l_gme_batchstep_ids_tab.COUNT LOOP
614: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
615: gme_debug.put_line ( g_pkg_name
616: || '.'
617: || l_api_name
618: || 'batch,step ids are'
619: || p_batch_id
647: x_return_status := fnd_api.g_ret_sts_error;
648: WHEN OTHERS THEN
649: x_return_status := fnd_api.g_ret_sts_unexp_error;
650: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
651: gme_debug.put_line ( g_pkg_name
652: || '.'
653: || l_api_name
654: || ':'
655: || ' OTHERS:'
695:
696: l_api_name CONSTANT VARCHAR2 (30) := 'CALC_ACTIVITY_SEQUENCE_NUMBER';
697: l_activity VARCHAR2 (20);
698: BEGIN
699: IF NVL (g_debug, -1) = gme_debug.g_log_statement THEN
700: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' Entering');
701: END IF;
702:
703: /* Initialise the return status to success*/
696: l_api_name CONSTANT VARCHAR2 (30) := 'CALC_ACTIVITY_SEQUENCE_NUMBER';
697: l_activity VARCHAR2 (20);
698: BEGIN
699: IF NVL (g_debug, -1) = gme_debug.g_log_statement THEN
700: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' Entering');
701: END IF;
702:
703: /* Initialise the return status to success*/
704: x_return_status := fnd_api.g_ret_sts_success;
713: END IF;
714:
715: CLOSE cur_get_seq_dep_ind;
716:
717: IF NVL (g_debug, -1) = gme_debug.g_log_statement THEN
718: gme_debug.put_line ( g_pkg_name
719: || '.'
720: || l_api_name
721: || ' In loop:seq dep ind,activity are'
714:
715: CLOSE cur_get_seq_dep_ind;
716:
717: IF NVL (g_debug, -1) = gme_debug.g_log_statement THEN
718: gme_debug.put_line ( g_pkg_name
719: || '.'
720: || l_api_name
721: || ' In loop:seq dep ind,activity are'
722: || x_act_seq_num);
769: ,x_act_seq_num => l_activity_sequence_number
770: ,x_return_status => l_return_status);
771:
772: IF x_return_status <> fnd_api.g_ret_sts_success THEN
773: IF NVL (g_debug, -1) = gme_debug.g_log_statement THEN
774: gme_debug.put_line
775: ('Error in calculating activity sequence number');
776: END IF;
777:
770: ,x_return_status => l_return_status);
771:
772: IF x_return_status <> fnd_api.g_ret_sts_success THEN
773: IF NVL (g_debug, -1) = gme_debug.g_log_statement THEN
774: gme_debug.put_line
775: ('Error in calculating activity sequence number');
776: END IF;
777:
778: RAISE error_act_seq_num_calc;
786:
787: IF (gme_batch_step_charge_dbl.insert_row
788: (p_batch_step_charges_in => l_batchstep_charges_in
789: ,x_batch_step_charges => l_batchstep_charges_in) ) THEN
790: IF NVL (g_debug, -1) = gme_debug.g_log_statement THEN
791: gme_debug.put_line
792: ('sucessfully inserted into batchstep charges');
793: END IF;
794: ELSE
787: IF (gme_batch_step_charge_dbl.insert_row
788: (p_batch_step_charges_in => l_batchstep_charges_in
789: ,x_batch_step_charges => l_batchstep_charges_in) ) THEN
790: IF NVL (g_debug, -1) = gme_debug.g_log_statement THEN
791: gme_debug.put_line
792: ('sucessfully inserted into batchstep charges');
793: END IF;
794: ELSE
795: RAISE error_charge_insert;
805:
806: IF (gme_batch_step_charge_dbl.insert_row
807: (p_batch_step_charges_in => l_batchstep_charges_in
808: ,x_batch_step_charges => l_batchstep_charges_in) ) THEN
809: IF NVL (g_debug, -1) = gme_debug.g_log_statement THEN
810: gme_debug.put_line ('sucessfully inserted into batchstep charges');
811: END IF;
812: ELSE
813: RAISE error_charge_insert;
806: IF (gme_batch_step_charge_dbl.insert_row
807: (p_batch_step_charges_in => l_batchstep_charges_in
808: ,x_batch_step_charges => l_batchstep_charges_in) ) THEN
809: IF NVL (g_debug, -1) = gme_debug.g_log_statement THEN
810: gme_debug.put_line ('sucessfully inserted into batchstep charges');
811: END IF;
812: ELSE
813: RAISE error_charge_insert;
814: END IF;
817: x_return_status := fnd_api.g_ret_sts_error;
818: WHEN OTHERS THEN
819: x_return_status := fnd_api.g_ret_sts_unexp_error;
820: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
821: gme_debug.put_line ( g_pkg_name
822: || '.'
823: || l_api_name
824: || ':'
825: || ' OTHERS:'