174: l_source_step_id_tbl step_tab;
175: l_calendar_code VARCHAR2 (10);
176: BEGIN
177: IF (NVL (g_debug, 0) IN
178: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
179: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
180: || 'Entering');
181: END IF;
182:
175: l_calendar_code VARCHAR2 (10);
176: BEGIN
177: IF (NVL (g_debug, 0) IN
178: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
179: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
180: || 'Entering');
181: END IF;
182:
183: /* Set the return status to success initially */
204: ,l_batch_header_rec) ) THEN
205: RAISE batch_header_fetch_error;
206: END IF;
207:
208: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
209: gme_debug.put_line ( 'trying to reschedule steps to '
210: || TO_CHAR (p_batch_step_rec.plan_start_date
211: ,'DD-MON-YYYY HH24:MI:SS') );
212: gme_debug.put_line ( 'trying to reschedule steps cmp to '
205: RAISE batch_header_fetch_error;
206: END IF;
207:
208: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
209: gme_debug.put_line ( 'trying to reschedule steps to '
210: || TO_CHAR (p_batch_step_rec.plan_start_date
211: ,'DD-MON-YYYY HH24:MI:SS') );
212: gme_debug.put_line ( 'trying to reschedule steps cmp to '
213: || TO_CHAR (p_batch_step_rec.plan_cmplt_date
208: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
209: gme_debug.put_line ( 'trying to reschedule steps to '
210: || TO_CHAR (p_batch_step_rec.plan_start_date
211: ,'DD-MON-YYYY HH24:MI:SS') );
212: gme_debug.put_line ( 'trying to reschedule steps cmp to '
213: || TO_CHAR (p_batch_step_rec.plan_cmplt_date
214: ,'DD-MON-YYYY HH24:MI:SS') );
215: gme_debug.put_line ( 'Going to check previous step of '
216: || TO_CHAR (x_batch_step_rec.batchstep_no) );
211: ,'DD-MON-YYYY HH24:MI:SS') );
212: gme_debug.put_line ( 'trying to reschedule steps cmp to '
213: || TO_CHAR (p_batch_step_rec.plan_cmplt_date
214: ,'DD-MON-YYYY HH24:MI:SS') );
215: gme_debug.put_line ( 'Going to check previous step of '
216: || TO_CHAR (x_batch_step_rec.batchstep_no) );
217: gme_debug.put_line ( 'p_source_step_id_tbl '
218: || TO_CHAR (p_source_step_id_tbl.COUNT) );
219: END IF;
213: || TO_CHAR (p_batch_step_rec.plan_cmplt_date
214: ,'DD-MON-YYYY HH24:MI:SS') );
215: gme_debug.put_line ( 'Going to check previous step of '
216: || TO_CHAR (x_batch_step_rec.batchstep_no) );
217: gme_debug.put_line ( 'p_source_step_id_tbl '
218: || TO_CHAR (p_source_step_id_tbl.COUNT) );
219: END IF;
220:
221: IF (l_batch_header_rec.batch_type = 0) THEN
224: l_doc_type := 'FPO';
225: END IF;
226:
227: IF l_batch_header_rec.update_inventory_ind = 'Y' THEN
228: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
229: gme_debug.put_line ( 'deleting transactions for '
230: || x_batch_step_rec.batchstep_id);
231: END IF;
232:
225: END IF;
226:
227: IF l_batch_header_rec.update_inventory_ind = 'Y' THEN
228: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
229: gme_debug.put_line ( 'deleting transactions for '
230: || x_batch_step_rec.batchstep_id);
231: END IF;
232:
233: DELETE FROM gme_resource_txns
258: ,p_step_id => p_batch_step_rec.batchstep_id
259: ,p_plan_start_date => p_batch_step_rec.plan_start_date
260: ,p_plan_cmplt_date => p_batch_step_rec.plan_cmplt_date);
261:
262: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
263: gme_debug.put_line ( 'Return status from calc_dates '
264: || l_return_status);
265: END IF;
266:
259: ,p_plan_start_date => p_batch_step_rec.plan_start_date
260: ,p_plan_cmplt_date => p_batch_step_rec.plan_cmplt_date);
261:
262: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
263: gme_debug.put_line ( 'Return status from calc_dates '
264: || l_return_status);
265: END IF;
266:
267: IF l_return_status <> x_return_status THEN
311: WHERE batch_id = p_batch_step_rec.batch_id
312: AND batchstep_id = p_batch_step_rec.batchstep_id;
313: --Bug#4543875
314:
315: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
316: gme_debug.put_line ( g_pkg_name
317: || '.'
318: || l_api_name
319: || ':'
312: AND batchstep_id = p_batch_step_rec.batchstep_id;
313: --Bug#4543875
314:
315: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
316: gme_debug.put_line ( g_pkg_name
317: || '.'
318: || l_api_name
319: || ':'
320: || 'Calling Save_all_data');
327: ,x_batch_step_rec.plan_start_date
328: ,x_batch_step_rec.plan_cmplt_date
329: ,l_return_status);
330:
331: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
332: gme_debug.put_line ( 'Came back from save all data with status '
333: || l_return_status);
334: END IF;
335:
328: ,x_batch_step_rec.plan_cmplt_date
329: ,l_return_status);
330:
331: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
332: gme_debug.put_line ( 'Came back from save all data with status '
333: || l_return_status);
334: END IF;
335:
336: IF l_return_status <> x_return_status THEN
404: ,p_batchstep_id => l_batch_step_rec.batchstep_id
405: ,p_batch_id => l_batch_step_m_rec.batch_id
406: ,p_batch_start_date => l_batch_step_m_rec.plan_start_date);
407:
408: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
409: gme_debug.put_line
410: ( 'MAX date '
411: || TO_CHAR (l_max_date
412: ,'DD-MON-YYYY HH24:MI:SS')
405: ,p_batch_id => l_batch_step_m_rec.batch_id
406: ,p_batch_start_date => l_batch_step_m_rec.plan_start_date);
407:
408: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
409: gme_debug.put_line
410: ( 'MAX date '
411: || TO_CHAR (l_max_date
412: ,'DD-MON-YYYY HH24:MI:SS')
413: || ' plan start '
420: l_batch_step_rec.plan_cmplt_date := NULL;
421: l_source_step_id_tbl (l_source_step_id_tbl.COUNT + 1) :=
422: p_batch_step_rec.batchstep_id;
423:
424: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
425: gme_debug.put_line
426: ( g_pkg_name
427: || '.'
428: || l_api_name
421: l_source_step_id_tbl (l_source_step_id_tbl.COUNT + 1) :=
422: p_batch_step_rec.batchstep_id;
423:
424: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
425: gme_debug.put_line
426: ( g_pkg_name
427: || '.'
428: || l_api_name
429: || ':'
440: ,p_use_workday_cal => p_use_workday_cal
441: ,x_batch_step_rec => x_batch_step_rec
442: ,x_return_status => l_return_status);
443:
444: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
445: gme_debug.put_line
446: ( 'Back from reschedule_succeeding_steps with status '
447: || l_return_status
448: || ' for step ID '
441: ,x_batch_step_rec => x_batch_step_rec
442: ,x_return_status => l_return_status);
443:
444: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
445: gme_debug.put_line
446: ( 'Back from reschedule_succeeding_steps with status '
447: || l_return_status
448: || ' for step ID '
449: || p_batch_step_rec.batchstep_id);
540: l_cal_count := l_contig_period_tbl.COUNT;
541: l_date := l_contig_period_tbl (l_cal_count).end_date;
542: END IF; /* l_dep_step_rec.standard_delay >= 0 */
543:
544: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
545: gme_debug.put_line
546: ( 'Called to get the cmplt date for step prior to '
547: || l_batch_step_m_rec.batchstep_id
548: || ' '
541: l_date := l_contig_period_tbl (l_cal_count).end_date;
542: END IF; /* l_dep_step_rec.standard_delay >= 0 */
543:
544: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
545: gme_debug.put_line
546: ( 'Called to get the cmplt date for step prior to '
547: || l_batch_step_m_rec.batchstep_id
548: || ' '
549: || TO_CHAR (l_batch_step_m_rec.plan_start_date
570:
571: l_source_step_id_tbl (l_source_step_id_tbl.COUNT + 1) :=
572: p_batch_step_rec.batchstep_id;
573:
574: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
575: gme_debug.put_line
576: ( 'Calling reschedule for batchstep_id '
577: || l_batch_step_rec.batchstep_id);
578: END IF;
571: l_source_step_id_tbl (l_source_step_id_tbl.COUNT + 1) :=
572: p_batch_step_rec.batchstep_id;
573:
574: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
575: gme_debug.put_line
576: ( 'Calling reschedule for batchstep_id '
577: || l_batch_step_rec.batchstep_id);
578: END IF;
579:
576: ( 'Calling reschedule for batchstep_id '
577: || l_batch_step_rec.batchstep_id);
578: END IF;
579:
580: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
581: gme_debug.put_line
582: ( g_pkg_name
583: || '.'
584: || l_api_name
577: || l_batch_step_rec.batchstep_id);
578: END IF;
579:
580: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
581: gme_debug.put_line
582: ( g_pkg_name
583: || '.'
584: || l_api_name
585: || ':'
596: ,p_use_workday_cal => p_use_workday_cal
597: ,x_batch_step_rec => x_batch_step_rec
598: ,x_return_status => l_return_status);
599:
600: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
601: gme_debug.put_line
602: ( 'Back from reschedule source steps with status '
603: || l_return_status
604: || ' Steps IDs COUNT '
597: ,x_batch_step_rec => x_batch_step_rec
598: ,x_return_status => l_return_status);
599:
600: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
601: gme_debug.put_line
602: ( 'Back from reschedule source steps with status '
603: || l_return_status
604: || ' Steps IDs COUNT '
605: || l_source_step_id_tbl.COUNT
621: CLOSE cur_get_prec_steps;
622: END IF; /* p_reschedule_preceding = FND_API.G_TRUE */
623: -- END IF; /* l_batch_header_rec.enforce_step_dependency = 1 OR */
624:
625: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
626: gme_debug.put_line ( 'Done with succ as well as prec for '
627: || p_batch_step_rec.batchstep_id);
628: END IF;
629:
622: END IF; /* p_reschedule_preceding = FND_API.G_TRUE */
623: -- END IF; /* l_batch_header_rec.enforce_step_dependency = 1 OR */
624:
625: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
626: gme_debug.put_line ( 'Done with succ as well as prec for '
627: || p_batch_step_rec.batchstep_id);
628: END IF;
629:
630: IF p_source_step_id_tbl.COUNT = 0 THEN
675: /* l_min_start_date < l_batch_header_rec.plan_start_date */
676: END IF; /* l_batch_header_rec.enforce_step_dependency = 1 */
677: END IF; /* l_batch_header_rec.batch_status = 2 */
678:
679: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
680: gme_debug.put_line
681: ( 'New min/max Dates are '
682: || TO_CHAR (l_min_start_date
683: ,'DD-MON-YYYY HH24:MI:SS')
676: END IF; /* l_batch_header_rec.enforce_step_dependency = 1 */
677: END IF; /* l_batch_header_rec.batch_status = 2 */
678:
679: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
680: gme_debug.put_line
681: ( 'New min/max Dates are '
682: || TO_CHAR (l_min_start_date
683: ,'DD-MON-YYYY HH24:MI:SS')
684: || ' and '
750: x_return_status := fnd_api.g_ret_sts_error;
751: RAISE date_exceed_validity_rule;
752: END IF;
753: ELSE
754: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
755: gme_debug.put_line ( g_pkg_name
756: || '.'
757: || l_api_name
758: || ':'
751: RAISE date_exceed_validity_rule;
752: END IF;
753: ELSE
754: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
755: gme_debug.put_line ( g_pkg_name
756: || '.'
757: || l_api_name
758: || ':'
759: || 'Do not Check Validity Rule Dates as this is LCF batch');
825: --Bug#5606089
826: l_material_date := x_batch_step2_rec.plan_cmplt_date;
827: --l_material_date := x_batch_step_rec.plan_cmplt_date;
828: END IF;
829: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
830: gme_debug.put_line
831: ( 'Calling Material Date Change for batchstep_id : '
832: || x_batch_step2_rec.batchstep_id
833: || ' Material_detail_id : '
826: l_material_date := x_batch_step2_rec.plan_cmplt_date;
827: --l_material_date := x_batch_step_rec.plan_cmplt_date;
828: END IF;
829: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
830: gme_debug.put_line
831: ( 'Calling Material Date Change for batchstep_id : '
832: || x_batch_step2_rec.batchstep_id
833: || ' Material_detail_id : '
834: || l_material_detail_id_tbl (i)
839: (i)
840: ,p_material_date => l_material_date
841: ,x_return_status => l_return_status);
842:
843: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
844: gme_debug.put_line
845: ( 'Came back from material_date_change with status for step '
846: || l_return_status);
847: END IF;
840: ,p_material_date => l_material_date
841: ,x_return_status => l_return_status);
842:
843: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
844: gme_debug.put_line
845: ( 'Came back from material_date_change with status for step '
846: || l_return_status);
847: END IF;
848:
857: RAISE fnd_api.g_exc_unexpected_error;
858: END IF;
859:
860: ELSE
861: gme_debug.put_line('3');
862: -- Navin Added as part of Reschedule Batch/Step Build.
863: IF l_line_type_tbl (i) = gme_common_pvt.g_line_type_ing THEN
864: -- Update the material_required_date with the associated plan_start_Date;
865: l_material_date := l_batch_header_rec.plan_start_date;
867: -- Update the material required date with the associated plan cmplt Date;
868: l_material_date := l_batch_header_rec.plan_cmplt_date;
869: END IF;
870:
871: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
872: gme_debug.put_line
873: ( 'Calling Material Date Change for batch_id : '
874: || l_batch_header_rec.batch_id
875: || ' Material_detail_id : '
868: l_material_date := l_batch_header_rec.plan_cmplt_date;
869: END IF;
870:
871: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
872: gme_debug.put_line
873: ( 'Calling Material Date Change for batch_id : '
874: || l_batch_header_rec.batch_id
875: || ' Material_detail_id : '
876: || l_material_detail_id_tbl (i)
882: (i)
883: ,p_material_date => l_material_date
884: ,x_return_status => l_return_status);
885:
886: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
887: gme_debug.put_line
888: ( 'Came back from material_date_change with status '
889: || l_return_status);
890: END IF;
883: ,p_material_date => l_material_date
884: ,x_return_status => l_return_status);
885:
886: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
887: gme_debug.put_line
888: ( 'Came back from material_date_change with status '
889: || l_return_status);
890: END IF;
891: --FPBug#4585491 Begin
938:
939: IF cur_is_charge_associated%FOUND THEN
940: CLOSE cur_is_charge_associated;
941:
942: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
943: gme_debug.put_line ( g_pkg_name
944: || '.'
945: || l_api_name
946: || ':'
939: IF cur_is_charge_associated%FOUND THEN
940: CLOSE cur_is_charge_associated;
941:
942: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
943: gme_debug.put_line ( g_pkg_name
944: || '.'
945: || l_api_name
946: || ':'
947: || 'Calling Clear charge dates for Batch_id:'
954: (p_batch_id => l_batch_header_rec.batch_id
955: ,p_batchstep_id => p_batch_step_rec.batchstep_id
956: ,x_return_status => l_return_status);
957:
958: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
959: gme_debug.put_line
960: ( 'Came back from Clear charge dates with status '
961: || l_return_status);
962: END IF;
955: ,p_batchstep_id => p_batch_step_rec.batchstep_id
956: ,x_return_status => l_return_status);
957:
958: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
959: gme_debug.put_line
960: ( 'Came back from Clear charge dates with status '
961: || l_return_status);
962: END IF;
963:
978: , p_gme_matl_dtl => NULL
979: );
980: */
981: IF (NVL (g_debug, 0) IN
982: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
983: gme_debug.put_line ( g_pkg_name
984: || '.'
985: || l_api_name
986: || ':'
979: );
980: */
981: IF (NVL (g_debug, 0) IN
982: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
983: gme_debug.put_line ( g_pkg_name
984: || '.'
985: || l_api_name
986: || ':'
987: || 'Exiting with '
1014: WHEN step_start_date_low THEN
1015: x_return_status := fnd_api.g_ret_sts_error;
1016: gme_common_pvt.log_message ('GME_ESD_PLAN_DATE');
1017: WHEN error_cont_period THEN
1018: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1019: gme_debug.put_line ('Contiguity period ... _failed');
1020: END IF;
1021:
1022: x_return_status := l_return_status;
1015: x_return_status := fnd_api.g_ret_sts_error;
1016: gme_common_pvt.log_message ('GME_ESD_PLAN_DATE');
1017: WHEN error_cont_period THEN
1018: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1019: gme_debug.put_line ('Contiguity period ... _failed');
1020: END IF;
1021:
1022: x_return_status := l_return_status;
1023: WHEN error_non_contiguious THEN
1020: END IF;
1021:
1022: x_return_status := l_return_status;
1023: WHEN error_non_contiguious THEN
1024: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1025: gme_debug.put_line ('Contiguity period ... not found');
1026: END IF;
1027:
1028: gme_common_pvt.log_message ('GME_NON_CONTIGUOUS_TIME');
1021:
1022: x_return_status := l_return_status;
1023: WHEN error_non_contiguious THEN
1024: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1025: gme_debug.put_line ('Contiguity period ... not found');
1026: END IF;
1027:
1028: gme_common_pvt.log_message ('GME_NON_CONTIGUOUS_TIME');
1029: x_return_status := 'C';
1039: x_return_status := l_return_status;
1040: WHEN clear_chg_dates_error THEN
1041: x_return_status := fnd_api.g_ret_sts_error;
1042: WHEN OTHERS THEN
1043: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1044: gme_debug.put_line (l_api_name || ':OTHERS ' || SQLERRM);
1045: END IF;
1046:
1047: x_return_status := fnd_api.g_ret_sts_unexp_error;
1040: WHEN clear_chg_dates_error THEN
1041: x_return_status := fnd_api.g_ret_sts_error;
1042: WHEN OTHERS THEN
1043: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1044: gme_debug.put_line (l_api_name || ':OTHERS ' || SQLERRM);
1045: END IF;
1046:
1047: x_return_status := fnd_api.g_ret_sts_unexp_error;
1048: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1112: AND batchstep_id = v_batchstep_id
1113: AND material_detail_id = det.material_detail_id);
1114: BEGIN
1115: IF (NVL (g_debug, 0) IN
1116: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1117: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1118: || 'Entering');
1119: END IF;
1120:
1113: AND material_detail_id = det.material_detail_id);
1114: BEGIN
1115: IF (NVL (g_debug, 0) IN
1116: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1117: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1118: || 'Entering');
1119: END IF;
1120:
1121: /* Initialize return status to success */
1146: -- Update the material required date with the associated plan cmplt Date;
1147: l_material_date := p_end_date;
1148: END IF;
1149:
1150: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
1151: gme_debug.put_line
1152: ( 'Calling Material Date Change for batch_id : '
1153: || l_batch_header_rec.batch_id
1154: || ' Material_detail_id : '
1147: l_material_date := p_end_date;
1148: END IF;
1149:
1150: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
1151: gme_debug.put_line
1152: ( 'Calling Material Date Change for batch_id : '
1153: || l_batch_header_rec.batch_id
1154: || ' Material_detail_id : '
1155: || l_material_detail_id_tbl (i) );
1160: (i)
1161: ,p_material_date => l_material_date
1162: ,x_return_status => l_return_status);
1163:
1164: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1165: gme_debug.put_line
1166: ( 'Came back from Material Date Change with status '
1167: || l_return_status);
1168: END IF;
1161: ,p_material_date => l_material_date
1162: ,x_return_status => l_return_status);
1163:
1164: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1165: gme_debug.put_line
1166: ( 'Came back from Material Date Change with status '
1167: || l_return_status);
1168: END IF;
1169: --FPBug#4585491 Begin
1210:
1211: /* Now we have to reschedule the batch associated with the step */
1212: /* lines of release type step release */
1213: /* All means manual, incremental and auto by step... NOT AUTO */
1214: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1215: gme_debug.put_line ('Calling Fetch Step Phantoms.');
1216: END IF;
1217:
1218: gme_phantom_pvt.fetch_step_phantoms
1211: /* Now we have to reschedule the batch associated with the step */
1212: /* lines of release type step release */
1213: /* All means manual, incremental and auto by step... NOT AUTO */
1214: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1215: gme_debug.put_line ('Calling Fetch Step Phantoms.');
1216: END IF;
1217:
1218: gme_phantom_pvt.fetch_step_phantoms
1219: (p_batch_id => p_batch_step_rec.batch_id
1221: ,p_all_release_type_assoc => 1
1222: ,x_phantom_ids => l_phantom_ids
1223: ,x_return_status => l_return_status);
1224:
1225: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1226: gme_debug.put_line
1227: ( 'Came back from Fetch Step Phantoms with status '
1228: || l_return_status);
1229: END IF;
1222: ,x_phantom_ids => l_phantom_ids
1223: ,x_return_status => l_return_status);
1224:
1225: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1226: gme_debug.put_line
1227: ( 'Came back from Fetch Step Phantoms with status '
1228: || l_return_status);
1229: END IF;
1230:
1250: END IF;
1251: END LOOP; /* i IN 1 .. l_phantom_ids.COUNT */
1252:
1253: IF (NVL (g_debug, 0) IN
1254: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1255: gme_debug.put_line ( g_pkg_name
1256: || '.'
1257: || l_api_name
1258: || ':'
1251: END LOOP; /* i IN 1 .. l_phantom_ids.COUNT */
1252:
1253: IF (NVL (g_debug, 0) IN
1254: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1255: gme_debug.put_line ( g_pkg_name
1256: || '.'
1257: || l_api_name
1258: || ':'
1259: || 'Exiting with '
1268: x_return_status := fnd_api.g_ret_sts_unexp_error;
1269: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1270:
1271: IF (NVL (g_debug, 0) > 0) THEN
1272: gme_debug.put_line ( g_pkg_name
1273: || '.'
1274: || l_api_name
1275: || ':'
1276: || ' OTHERS:'