[Home] [Help]
35: BEGIN
36: SAVEPOINT create_batch;
37:
38: IF (g_debug IS NOT NULL) THEN
39: gme_debug.log_initialize ('CreateBatch');
40: END IF;
41:
42: IF g_debug <= gme_debug.g_log_procedure THEN
43: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
38: IF (g_debug IS NOT NULL) THEN
39: gme_debug.log_initialize ('CreateBatch');
40: END IF;
41:
42: IF g_debug <= gme_debug.g_log_procedure THEN
43: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
44: || l_api_name);
45: END IF;
46:
39: gme_debug.log_initialize ('CreateBatch');
40: END IF;
41:
42: IF g_debug <= gme_debug.g_log_procedure THEN
43: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
44: || l_api_name);
45: END IF;
46:
47: IF NOT gme_common_pvt.g_setup_done THEN
91: ,p_encoded => fnd_api.g_false
92: ,x_data => x_message_list);
93:
94: IF (g_debug IS NOT NULL) THEN
95: gme_debug.put_line ( 'Completed '
96: || l_api_name
97: || ' at '
98: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
99: END IF;
97: || ' at '
98: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
99: END IF;
100:
101: IF g_debug <= gme_debug.g_log_procedure THEN
102: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
103: END IF;
104: EXCEPTION
105: WHEN batch_creation_failure THEN
98: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
99: END IF;
100:
101: IF g_debug <= gme_debug.g_log_procedure THEN
102: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
103: END IF;
104: EXCEPTION
105: WHEN batch_creation_failure THEN
106: IF x_return_status NOT IN (gme_common_pvt.g_inv_short_err) THEN
118: ,p_encoded => fnd_api.g_false
119: ,x_data => x_message_list);
120: x_return_status := fnd_api.g_ret_sts_error;
121: WHEN OTHERS THEN
122: IF g_debug <= gme_debug.g_log_unexpected THEN
123: gme_debug.put_line ( 'When others exception in '
124: || g_pkg_name
125: || '.'
126: || l_api_name
119: ,x_data => x_message_list);
120: x_return_status := fnd_api.g_ret_sts_error;
121: WHEN OTHERS THEN
122: IF g_debug <= gme_debug.g_log_unexpected THEN
123: gme_debug.put_line ( 'When others exception in '
124: || g_pkg_name
125: || '.'
126: || l_api_name
127: || ' Error is '
162: /* Set the save point initially */
163: SAVEPOINT create_phantom;
164:
165: IF (g_debug IS NOT NULL) THEN
166: gme_debug.log_initialize ('CreatePhantom');
167: END IF;
168:
169: IF g_debug <= gme_debug.g_log_procedure THEN
170: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
165: IF (g_debug IS NOT NULL) THEN
166: gme_debug.log_initialize ('CreatePhantom');
167: END IF;
168:
169: IF g_debug <= gme_debug.g_log_procedure THEN
170: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
171: || l_api_name);
172: END IF;
173:
166: gme_debug.log_initialize ('CreatePhantom');
167: END IF;
168:
169: IF g_debug <= gme_debug.g_log_procedure THEN
170: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
171: || l_api_name);
172: END IF;
173:
174: IF NOT gme_common_pvt.g_setup_done THEN
205: IF x_return_status <> fnd_api.g_ret_sts_success THEN
206: RAISE phantom_creation_failure;
207: END IF;
208:
209: IF (g_debug <= gme_debug.g_log_procedure) THEN
210: gme_debug.put_line ( 'Completed '
211: || l_api_name
212: || ' at '
213: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
206: RAISE phantom_creation_failure;
207: END IF;
208:
209: IF (g_debug <= gme_debug.g_log_procedure) THEN
210: gme_debug.put_line ( 'Completed '
211: || l_api_name
212: || ' at '
213: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
214: END IF;
219: gme_common_pvt.count_and_get (x_count => x_message_count
220: ,p_encoded => fnd_api.g_false
221: ,x_data => x_message_list);
222: WHEN OTHERS THEN
223: IF g_debug <= gme_debug.g_log_unexpected THEN
224: gme_debug.put_line ( 'When others exception in '
225: || g_pkg_name
226: || '.'
227: || l_api_name
220: ,p_encoded => fnd_api.g_false
221: ,x_data => x_message_list);
222: WHEN OTHERS THEN
223: IF g_debug <= gme_debug.g_log_unexpected THEN
224: gme_debug.put_line ( 'When others exception in '
225: || g_pkg_name
226: || '.'
227: || l_api_name
228: || ' Error is '
263: /* Set the savepoint before proceeding */
264: SAVEPOINT scale_batch;
265:
266: IF (g_debug IS NOT NULL) THEN
267: gme_debug.log_initialize ('ScaleBatch');
268: END IF;
269:
270: IF g_debug <= gme_debug.g_log_procedure THEN
271: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
266: IF (g_debug IS NOT NULL) THEN
267: gme_debug.log_initialize ('ScaleBatch');
268: END IF;
269:
270: IF g_debug <= gme_debug.g_log_procedure THEN
271: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
272: || l_api_name);
273: END IF;
274:
267: gme_debug.log_initialize ('ScaleBatch');
268: END IF;
269:
270: IF g_debug <= gme_debug.g_log_procedure THEN
271: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
272: || l_api_name);
273: END IF;
274:
275: /* Setup the common constants used accross the apis */
309: IF x_return_status NOT IN (fnd_api.g_ret_sts_success, 'C', 'W') THEN
310: RAISE scale_batch_failed;
311: END IF;
312: gme_common_pvt.log_message ('GME_SCALE_SUCCESS');
313: IF (g_debug <= gme_debug.g_log_procedure) THEN
314: gme_debug.put_line ( 'Completed '
315: || l_api_name
316: || ' at '
317: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
310: RAISE scale_batch_failed;
311: END IF;
312: gme_common_pvt.log_message ('GME_SCALE_SUCCESS');
313: IF (g_debug <= gme_debug.g_log_procedure) THEN
314: gme_debug.put_line ( 'Completed '
315: || l_api_name
316: || ' at '
317: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
318: END IF;
365: /* Set the savepoint before proceeding */
366: SAVEPOINT theoretical_yield_batch;
367:
368: IF (g_debug IS NOT NULL) THEN
369: gme_debug.log_initialize ('TheoreticalYieldBatch');
370: END IF;
371:
372: IF g_debug <= gme_debug.g_log_procedure THEN
373: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
368: IF (g_debug IS NOT NULL) THEN
369: gme_debug.log_initialize ('TheoreticalYieldBatch');
370: END IF;
371:
372: IF g_debug <= gme_debug.g_log_procedure THEN
373: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
374: || l_api_name);
375: END IF;
376:
369: gme_debug.log_initialize ('TheoreticalYieldBatch');
370: END IF;
371:
372: IF g_debug <= gme_debug.g_log_procedure THEN
373: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
374: || l_api_name);
375: END IF;
376:
377: /* Setup the common constants used accross the apis */
404: gme_common_pvt.count_and_get (x_count => x_message_count
405: ,p_encoded => fnd_api.g_false
406: ,x_data => x_message_list);
407:
408: IF (g_debug <= gme_debug.g_log_procedure) THEN
409: gme_debug.put_line ( 'Completed '
410: || l_api_name
411: || ' at '
412: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
405: ,p_encoded => fnd_api.g_false
406: ,x_data => x_message_list);
407:
408: IF (g_debug <= gme_debug.g_log_procedure) THEN
409: gme_debug.put_line ( 'Completed '
410: || l_api_name
411: || ' at '
412: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
413: END IF;
464:
465: SAVEPOINT insert_material_line1;
466:
467: IF (g_debug IS NOT NULL) THEN
468: gme_debug.log_initialize ('InsertMaterialLineForm');
469: END IF;
470:
471: IF g_debug <= gme_debug.g_log_procedure THEN
472: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
467: IF (g_debug IS NOT NULL) THEN
468: gme_debug.log_initialize ('InsertMaterialLineForm');
469: END IF;
470:
471: IF g_debug <= gme_debug.g_log_procedure THEN
472: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
473: || l_api_name);
474: END IF;
475:
468: gme_debug.log_initialize ('InsertMaterialLineForm');
469: END IF;
470:
471: IF g_debug <= gme_debug.g_log_procedure THEN
472: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
473: || l_api_name);
474: END IF;
475:
476: IF NOT gme_common_pvt.g_setup_done THEN
552: ,p_encoded => fnd_api.g_false
553: ,x_data => x_message_list);
554:
555: IF (g_debug IS NOT NULL) THEN
556: gme_debug.put_line ( 'Completed '
557: || l_api_name
558: || ' at '
559: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
560: END IF;
565: WHEN gmf_cost_failure THEN
566: -- Bug 5903208
567: -- Bug 13070352 - Return g_gmf_vib_err instead of ERROR.
568: x_return_status := gme_common_pvt.g_gmf_vib_err ;
569: gme_debug.put_line ( g_pkg_name
570: || '.'
571: || l_api_name
572: || ':'
573: || 'gmf_cost_failure in insert'
572: || ':'
573: || 'gmf_cost_failure in insert'
574: || SQLERRM);
575:
576: gme_debug.put_line('gme_common_pvt.g_gmf_vib_err is:' || gme_common_pvt.g_gmf_vib_err);
577:
578: WHEN ins_mtl_line_failure THEN
579: IF x_return_status NOT IN (gme_common_pvt.g_inv_short_err) THEN
580: ROLLBACK TO SAVEPOINT insert_material_line1;
594: WHEN OTHERS THEN
595: ROLLBACK TO SAVEPOINT insert_material_line1;
596: x_material_detail_rec := NULL;
597:
598: IF (g_debug <= gme_debug.g_log_unexpected) THEN
599: gme_debug.put_line ( g_pkg_name
600: || '.'
601: || l_api_name
602: || ':'
595: ROLLBACK TO SAVEPOINT insert_material_line1;
596: x_material_detail_rec := NULL;
597:
598: IF (g_debug <= gme_debug.g_log_unexpected) THEN
599: gme_debug.put_line ( g_pkg_name
600: || '.'
601: || l_api_name
602: || ':'
603: || 'When others exception:'
635:
636: SAVEPOINT insert_material_line;
637:
638: IF (g_debug IS NOT NULL) THEN
639: gme_debug.log_initialize ('InsertMaterialLine');
640: END IF;
641:
642: IF g_debug <= gme_debug.g_log_procedure THEN
643: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
638: IF (g_debug IS NOT NULL) THEN
639: gme_debug.log_initialize ('InsertMaterialLine');
640: END IF;
641:
642: IF g_debug <= gme_debug.g_log_procedure THEN
643: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
644: || l_api_name);
645: END IF;
646:
639: gme_debug.log_initialize ('InsertMaterialLine');
640: END IF;
641:
642: IF g_debug <= gme_debug.g_log_procedure THEN
643: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
644: || l_api_name);
645: END IF;
646:
647: IF NOT gme_common_pvt.g_setup_done THEN
682: ,p_encoded => fnd_api.g_false
683: ,x_data => x_message_list);
684:
685: IF (g_debug IS NOT NULL) THEN
686: gme_debug.put_line ( 'Completed '
687: || l_api_name
688: || ' at '
689: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
690: END IF;
711: WHEN OTHERS THEN
712: ROLLBACK TO SAVEPOINT insert_material_line;
713: x_material_detail_rec := NULL;
714:
715: IF (g_debug <= gme_debug.g_log_unexpected) THEN
716: gme_debug.put_line ( g_pkg_name
717: || '.'
718: || l_api_name
719: || ':'
712: ROLLBACK TO SAVEPOINT insert_material_line;
713: x_material_detail_rec := NULL;
714:
715: IF (g_debug <= gme_debug.g_log_unexpected) THEN
716: gme_debug.put_line ( g_pkg_name
717: || '.'
718: || l_api_name
719: || ':'
720: || 'When others exception:'
763:
764: SAVEPOINT update_material_line1;
765:
766: IF (g_debug IS NOT NULL) THEN
767: gme_debug.log_initialize ('UpdateMaterialLineForm');
768: END IF;
769:
770: IF g_debug <= gme_debug.g_log_procedure THEN
771: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
766: IF (g_debug IS NOT NULL) THEN
767: gme_debug.log_initialize ('UpdateMaterialLineForm');
768: END IF;
769:
770: IF g_debug <= gme_debug.g_log_procedure THEN
771: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
772: || l_api_name);
773: END IF;
774:
767: gme_debug.log_initialize ('UpdateMaterialLineForm');
768: END IF;
769:
770: IF g_debug <= gme_debug.g_log_procedure THEN
771: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
772: || l_api_name);
773: END IF;
774:
775: IF NOT gme_common_pvt.g_setup_done THEN
861: ,p_encoded => fnd_api.g_false
862: ,x_data => x_message_list);
863:
864: IF (g_debug IS NOT NULL) THEN
865: gme_debug.put_line ( 'Completed '
866: || l_api_name
867: || ' at '
868: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
869: END IF;
873: EXCEPTION
874:
875: -- Bug 13070352 - Added exception.
876: WHEN gmf_cost_failure THEN
877: gme_debug.put_line ( g_pkg_name
878: || '.'
879: || l_api_name
880: || ':'
881: || 'gmf_cost_failure update'
879: || l_api_name
880: || ':'
881: || 'gmf_cost_failure update'
882: || SQLERRM);
883: gme_debug.put_line('gme_common_pvt.g_gmf_vib_err is:' || gme_common_pvt.g_gmf_vib_err);
884:
885: x_return_status := gme_common_pvt.g_gmf_vib_err;
886:
887:
907: WHEN OTHERS THEN
908: ROLLBACK TO SAVEPOINT update_material_line1;
909: x_material_detail_rec := NULL;
910:
911: IF (g_debug <= gme_debug.g_log_unexpected) THEN
912: gme_debug.put_line ( g_pkg_name
913: || '.'
914: || l_api_name
915: || ':'
908: ROLLBACK TO SAVEPOINT update_material_line1;
909: x_material_detail_rec := NULL;
910:
911: IF (g_debug <= gme_debug.g_log_unexpected) THEN
912: gme_debug.put_line ( g_pkg_name
913: || '.'
914: || l_api_name
915: || ':'
916: || 'When others exception:'
948: BEGIN
949: SAVEPOINT update_material_line;
950:
951: IF (g_debug IS NOT NULL) THEN
952: gme_debug.log_initialize ('UpdateMaterialLine');
953: END IF;
954:
955: IF g_debug <= gme_debug.g_log_procedure THEN
956: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
951: IF (g_debug IS NOT NULL) THEN
952: gme_debug.log_initialize ('UpdateMaterialLine');
953: END IF;
954:
955: IF g_debug <= gme_debug.g_log_procedure THEN
956: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
957: || l_api_name);
958: END IF;
959:
952: gme_debug.log_initialize ('UpdateMaterialLine');
953: END IF;
954:
955: IF g_debug <= gme_debug.g_log_procedure THEN
956: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
957: || l_api_name);
958: END IF;
959:
960: IF NOT gme_common_pvt.g_setup_done THEN
999: ,p_encoded => fnd_api.g_false
1000: ,x_data => x_message_list);
1001:
1002: IF (g_debug IS NOT NULL) THEN
1003: gme_debug.put_line ( 'Completed '
1004: || l_api_name
1005: || ' at '
1006: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1007: END IF;
1028: WHEN OTHERS THEN
1029: ROLLBACK TO SAVEPOINT update_material_line;
1030: x_material_detail_rec := NULL;
1031:
1032: IF (g_debug <= gme_debug.g_log_unexpected) THEN
1033: gme_debug.put_line ( g_pkg_name
1034: || '.'
1035: || l_api_name
1036: || ':'
1029: ROLLBACK TO SAVEPOINT update_material_line;
1030: x_material_detail_rec := NULL;
1031:
1032: IF (g_debug <= gme_debug.g_log_unexpected) THEN
1033: gme_debug.put_line ( g_pkg_name
1034: || '.'
1035: || l_api_name
1036: || ':'
1037: || 'When others exception:'
1077:
1078: SAVEPOINT delete_material_line1;
1079:
1080: IF (g_debug IS NOT NULL) THEN
1081: gme_debug.log_initialize ('DeleteMaterialLineForm');
1082: END IF;
1083:
1084: IF g_debug <= gme_debug.g_log_procedure THEN
1085: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1080: IF (g_debug IS NOT NULL) THEN
1081: gme_debug.log_initialize ('DeleteMaterialLineForm');
1082: END IF;
1083:
1084: IF g_debug <= gme_debug.g_log_procedure THEN
1085: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1086: || l_api_name);
1087: END IF;
1088:
1081: gme_debug.log_initialize ('DeleteMaterialLineForm');
1082: END IF;
1083:
1084: IF g_debug <= gme_debug.g_log_procedure THEN
1085: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1086: || l_api_name);
1087: END IF;
1088:
1089: IF NOT gme_common_pvt.g_setup_done THEN
1168: ,p_encoded => fnd_api.g_false
1169: ,x_data => x_message_list);
1170:
1171: IF (g_debug IS NOT NULL) THEN
1172: gme_debug.put_line ( 'Completed '
1173: || l_api_name
1174: || ' at '
1175: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1176: END IF;
1199: x_return_status := fnd_api.g_ret_sts_error;
1200: WHEN OTHERS THEN
1201: ROLLBACK TO SAVEPOINT delete_material_line1;
1202:
1203: IF (g_debug <= gme_debug.g_log_unexpected) THEN
1204: gme_debug.put_line ( g_pkg_name
1205: || '.'
1206: || l_api_name
1207: || ':'
1200: WHEN OTHERS THEN
1201: ROLLBACK TO SAVEPOINT delete_material_line1;
1202:
1203: IF (g_debug <= gme_debug.g_log_unexpected) THEN
1204: gme_debug.put_line ( g_pkg_name
1205: || '.'
1206: || l_api_name
1207: || ':'
1208: || 'When others exception:'
1238:
1239: SAVEPOINT delete_material_line;
1240:
1241: IF (g_debug IS NOT NULL) THEN
1242: gme_debug.log_initialize ('DeleteMaterialLine');
1243: END IF;
1244:
1245: IF g_debug <= gme_debug.g_log_procedure THEN
1246: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1241: IF (g_debug IS NOT NULL) THEN
1242: gme_debug.log_initialize ('DeleteMaterialLine');
1243: END IF;
1244:
1245: IF g_debug <= gme_debug.g_log_procedure THEN
1246: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1247: || l_api_name);
1248: END IF;
1249:
1242: gme_debug.log_initialize ('DeleteMaterialLine');
1243: END IF;
1244:
1245: IF g_debug <= gme_debug.g_log_procedure THEN
1246: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1247: || l_api_name);
1248: END IF;
1249:
1250: IF NOT gme_common_pvt.g_setup_done THEN
1281: ,p_encoded => fnd_api.g_false
1282: ,x_data => x_message_list);
1283:
1284: IF (g_debug IS NOT NULL) THEN
1285: gme_debug.put_line ( 'Completed '
1286: || l_api_name
1287: || ' at '
1288: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1289: END IF;
1307: x_return_status := fnd_api.g_ret_sts_error;
1308: WHEN OTHERS THEN
1309: ROLLBACK TO SAVEPOINT delete_material_line;
1310:
1311: IF (g_debug <= gme_debug.g_log_unexpected) THEN
1312: gme_debug.put_line ( g_pkg_name
1313: || '.'
1314: || l_api_name
1315: || ':'
1308: WHEN OTHERS THEN
1309: ROLLBACK TO SAVEPOINT delete_material_line;
1310:
1311: IF (g_debug <= gme_debug.g_log_unexpected) THEN
1312: gme_debug.put_line ( g_pkg_name
1313: || '.'
1314: || l_api_name
1315: || ':'
1316: || 'When others exception:'
1342: /* Set the savepoint before proceeding */
1343: SAVEPOINT reschedule_batch;
1344:
1345: IF (g_debug IS NOT NULL) THEN
1346: gme_debug.log_initialize ('RescheduleBatch');
1347: END IF;
1348:
1349: IF (NVL (g_debug, 0) IN
1350: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1346: gme_debug.log_initialize ('RescheduleBatch');
1347: END IF;
1348:
1349: IF (NVL (g_debug, 0) IN
1350: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1351: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1352: || 'Entering');
1353: END IF;
1354:
1347: END IF;
1348:
1349: IF (NVL (g_debug, 0) IN
1350: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1351: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1352: || 'Entering');
1353: END IF;
1354:
1355: IF NOT gme_common_pvt.g_setup_done THEN
1369: END IF;
1370:
1371: gme_common_pvt.set_timestamp;
1372:
1373: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
1374: gme_debug.put_line ( g_pkg_name
1375: || '.'
1376: || l_api_name
1377: || ':'
1370:
1371: gme_common_pvt.set_timestamp;
1372:
1373: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
1374: gme_debug.put_line ( g_pkg_name
1375: || '.'
1376: || l_api_name
1377: || ':'
1378: || 'Calling Pvt Reschedule Batch');
1384: ,p_contiguity_override => p_contiguity_override
1385: ,x_batch_header_rec => x_batch_header_rec
1386: ,x_return_status => x_return_status);
1387:
1388: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1389: gme_debug.put_line
1390: ( 'Came back from Pvt Reschedule Batch with status '
1391: || x_return_status);
1392: END IF;
1385: ,x_batch_header_rec => x_batch_header_rec
1386: ,x_return_status => x_return_status);
1387:
1388: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1389: gme_debug.put_line
1390: ( 'Came back from Pvt Reschedule Batch with status '
1391: || x_return_status);
1392: END IF;
1393: IF x_return_status NOT IN (fnd_api.g_ret_sts_success, 'C') THEN
1397: gme_common_pvt.count_and_get (x_count => x_message_count
1398: ,p_encoded => fnd_api.g_false
1399: ,x_data => x_message_list);
1400:
1401: IF g_debug <= gme_debug.g_log_procedure THEN
1402: gme_debug.put_line ( g_pkg_name
1403: || '.'
1404: || l_api_name
1405: || ':'
1398: ,p_encoded => fnd_api.g_false
1399: ,x_data => x_message_list);
1400:
1401: IF g_debug <= gme_debug.g_log_procedure THEN
1402: gme_debug.put_line ( g_pkg_name
1403: || '.'
1404: || l_api_name
1405: || ':'
1406: || 'Exiting with '
1459: /* Set the savepoint before proceeding */
1460: SAVEPOINT reschedule_batch_step;
1461:
1462: IF (g_debug IS NOT NULL) THEN
1463: gme_debug.log_initialize ('RescheduleStep');
1464: END IF;
1465:
1466: IF (NVL (g_debug, 0) IN
1467: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1463: gme_debug.log_initialize ('RescheduleStep');
1464: END IF;
1465:
1466: IF (NVL (g_debug, 0) IN
1467: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1468: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1469: || 'Entering');
1470: END IF;
1471:
1464: END IF;
1465:
1466: IF (NVL (g_debug, 0) IN
1467: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1468: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1469: || 'Entering');
1470: END IF;
1471:
1472: IF NOT gme_common_pvt.g_setup_done THEN
1486: END IF;
1487:
1488: gme_common_pvt.set_timestamp;
1489:
1490: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
1491: gme_debug.put_line ( g_pkg_name
1492: || '.'
1493: || l_api_name
1494: || ':'
1487:
1488: gme_common_pvt.set_timestamp;
1489:
1490: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
1491: gme_debug.put_line ( g_pkg_name
1492: || '.'
1493: || l_api_name
1494: || ':'
1495: || 'Calling Pvt Reschedule Step');
1504: ,p_use_workday_cal => p_use_workday_cal
1505: ,x_batch_step_rec => x_batch_step_rec
1506: ,x_return_status => x_return_status);
1507:
1508: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1509: gme_debug.put_line
1510: ( 'Came back from Pvt Reschedule Step with status '
1511: || x_return_status);
1512: END IF;
1505: ,x_batch_step_rec => x_batch_step_rec
1506: ,x_return_status => x_return_status);
1507:
1508: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1509: gme_debug.put_line
1510: ( 'Came back from Pvt Reschedule Step with status '
1511: || x_return_status);
1512: END IF;
1513:
1525: gme_common_pvt.count_and_get (x_count => x_message_count
1526: ,p_encoded => fnd_api.g_false
1527: ,x_data => x_message_list);
1528:
1529: IF g_debug <= gme_debug.g_log_procedure THEN
1530: gme_debug.put_line ( g_pkg_name
1531: || '.'
1532: || l_api_name
1533: || ':'
1526: ,p_encoded => fnd_api.g_false
1527: ,x_data => x_message_list);
1528:
1529: IF g_debug <= gme_debug.g_log_procedure THEN
1530: gme_debug.put_line ( g_pkg_name
1531: || '.'
1532: || l_api_name
1533: || ':'
1534: || 'Exiting with '
1569: := 'CREATE_BATCH_RESERVATIONS';
1570: setup_failure EXCEPTION;
1571: batch_reservations_failure EXCEPTION;
1572: BEGIN
1573: IF g_debug <= gme_debug.g_log_procedure THEN
1574: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1575: || l_api_name);
1576: END IF;
1577:
1570: setup_failure EXCEPTION;
1571: batch_reservations_failure EXCEPTION;
1572: BEGIN
1573: IF g_debug <= gme_debug.g_log_procedure THEN
1574: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1575: || l_api_name);
1576: END IF;
1577:
1578: SAVEPOINT create_batch_reservations;
1577:
1578: SAVEPOINT create_batch_reservations;
1579:
1580: IF (g_debug IS NOT NULL) THEN
1581: gme_debug.log_initialize ('CreateBatchReservations');
1582: END IF;
1583:
1584: IF NOT gme_common_pvt.g_setup_done THEN
1585: gme_common_pvt.g_setup_done :=
1612:
1613: gme_common_pvt.log_message ('GME_BATCH_HI_RESR_CREATED');
1614:
1615: IF (g_debug IS NOT NULL) THEN
1616: gme_debug.put_line ( 'Completed '
1617: || l_api_name
1618: || ' at '
1619: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1620: END IF;
1618: || ' at '
1619: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1620: END IF;
1621:
1622: IF g_debug <= gme_debug.g_log_procedure THEN
1623: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1624: END IF;
1625: EXCEPTION
1626: WHEN batch_reservations_failure THEN
1619: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1620: END IF;
1621:
1622: IF g_debug <= gme_debug.g_log_procedure THEN
1623: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1624: END IF;
1625: EXCEPTION
1626: WHEN batch_reservations_failure THEN
1627: ROLLBACK TO SAVEPOINT create_batch_reservations;
1628: gme_common_pvt.count_and_get (x_count => x_message_count
1629: ,p_encoded => fnd_api.g_false
1630: ,x_data => x_message_list);
1631: WHEN OTHERS THEN
1632: IF g_debug <= gme_debug.g_log_unexpected THEN
1633: gme_debug.put_line ( 'When others exception in '
1634: || g_pkg_name
1635: || '.'
1636: || l_api_name
1629: ,p_encoded => fnd_api.g_false
1630: ,x_data => x_message_list);
1631: WHEN OTHERS THEN
1632: IF g_debug <= gme_debug.g_log_unexpected THEN
1633: gme_debug.put_line ( 'When others exception in '
1634: || g_pkg_name
1635: || '.'
1636: || l_api_name
1637: || ' Error is '
1667: setup_failure EXCEPTION;
1668: get_open_qty_failure EXCEPTION;
1669: line_reservation_failure EXCEPTION;
1670: BEGIN
1671: IF g_debug <= gme_debug.g_log_procedure THEN
1672: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1673: || l_api_name);
1674: END IF;
1675:
1668: get_open_qty_failure EXCEPTION;
1669: line_reservation_failure EXCEPTION;
1670: BEGIN
1671: IF g_debug <= gme_debug.g_log_procedure THEN
1672: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1673: || l_api_name);
1674: END IF;
1675:
1676: SAVEPOINT create_line_reservations;
1675:
1676: SAVEPOINT create_line_reservations;
1677:
1678: IF (g_debug IS NOT NULL) THEN
1679: gme_debug.log_initialize ('CreateLineReservations');
1680: END IF;
1681:
1682: IF NOT gme_common_pvt.g_setup_done THEN
1683: gme_common_pvt.g_setup_done :=
1717: ,p_item_restrict_locators => l_restrict_locators_code
1718: ,x_open_qty => l_open_qty
1719: ,x_return_status => x_return_status);
1720:
1721: IF (g_debug <= gme_debug.g_log_statement) THEN
1722: gme_debug.put_line ( g_pkg_name
1723: || '.'
1724: || l_api_name
1725: || ':'
1718: ,x_open_qty => l_open_qty
1719: ,x_return_status => x_return_status);
1720:
1721: IF (g_debug <= gme_debug.g_log_statement) THEN
1722: gme_debug.put_line ( g_pkg_name
1723: || '.'
1724: || l_api_name
1725: || ':'
1726: || 'get_open_qty returns status: '
1738: (p_matl_dtl_rec => p_matl_dtl_rec
1739: ,p_resv_qty => l_open_qty
1740: ,x_return_status => x_return_status);
1741:
1742: IF (g_debug <= gme_debug.g_log_statement) THEN
1743: gme_debug.put_line ( g_pkg_name
1744: || '.'
1745: || l_api_name
1746: || ':'
1739: ,p_resv_qty => l_open_qty
1740: ,x_return_status => x_return_status);
1741:
1742: IF (g_debug <= gme_debug.g_log_statement) THEN
1743: gme_debug.put_line ( g_pkg_name
1744: || '.'
1745: || l_api_name
1746: || ':'
1747: || 'create_material_reservations returns status: '
1757: END IF;
1758:
1759: gme_common_pvt.log_message ('GME_LINE_HI_RESR_CREATED');
1760: IF (g_debug IS NOT NULL) THEN
1761: gme_debug.put_line ( 'Completed '
1762: || l_api_name
1763: || ' at '
1764: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1765: END IF;
1763: || ' at '
1764: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1765: END IF;
1766:
1767: IF g_debug <= gme_debug.g_log_procedure THEN
1768: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1769: END IF;
1770: EXCEPTION
1771: WHEN setup_failure OR get_open_qty_failure OR line_reservation_failure THEN
1764: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1765: END IF;
1766:
1767: IF g_debug <= gme_debug.g_log_procedure THEN
1768: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1769: END IF;
1770: EXCEPTION
1771: WHEN setup_failure OR get_open_qty_failure OR line_reservation_failure THEN
1772: ROLLBACK TO SAVEPOINT create_line_reservations;
1774: ,p_encoded => fnd_api.g_false
1775: ,x_data => x_message_list);
1776: x_return_status := fnd_api.g_ret_sts_error;
1777: WHEN OTHERS THEN
1778: IF g_debug <= gme_debug.g_log_unexpected THEN
1779: gme_debug.put_line ( 'When others exception in '
1780: || g_pkg_name
1781: || '.'
1782: || l_api_name
1775: ,x_data => x_message_list);
1776: x_return_status := fnd_api.g_ret_sts_error;
1777: WHEN OTHERS THEN
1778: IF g_debug <= gme_debug.g_log_unexpected THEN
1779: gme_debug.put_line ( 'When others exception in '
1780: || g_pkg_name
1781: || '.'
1782: || l_api_name
1783: || ' Error is '
1808: setup_failure EXCEPTION;
1809: batch_release_failure EXCEPTION;
1810: batch_release_exception EXCEPTION;
1811: BEGIN
1812: IF g_debug <= gme_debug.g_log_procedure THEN
1813: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1814: || l_api_name);
1815: END IF;
1816:
1809: batch_release_failure EXCEPTION;
1810: batch_release_exception EXCEPTION;
1811: BEGIN
1812: IF g_debug <= gme_debug.g_log_procedure THEN
1813: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1814: || l_api_name);
1815: END IF;
1816:
1817: SAVEPOINT release_batch;
1816:
1817: SAVEPOINT release_batch;
1818:
1819: IF (g_debug IS NOT NULL) THEN
1820: gme_debug.log_initialize ('ReleaseBatch');
1821: END IF;
1822:
1823: IF NOT gme_common_pvt.g_setup_done THEN
1824: gme_common_pvt.g_setup_done :=
1864: ,p_encoded => fnd_api.g_false
1865: ,x_data => x_message_list);
1866:
1867: IF (g_debug IS NOT NULL) THEN
1868: gme_debug.put_line ( 'Completed '
1869: || l_api_name
1870: || ' at '
1871: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1872: END IF;
1870: || ' at '
1871: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1872: END IF;
1873:
1874: IF g_debug <= gme_debug.g_log_procedure THEN
1875: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1876: END IF;
1877: EXCEPTION
1878: WHEN batch_release_failure THEN
1871: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1872: END IF;
1873:
1874: IF g_debug <= gme_debug.g_log_procedure THEN
1875: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1876: END IF;
1877: EXCEPTION
1878: WHEN batch_release_failure THEN
1879: ROLLBACK TO SAVEPOINT release_batch;
1888: ,p_encoded => fnd_api.g_false
1889: ,x_data => x_message_list);
1890: x_return_status := fnd_api.g_ret_sts_error;
1891: WHEN OTHERS THEN
1892: IF g_debug <= gme_debug.g_log_unexpected THEN
1893: gme_debug.put_line ( 'When others exception in '
1894: || g_pkg_name
1895: || '.'
1896: || l_api_name
1889: ,x_data => x_message_list);
1890: x_return_status := fnd_api.g_ret_sts_error;
1891: WHEN OTHERS THEN
1892: IF g_debug <= gme_debug.g_log_unexpected THEN
1893: gme_debug.put_line ( 'When others exception in '
1894: || g_pkg_name
1895: || '.'
1896: || l_api_name
1897: || ' Error is '
1924: setup_failure EXCEPTION;
1925: step_release_failure EXCEPTION;
1926: step_release_exception EXCEPTION;
1927: BEGIN
1928: IF g_debug <= gme_debug.g_log_procedure THEN
1929: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1930: || l_api_name);
1931: END IF;
1932:
1925: step_release_failure EXCEPTION;
1926: step_release_exception EXCEPTION;
1927: BEGIN
1928: IF g_debug <= gme_debug.g_log_procedure THEN
1929: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1930: || l_api_name);
1931: END IF;
1932:
1933: SAVEPOINT release_step;
1932:
1933: SAVEPOINT release_step;
1934:
1935: IF (g_debug IS NOT NULL) THEN
1936: gme_debug.log_initialize ('ReleaseStep');
1937: END IF;
1938:
1939: IF NOT gme_common_pvt.g_setup_done THEN
1940: gme_common_pvt.g_setup_done :=
1980: ,p_encoded => fnd_api.g_false
1981: ,x_data => x_message_list);
1982:
1983: IF (g_debug IS NOT NULL) THEN
1984: gme_debug.put_line ( 'Completed '
1985: || l_api_name
1986: || ' at '
1987: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1988: END IF;
1986: || ' at '
1987: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1988: END IF;
1989:
1990: IF g_debug <= gme_debug.g_log_procedure THEN
1991: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1992: END IF;
1993: EXCEPTION
1994: WHEN step_release_failure THEN
1987: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1988: END IF;
1989:
1990: IF g_debug <= gme_debug.g_log_procedure THEN
1991: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1992: END IF;
1993: EXCEPTION
1994: WHEN step_release_failure THEN
1995: ROLLBACK TO SAVEPOINT release_step;
2004: ,p_encoded => fnd_api.g_false
2005: ,x_data => x_message_list);
2006: x_return_status := fnd_api.g_ret_sts_error;
2007: WHEN OTHERS THEN
2008: IF g_debug <= gme_debug.g_log_unexpected THEN
2009: gme_debug.put_line ( 'When others exception in '
2010: || g_pkg_name
2011: || '.'
2012: || l_api_name
2005: ,x_data => x_message_list);
2006: x_return_status := fnd_api.g_ret_sts_error;
2007: WHEN OTHERS THEN
2008: IF g_debug <= gme_debug.g_log_unexpected THEN
2009: gme_debug.put_line ( 'When others exception in '
2010: || g_pkg_name
2011: || '.'
2012: || l_api_name
2013: || ' Error is '
2039: setup_failure EXCEPTION;
2040: batch_complete_failure EXCEPTION;
2041: batch_complete_exception EXCEPTION;
2042: BEGIN
2043: IF g_debug <= gme_debug.g_log_procedure THEN
2044: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2045: || l_api_name);
2046: END IF;
2047:
2040: batch_complete_failure EXCEPTION;
2041: batch_complete_exception EXCEPTION;
2042: BEGIN
2043: IF g_debug <= gme_debug.g_log_procedure THEN
2044: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2045: || l_api_name);
2046: END IF;
2047:
2048: SAVEPOINT complete_batch;
2047:
2048: SAVEPOINT complete_batch;
2049:
2050: IF (g_debug IS NOT NULL) THEN
2051: gme_debug.log_initialize ('CompleteBatch');
2052: END IF;
2053:
2054: IF NOT gme_common_pvt.g_setup_done THEN
2055: gme_common_pvt.g_setup_done :=
2093: ,p_encoded => fnd_api.g_false
2094: ,x_data => x_message_list);
2095:
2096: IF (g_debug IS NOT NULL) THEN
2097: gme_debug.put_line ( 'Completed '
2098: || l_api_name
2099: || ' at '
2100: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2101: END IF;
2099: || ' at '
2100: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2101: END IF;
2102:
2103: IF g_debug <= gme_debug.g_log_procedure THEN
2104: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
2105: END IF;
2106: EXCEPTION
2107: WHEN batch_complete_failure THEN
2100: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2101: END IF;
2102:
2103: IF g_debug <= gme_debug.g_log_procedure THEN
2104: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
2105: END IF;
2106: EXCEPTION
2107: WHEN batch_complete_failure THEN
2108: ROLLBACK TO SAVEPOINT complete_batch;
2117: ,p_encoded => fnd_api.g_false
2118: ,x_data => x_message_list);
2119: x_return_status := fnd_api.g_ret_sts_error;
2120: WHEN OTHERS THEN
2121: IF g_debug <= gme_debug.g_log_unexpected THEN
2122: gme_debug.put_line ( 'When others exception in '
2123: || g_pkg_name
2124: || '.'
2125: || l_api_name
2118: ,x_data => x_message_list);
2119: x_return_status := fnd_api.g_ret_sts_error;
2120: WHEN OTHERS THEN
2121: IF g_debug <= gme_debug.g_log_unexpected THEN
2122: gme_debug.put_line ( 'When others exception in '
2123: || g_pkg_name
2124: || '.'
2125: || l_api_name
2126: || ' Error is '
2153: setup_failure EXCEPTION;
2154: step_complete_failure EXCEPTION;
2155: step_complete_exception EXCEPTION;
2156: BEGIN
2157: IF g_debug <= gme_debug.g_log_procedure THEN
2158: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2159: || l_api_name);
2160: END IF;
2161:
2154: step_complete_failure EXCEPTION;
2155: step_complete_exception EXCEPTION;
2156: BEGIN
2157: IF g_debug <= gme_debug.g_log_procedure THEN
2158: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2159: || l_api_name);
2160: END IF;
2161:
2162: SAVEPOINT complete_step;
2161:
2162: SAVEPOINT complete_step;
2163:
2164: IF (g_debug IS NOT NULL) THEN
2165: gme_debug.log_initialize ('CompleteStep');
2166: END IF;
2167:
2168: IF NOT gme_common_pvt.g_setup_done THEN
2169: gme_common_pvt.g_setup_done :=
2209: ,p_encoded => fnd_api.g_false
2210: ,x_data => x_message_list);
2211:
2212: IF (g_debug IS NOT NULL) THEN
2213: gme_debug.put_line ( 'Completed '
2214: || l_api_name
2215: || ' at '
2216: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2217: END IF;
2215: || ' at '
2216: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2217: END IF;
2218:
2219: IF g_debug <= gme_debug.g_log_procedure THEN
2220: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
2221: END IF;
2222: EXCEPTION
2223: WHEN step_complete_failure THEN
2216: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2217: END IF;
2218:
2219: IF g_debug <= gme_debug.g_log_procedure THEN
2220: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
2221: END IF;
2222: EXCEPTION
2223: WHEN step_complete_failure THEN
2224: ROLLBACK TO SAVEPOINT complete_step;
2233: ,p_encoded => fnd_api.g_false
2234: ,x_data => x_message_list);
2235: x_return_status := fnd_api.g_ret_sts_error;
2236: WHEN OTHERS THEN
2237: IF g_debug <= gme_debug.g_log_unexpected THEN
2238: gme_debug.put_line ( 'When others exception in '
2239: || g_pkg_name
2240: || '.'
2241: || l_api_name
2234: ,x_data => x_message_list);
2235: x_return_status := fnd_api.g_ret_sts_error;
2236: WHEN OTHERS THEN
2237: IF g_debug <= gme_debug.g_log_unexpected THEN
2238: gme_debug.put_line ( 'When others exception in '
2239: || g_pkg_name
2240: || '.'
2241: || l_api_name
2242: || ' Error is '
2271: SAVEPOINT delete_step;
2272:
2273: /* Setup the common constants used accross the apis */
2274: IF (g_debug IS NOT NULL) THEN
2275: gme_debug.log_initialize ('DeleteStep');
2276: END IF;
2277:
2278: IF g_debug <= gme_debug.g_log_procedure THEN
2279: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2274: IF (g_debug IS NOT NULL) THEN
2275: gme_debug.log_initialize ('DeleteStep');
2276: END IF;
2277:
2278: IF g_debug <= gme_debug.g_log_procedure THEN
2279: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2280: || 'Entering');
2281: END IF;
2282:
2275: gme_debug.log_initialize ('DeleteStep');
2276: END IF;
2277:
2278: IF g_debug <= gme_debug.g_log_procedure THEN
2279: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2280: || 'Entering');
2281: END IF;
2282:
2283: /* Set the return status to success initially */
2330:
2331: gme_common_pvt.log_message ('GME_API_STEP_DELETE');
2332:
2333:
2334: IF (g_debug <= gme_debug.g_log_procedure) THEN
2335: gme_debug.put_line ( 'Completed '
2336: || l_api_name
2337: || ' at '
2338: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2331: gme_common_pvt.log_message ('GME_API_STEP_DELETE');
2332:
2333:
2334: IF (g_debug <= gme_debug.g_log_procedure) THEN
2335: gme_debug.put_line ( 'Completed '
2336: || l_api_name
2337: || ' at '
2338: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2339: END IF;
2395: SAVEPOINT insert_step;
2396:
2397: /* Initialize message list and count if needed */
2398: IF (g_debug IS NOT NULL) THEN
2399: gme_debug.log_initialize ('InsertStep');
2400: END IF;
2401:
2402: IF g_debug <= gme_debug.g_log_procedure THEN
2403: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2398: IF (g_debug IS NOT NULL) THEN
2399: gme_debug.log_initialize ('InsertStep');
2400: END IF;
2401:
2402: IF g_debug <= gme_debug.g_log_procedure THEN
2403: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2404: || 'Entering');
2405: END IF;
2406:
2399: gme_debug.log_initialize ('InsertStep');
2400: END IF;
2401:
2402: IF g_debug <= gme_debug.g_log_procedure THEN
2403: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2404: || 'Entering');
2405: END IF;
2406:
2407: /* Set the return status to success initially */
2464: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2465: RAISE insert_step_failed;
2466: END IF;
2467: gme_common_pvt.log_message ('GME_INSERT_STEP');
2468: IF (g_debug <= gme_debug.g_log_procedure) THEN
2469: gme_debug.put_line ( 'Completed '
2470: || l_api_name
2471: || ' at '
2472: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2465: RAISE insert_step_failed;
2466: END IF;
2467: gme_common_pvt.log_message ('GME_INSERT_STEP');
2468: IF (g_debug <= gme_debug.g_log_procedure) THEN
2469: gme_debug.put_line ( 'Completed '
2470: || l_api_name
2471: || ' at '
2472: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2473: END IF;
2518:
2519: SAVEPOINT revert_batch;
2520:
2521: IF (g_debug IS NOT NULL) THEN
2522: gme_debug.log_initialize ('RevertBatch');
2523: END IF;
2524:
2525: IF g_debug <= gme_debug.g_log_procedure THEN
2526: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2521: IF (g_debug IS NOT NULL) THEN
2522: gme_debug.log_initialize ('RevertBatch');
2523: END IF;
2524:
2525: IF g_debug <= gme_debug.g_log_procedure THEN
2526: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2527: || 'Entering');
2528: END IF;
2529:
2522: gme_debug.log_initialize ('RevertBatch');
2523: END IF;
2524:
2525: IF g_debug <= gme_debug.g_log_procedure THEN
2526: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2527: || 'Entering');
2528: END IF;
2529:
2530: /* Set the return status to success initially */
2547: END IF;
2548:
2549: gme_common_pvt.set_timestamp;
2550:
2551: IF g_debug <= gme_debug.g_log_statement THEN
2552: gme_debug.put_line ( g_pkg_name
2553: || '.'
2554: || l_api_name
2555: || ':'
2548:
2549: gme_common_pvt.set_timestamp;
2550:
2551: IF g_debug <= gme_debug.g_log_statement THEN
2552: gme_debug.put_line ( g_pkg_name
2553: || '.'
2554: || l_api_name
2555: || ':'
2556: || 'calling revert batch pvt');
2560: (p_batch_header_rec => p_batch_header_rec,
2561: x_batch_header_rec => x_batch_header_rec,
2562: x_return_status => x_return_status);
2563:
2564: IF (g_debug <= gme_debug.g_log_procedure) THEN
2565: gme_debug.put_line ( g_pkg_name
2566: || '.'
2567: || l_api_name
2568: || ':'
2561: x_batch_header_rec => x_batch_header_rec,
2562: x_return_status => x_return_status);
2563:
2564: IF (g_debug <= gme_debug.g_log_procedure) THEN
2565: gme_debug.put_line ( g_pkg_name
2566: || '.'
2567: || l_api_name
2568: || ':'
2569: || 'x_return_status='
2582: p_encoded => fnd_api.g_false,
2583: x_data => x_message_list);
2584:
2585: IF (g_debug IS NOT NULL) THEN
2586: gme_debug.put_line ( 'Completed '
2587: || l_api_name
2588: || ' at '
2589: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2590: END IF;
2588: || ' at '
2589: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2590: END IF;
2591:
2592: IF g_debug <= gme_debug.g_log_procedure THEN
2593: gme_debug.put_line ( 'Exiting api '
2594: || g_pkg_name
2595: || '.'
2596: || l_api_name
2589: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2590: END IF;
2591:
2592: IF g_debug <= gme_debug.g_log_procedure THEN
2593: gme_debug.put_line ( 'Exiting api '
2594: || g_pkg_name
2595: || '.'
2596: || l_api_name
2597: || x_return_status);
2610: p_encoded => fnd_api.g_false,
2611: x_data => x_message_list);
2612: x_return_status := fnd_api.g_ret_sts_error;
2613: WHEN OTHERS THEN
2614: IF g_debug <= gme_debug.g_log_unexpected THEN
2615: gme_debug.put_line ( 'When others exception in '
2616: || g_pkg_name
2617: || '.'
2618: || l_api_name
2611: x_data => x_message_list);
2612: x_return_status := fnd_api.g_ret_sts_error;
2613: WHEN OTHERS THEN
2614: IF g_debug <= gme_debug.g_log_unexpected THEN
2615: gme_debug.put_line ( 'When others exception in '
2616: || g_pkg_name
2617: || '.'
2618: || l_api_name
2619: || ' Error is '
2649:
2650: SAVEPOINT revert_step;
2651:
2652: IF (g_debug IS NOT NULL) THEN
2653: gme_debug.log_initialize ('RevertStep');
2654: END IF;
2655:
2656: IF g_debug <= gme_debug.g_log_procedure THEN
2657: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2652: IF (g_debug IS NOT NULL) THEN
2653: gme_debug.log_initialize ('RevertStep');
2654: END IF;
2655:
2656: IF g_debug <= gme_debug.g_log_procedure THEN
2657: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2658: || 'Entering');
2659: END IF;
2660:
2653: gme_debug.log_initialize ('RevertStep');
2654: END IF;
2655:
2656: IF g_debug <= gme_debug.g_log_procedure THEN
2657: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2658: || 'Entering');
2659: END IF;
2660:
2661: /* Set the return status to success initially */
2678: END IF;
2679:
2680: gme_common_pvt.set_timestamp;
2681:
2682: IF g_debug <= gme_debug.g_log_statement THEN
2683: gme_debug.put_line ( g_pkg_name
2684: || '.'
2685: || l_api_name
2686: || ':'
2679:
2680: gme_common_pvt.set_timestamp;
2681:
2682: IF g_debug <= gme_debug.g_log_statement THEN
2683: gme_debug.put_line ( g_pkg_name
2684: || '.'
2685: || l_api_name
2686: || ':'
2687: || 'calling revert step pvt');
2692: p_batch_header_rec => p_batch_header_rec,
2693: x_batch_step_rec => x_batch_step_rec,
2694: x_return_status => x_return_status);
2695:
2696: IF (g_debug <= gme_debug.g_log_procedure) THEN
2697: gme_debug.put_line ( g_pkg_name
2698: || '.'
2699: || l_api_name
2700: || ':'
2693: x_batch_step_rec => x_batch_step_rec,
2694: x_return_status => x_return_status);
2695:
2696: IF (g_debug <= gme_debug.g_log_procedure) THEN
2697: gme_debug.put_line ( g_pkg_name
2698: || '.'
2699: || l_api_name
2700: || ':'
2701: || 'x_return_status='
2714: p_encoded => fnd_api.g_false,
2715: x_data => x_message_list);
2716:
2717: IF (g_debug IS NOT NULL) THEN
2718: gme_debug.put_line ( 'Completed '
2719: || l_api_name
2720: || ' at '
2721: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2722: END IF;
2720: || ' at '
2721: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2722: END IF;
2723:
2724: IF g_debug <= gme_debug.g_log_procedure THEN
2725: gme_debug.put_line ( 'Exiting api '
2726: || g_pkg_name
2727: || '.'
2728: || l_api_name
2721: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2722: END IF;
2723:
2724: IF g_debug <= gme_debug.g_log_procedure THEN
2725: gme_debug.put_line ( 'Exiting api '
2726: || g_pkg_name
2727: || '.'
2728: || l_api_name
2729: || x_return_status);
2742: p_encoded => fnd_api.g_false,
2743: x_data => x_message_list);
2744: x_return_status := fnd_api.g_ret_sts_error;
2745: WHEN OTHERS THEN
2746: IF g_debug <= gme_debug.g_log_unexpected THEN
2747: gme_debug.put_line ( 'When others exception in '
2748: || g_pkg_name
2749: || '.'
2750: || l_api_name
2743: x_data => x_message_list);
2744: x_return_status := fnd_api.g_ret_sts_error;
2745: WHEN OTHERS THEN
2746: IF g_debug <= gme_debug.g_log_unexpected THEN
2747: gme_debug.put_line ( 'When others exception in '
2748: || g_pkg_name
2749: || '.'
2750: || l_api_name
2751: || ' Error is '
2773: setup_failure EXCEPTION;
2774: batch_close_failure EXCEPTION;
2775: batch_save_failed EXCEPTION;
2776: BEGIN
2777: IF g_debug <= gme_debug.g_log_procedure THEN
2778: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2779: || l_api_name);
2780: END IF;
2781:
2774: batch_close_failure EXCEPTION;
2775: batch_save_failed EXCEPTION;
2776: BEGIN
2777: IF g_debug <= gme_debug.g_log_procedure THEN
2778: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2779: || l_api_name);
2780: END IF;
2781:
2782: /* Set the savepoint before proceeding */
2782: /* Set the savepoint before proceeding */
2783: SAVEPOINT close_batch;
2784:
2785: IF (g_debug IS NOT NULL) THEN
2786: gme_debug.log_initialize ('CloseBatch');
2787: END IF;
2788:
2789: IF NOT gme_common_pvt.g_setup_done THEN
2790: gme_common_pvt.g_setup_done :=
2803: END IF;
2804:
2805: gme_common_pvt.set_timestamp;
2806:
2807: IF g_debug <= gme_debug.g_log_procedure THEN
2808: gme_debug.put_line ('Calling gme_close_batch_pvt.close_batch.');
2809: END IF;
2810:
2811: gme_close_batch_pvt.close_batch
2804:
2805: gme_common_pvt.set_timestamp;
2806:
2807: IF g_debug <= gme_debug.g_log_procedure THEN
2808: gme_debug.put_line ('Calling gme_close_batch_pvt.close_batch.');
2809: END IF;
2810:
2811: gme_close_batch_pvt.close_batch
2812: (p_batch_header_rec => p_batch_header_rec
2812: (p_batch_header_rec => p_batch_header_rec
2813: ,x_batch_header_rec => x_batch_header_rec
2814: ,x_return_status => x_return_status);
2815:
2816: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2817: gme_debug.put_line ( 'Came back from Pvt Close Batch with status '
2818: || x_return_status);
2819: END IF;
2820:
2813: ,x_batch_header_rec => x_batch_header_rec
2814: ,x_return_status => x_return_status);
2815:
2816: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2817: gme_debug.put_line ( 'Came back from Pvt Close Batch with status '
2818: || x_return_status);
2819: END IF;
2820:
2821: IF x_return_status = fnd_api.g_ret_sts_success THEN
2840: gme_common_pvt.count_and_get (x_count => x_message_count
2841: ,p_encoded => fnd_api.g_false
2842: ,x_data => x_message_list);
2843:
2844: IF g_debug <= gme_debug.g_log_procedure THEN
2845: gme_debug.put_line ( 'Completed '
2846: || l_api_name
2847: || ' at '
2848: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2841: ,p_encoded => fnd_api.g_false
2842: ,x_data => x_message_list);
2843:
2844: IF g_debug <= gme_debug.g_log_procedure THEN
2845: gme_debug.put_line ( 'Completed '
2846: || l_api_name
2847: || ' at '
2848: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2849: END IF;
2887: /* Set the savepoint before proceeding */
2888: SAVEPOINT close_batch_step;
2889:
2890: IF (g_debug IS NOT NULL) THEN
2891: gme_debug.log_initialize ('CloseStep');
2892: END IF;
2893:
2894: IF g_debug <= gme_debug.g_log_procedure THEN
2895: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2890: IF (g_debug IS NOT NULL) THEN
2891: gme_debug.log_initialize ('CloseStep');
2892: END IF;
2893:
2894: IF g_debug <= gme_debug.g_log_procedure THEN
2895: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2896: || 'Entering');
2897: END IF;
2898:
2891: gme_debug.log_initialize ('CloseStep');
2892: END IF;
2893:
2894: IF g_debug <= gme_debug.g_log_procedure THEN
2895: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2896: || 'Entering');
2897: END IF;
2898:
2899: /* Set the return status to success initially */
2926: ELSE
2927: RAISE step_close_failed;
2928: END IF;
2929:
2930: IF (g_debug <= gme_debug.g_log_procedure) THEN
2931: gme_debug.put_line ( 'Completed '
2932: || l_api_name
2933: || ' at '
2934: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2927: RAISE step_close_failed;
2928: END IF;
2929:
2930: IF (g_debug <= gme_debug.g_log_procedure) THEN
2931: gme_debug.put_line ( 'Completed '
2932: || l_api_name
2933: || ' at '
2934: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2935: END IF;
2981: /* Set the save point before processing */
2982: SAVEPOINT reopen_batch;
2983:
2984: IF (g_debug IS NOT NULL) THEN
2985: gme_debug.log_initialize ('ReopenBatch');
2986: END IF;
2987:
2988: IF (g_debug <= gme_debug.g_log_procedure) THEN
2989: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2984: IF (g_debug IS NOT NULL) THEN
2985: gme_debug.log_initialize ('ReopenBatch');
2986: END IF;
2987:
2988: IF (g_debug <= gme_debug.g_log_procedure) THEN
2989: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2990: || 'Entering');
2991: END IF;
2992:
2985: gme_debug.log_initialize ('ReopenBatch');
2986: END IF;
2987:
2988: IF (g_debug <= gme_debug.g_log_procedure) THEN
2989: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2990: || 'Entering');
2991: END IF;
2992:
2993: /* Initialize message list and count if needed*/
3010: END IF;
3011: END IF;
3012: gme_common_pvt.set_timestamp;
3013:
3014: IF (g_debug <= gme_debug.g_log_procedure) THEN
3015: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3016: || 'calling private layer');
3017: END IF;
3018:
3011: END IF;
3012: gme_common_pvt.set_timestamp;
3013:
3014: IF (g_debug <= gme_debug.g_log_procedure) THEN
3015: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3016: || 'calling private layer');
3017: END IF;
3018:
3019: gme_reopen_batch_pvt.reopen_batch
3021: ,p_reopen_steps => p_reopen_steps
3022: ,x_batch_header_rec => x_batch_header_rec
3023: ,x_return_status => x_return_status);
3024:
3025: IF (g_debug <= gme_debug.g_log_procedure) THEN
3026: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3027: || 'after private layer with sts'||x_return_status);
3028: END IF;
3029:
3022: ,x_batch_header_rec => x_batch_header_rec
3023: ,x_return_status => x_return_status);
3024:
3025: IF (g_debug <= gme_debug.g_log_procedure) THEN
3026: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3027: || 'after private layer with sts'||x_return_status);
3028: END IF;
3029:
3030: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
3035:
3036: gme_common_pvt.log_message ('GME_API_BATCH_REOPENED');
3037:
3038:
3039: IF (g_debug <= gme_debug.g_log_procedure) THEN
3040: gme_debug.put_line ( 'Completed '
3041: || l_api_name
3042: || ' at '
3043: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3036: gme_common_pvt.log_message ('GME_API_BATCH_REOPENED');
3037:
3038:
3039: IF (g_debug <= gme_debug.g_log_procedure) THEN
3040: gme_debug.put_line ( 'Completed '
3041: || l_api_name
3042: || ' at '
3043: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3044: END IF;
3053: WHEN setup_failure THEN
3054: ROLLBACK TO SAVEPOINT reopen_batch;
3055: x_batch_header_rec := NULL;
3056:
3057: IF (g_debug <= gme_debug.g_log_procedure) THEN
3058: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3059: ||'reopen_batch error : SETUP_FAILURE'
3060: );
3061: END IF;
3054: ROLLBACK TO SAVEPOINT reopen_batch;
3055: x_batch_header_rec := NULL;
3056:
3057: IF (g_debug <= gme_debug.g_log_procedure) THEN
3058: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3059: ||'reopen_batch error : SETUP_FAILURE'
3060: );
3061: END IF;
3062:
3068: WHEN batch_reopen_failure OR batch_save_failed THEN
3069: ROLLBACK TO SAVEPOINT reopen_batch;
3070: x_batch_header_rec := NULL;
3071:
3072: IF (g_debug <= gme_debug.g_log_procedure) THEN
3073: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3074: || 'reopen_batch error : BATCH_REOPEN_FAILURE OR BATCH_SAVE_FAILED OR ERROR_CHECK_PHANT.'
3075: );
3076: END IF;
3069: ROLLBACK TO SAVEPOINT reopen_batch;
3070: x_batch_header_rec := NULL;
3071:
3072: IF (g_debug <= gme_debug.g_log_procedure) THEN
3073: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3074: || 'reopen_batch error : BATCH_REOPEN_FAILURE OR BATCH_SAVE_FAILED OR ERROR_CHECK_PHANT.'
3075: );
3076: END IF;
3077:
3083: WHEN OTHERS THEN
3084: ROLLBACK TO SAVEPOINT reopen_batch;
3085: x_batch_header_rec := NULL;
3086:
3087: IF (g_debug <= gme_debug.g_log_unexpected) THEN
3088: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3089: ||'reopen_batch error : OTHERS.' || SQLCODE
3090: );
3091: END IF;
3084: ROLLBACK TO SAVEPOINT reopen_batch;
3085: x_batch_header_rec := NULL;
3086:
3087: IF (g_debug <= gme_debug.g_log_unexpected) THEN
3088: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3089: ||'reopen_batch error : OTHERS.' || SQLCODE
3090: );
3091: END IF;
3092:
3126: gme_common_pvt.g_error_count := 0; /* Punit Kumar */
3127: END IF;
3128:
3129: IF (g_debug IS NOT NULL) THEN
3130: gme_debug.log_initialize ('ReopenStep');
3131: END IF;
3132:
3133: IF (g_debug <= gme_debug.g_log_procedure) THEN
3134: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3129: IF (g_debug IS NOT NULL) THEN
3130: gme_debug.log_initialize ('ReopenStep');
3131: END IF;
3132:
3133: IF (g_debug <= gme_debug.g_log_procedure) THEN
3134: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3135: || 'entering');
3136: END IF;
3137: IF NOT gme_common_pvt.g_setup_done THEN
3130: gme_debug.log_initialize ('ReopenStep');
3131: END IF;
3132:
3133: IF (g_debug <= gme_debug.g_log_procedure) THEN
3134: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3135: || 'entering');
3136: END IF;
3137: IF NOT gme_common_pvt.g_setup_done THEN
3138: gme_common_pvt.g_setup_done :=
3147: x_return_status := fnd_api.g_ret_sts_success;
3148: /* Punit Kumar */
3149: gme_common_pvt.set_timestamp;
3150:
3151: IF (g_debug <= gme_debug.g_log_procedure) THEN
3152: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3153: || 'calling private layer');
3154: END IF;
3155:
3148: /* Punit Kumar */
3149: gme_common_pvt.set_timestamp;
3150:
3151: IF (g_debug <= gme_debug.g_log_procedure) THEN
3152: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3153: || 'calling private layer');
3154: END IF;
3155:
3156: gme_reopen_step_pvt.reopen_step (p_batch_step_rec => p_batch_step_rec
3156: gme_reopen_step_pvt.reopen_step (p_batch_step_rec => p_batch_step_rec
3157: ,x_batch_step_rec => x_batch_step_rec
3158: ,x_return_status => x_return_status);
3159:
3160: IF (g_debug <= gme_debug.g_log_procedure) THEN
3161: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3162: || 'existing private layer with status'||x_return_status );
3163: END IF;
3164:
3157: ,x_batch_step_rec => x_batch_step_rec
3158: ,x_return_status => x_return_status);
3159:
3160: IF (g_debug <= gme_debug.g_log_procedure) THEN
3161: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3162: || 'existing private layer with status'||x_return_status );
3163: END IF;
3164:
3165: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
3171:
3172: gme_common_pvt.log_message ('GME_API_STEP_REOPENED');
3173:
3174:
3175: IF (g_debug <= gme_debug.g_log_procedure) THEN
3176: gme_debug.put_line ( 'Completed '
3177: || l_api_name
3178: || ' at '
3179: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3172: gme_common_pvt.log_message ('GME_API_STEP_REOPENED');
3173:
3174:
3175: IF (g_debug <= gme_debug.g_log_procedure) THEN
3176: gme_debug.put_line ( 'Completed '
3177: || l_api_name
3178: || ' at '
3179: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3180: END IF;
3182: gme_common_pvt.count_and_get (x_count => x_message_count
3183: ,p_encoded => fnd_api.g_false
3184: ,x_data => x_message_list);
3185:
3186: IF (g_debug <= gme_debug.g_log_procedure) THEN
3187: gme_debug.put_line ('Normal end of Public Reopen_Step.'
3188: ,gme_debug.g_log_procedure
3189: ,'reopen_batch');
3190: END IF;
3183: ,p_encoded => fnd_api.g_false
3184: ,x_data => x_message_list);
3185:
3186: IF (g_debug <= gme_debug.g_log_procedure) THEN
3187: gme_debug.put_line ('Normal end of Public Reopen_Step.'
3188: ,gme_debug.g_log_procedure
3189: ,'reopen_batch');
3190: END IF;
3191: EXCEPTION
3184: ,x_data => x_message_list);
3185:
3186: IF (g_debug <= gme_debug.g_log_procedure) THEN
3187: gme_debug.put_line ('Normal end of Public Reopen_Step.'
3188: ,gme_debug.g_log_procedure
3189: ,'reopen_batch');
3190: END IF;
3191: EXCEPTION
3192: WHEN setup_failure THEN
3192: WHEN setup_failure THEN
3193: ROLLBACK TO SAVEPOINT reopen_batch_step;
3194: x_batch_step_rec := NULL;
3195:
3196: IF (g_debug <= gme_debug.g_log_procedure) THEN
3197: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3198: ||'reopen_step error : SETUP_FAILURE.'
3199: );
3200: END IF;
3193: ROLLBACK TO SAVEPOINT reopen_batch_step;
3194: x_batch_step_rec := NULL;
3195:
3196: IF (g_debug <= gme_debug.g_log_procedure) THEN
3197: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3198: ||'reopen_step error : SETUP_FAILURE.'
3199: );
3200: END IF;
3201:
3207: WHEN step_reopen_failure OR step_save_failed THEN
3208: ROLLBACK TO SAVEPOINT reopen_batch_step;
3209: x_batch_step_rec := NULL;
3210:
3211: IF (g_debug <= gme_debug.g_log_procedure) THEN
3212: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3213: ||
3214: 'reopen_step error : STEP_REOPEN_FAILURE OR STEP_SAVE_FAILED.'
3215: );
3208: ROLLBACK TO SAVEPOINT reopen_batch_step;
3209: x_batch_step_rec := NULL;
3210:
3211: IF (g_debug <= gme_debug.g_log_procedure) THEN
3212: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3213: ||
3214: 'reopen_step error : STEP_REOPEN_FAILURE OR STEP_SAVE_FAILED.'
3215: );
3216: END IF;
3223: WHEN OTHERS THEN
3224: ROLLBACK TO SAVEPOINT reopen_batch_step;
3225: x_batch_step_rec := NULL;
3226:
3227: IF (g_debug <= gme_debug.g_log_unexpected) THEN
3228: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3229: ||'reopen_step error : OTHERS.' || SQLCODE
3230: );
3231: END IF;
3224: ROLLBACK TO SAVEPOINT reopen_batch_step;
3225: x_batch_step_rec := NULL;
3226:
3227: IF (g_debug <= gme_debug.g_log_unexpected) THEN
3228: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3229: ||'reopen_step error : OTHERS.' || SQLCODE
3230: );
3231: END IF;
3232:
3300: /* Set the savepoint */
3301: SAVEPOINT incremental_backflush;
3302:
3303: IF (g_debug IS NOT NULL) THEN
3304: gme_debug.log_initialize ('IncrementalBackflush');
3305: END IF;
3306: /* Set the return status to success initially */
3307: x_return_status := fnd_api.g_ret_sts_success;
3308:
3337: gme_common_pvt.g_ib_timestamp_date := NULL;
3338: END IF;
3339:
3340:
3341: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
3342: gme_debug.put_line('l_trans_date is '||to_char(l_trans_date, 'DD-MON-YYYY HH24:MI:SS'));
3343: gme_debug.put_line('gme_common_pvt.g_ib_timestamp_set is '||gme_common_pvt.g_ib_timestamp_set);
3344: END IF;
3345:
3338: END IF;
3339:
3340:
3341: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
3342: gme_debug.put_line('l_trans_date is '||to_char(l_trans_date, 'DD-MON-YYYY HH24:MI:SS'));
3343: gme_debug.put_line('gme_common_pvt.g_ib_timestamp_set is '||gme_common_pvt.g_ib_timestamp_set);
3344: END IF;
3345:
3346: -- does backflush resource usage need to be performed?
3339:
3340:
3341: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
3342: gme_debug.put_line('l_trans_date is '||to_char(l_trans_date, 'DD-MON-YYYY HH24:MI:SS'));
3343: gme_debug.put_line('gme_common_pvt.g_ib_timestamp_set is '||gme_common_pvt.g_ib_timestamp_set);
3344: END IF;
3345:
3346: -- does backflush resource usage need to be performed?
3347: IF (p_batch_header_rec.batch_status = gme_common_pvt.g_step_wip AND
3367: -- gme_common_pvt.g_ib_timestamp_set := 0;
3368:
3369: IF x_return_status NOT IN
3370: (fnd_api.g_ret_sts_success, gme_common_pvt.g_exceptions_err) THEN
3371: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
3372: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' after gme_incremental_backflush_pvt.incremental_backflush; x_return_status= '||x_return_status);
3373: END IF;
3374:
3375: -- Bug 13017256 - Reset flag.
3368:
3369: IF x_return_status NOT IN
3370: (fnd_api.g_ret_sts_success, gme_common_pvt.g_exceptions_err) THEN
3371: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
3372: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' after gme_incremental_backflush_pvt.incremental_backflush; x_return_status= '||x_return_status);
3373: END IF;
3374:
3375: -- Bug 13017256 - Reset flag.
3376: gme_common_pvt.g_ib_timestamp_set := 0;
3389: -- Bug 13017256 - Reset flag.
3390: gme_common_pvt.g_ib_timestamp_set := 0;
3391: END IF;
3392:
3393: IF (g_debug <= gme_debug.g_log_procedure) THEN
3394: gme_debug.put_line ( 'gme_api_main: Completed '
3395: || l_api_name
3396: || ' at '
3397: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3390: gme_common_pvt.g_ib_timestamp_set := 0;
3391: END IF;
3392:
3393: IF (g_debug <= gme_debug.g_log_procedure) THEN
3394: gme_debug.put_line ( 'gme_api_main: Completed '
3395: || l_api_name
3396: || ' at '
3397: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3398: END IF;
3413: inv_quantity_tree_pub.clear_quantity_cache;
3414: gme_common_pvt.count_and_get (x_count => x_message_count
3415: ,p_encoded => fnd_api.g_false
3416: ,x_data => x_message_list);
3417: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
3418: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' in exception block; x_return_status= '||x_return_status);
3419: END IF;
3420: WHEN OTHERS THEN
3421: ROLLBACK TO SAVEPOINT incremental_backflush;
3414: gme_common_pvt.count_and_get (x_count => x_message_count
3415: ,p_encoded => fnd_api.g_false
3416: ,x_data => x_message_list);
3417: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
3418: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' in exception block; x_return_status= '||x_return_status);
3419: END IF;
3420: WHEN OTHERS THEN
3421: ROLLBACK TO SAVEPOINT incremental_backflush;
3422: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3465: /* Set savepoint here */
3466: SAVEPOINT reroute_batch_main;
3467:
3468: IF (g_debug IS NOT NULL) THEN
3469: gme_debug.log_initialize ('RerouteBatch');
3470: END IF;
3471:
3472: IF (NVL (g_debug, 0) IN
3473: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
3469: gme_debug.log_initialize ('RerouteBatch');
3470: END IF;
3471:
3472: IF (NVL (g_debug, 0) IN
3473: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
3474: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3475: || 'Entering');
3476: END IF;
3477:
3470: END IF;
3471:
3472: IF (NVL (g_debug, 0) IN
3473: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
3474: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3475: || 'Entering');
3476: END IF;
3477:
3478: IF (fnd_api.to_boolean (p_init_msg_list) ) THEN
3523: ,p_encoded => fnd_api.g_false
3524: ,x_data => x_message_list);
3525:
3526: IF (NVL (g_debug, 0) IN
3527: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
3528: gme_debug.put_line ( g_pkg_name
3529: || '.'
3530: || l_api_name
3531: || ':'
3524: ,x_data => x_message_list);
3525:
3526: IF (NVL (g_debug, 0) IN
3527: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
3528: gme_debug.put_line ( g_pkg_name
3529: || '.'
3530: || l_api_name
3531: || ':'
3532: || 'Exiting with '
3556: x_batch_header_rec := NULL;
3557: x_return_status := fnd_api.g_ret_sts_unexp_error;
3558:
3559: IF (NVL (g_debug, 0) > 0) THEN
3560: gme_debug.put_line ( g_pkg_name
3561: || '.'
3562: || l_api_name
3563: || ':'
3564: || 'UNEXPECTED:'
3574: x_batch_header_rec := NULL;
3575: x_return_status := fnd_api.g_ret_sts_unexp_error;
3576:
3577: IF (NVL (g_debug, 0) > 0) THEN
3578: gme_debug.put_line ( g_pkg_name
3579: || '.'
3580: || l_api_name
3581: || ':'
3582: || 'OTHERS:'
3621: BEGIN
3622: SAVEPOINT cancel_batch;
3623:
3624: IF (g_debug IS NOT NULL) THEN
3625: gme_debug.log_initialize ('CancelBatch');
3626: END IF;
3627:
3628: IF g_debug <= gme_debug.g_log_procedure THEN
3629: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3624: IF (g_debug IS NOT NULL) THEN
3625: gme_debug.log_initialize ('CancelBatch');
3626: END IF;
3627:
3628: IF g_debug <= gme_debug.g_log_procedure THEN
3629: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3630: || 'Entering');
3631: END IF;
3632:
3625: gme_debug.log_initialize ('CancelBatch');
3626: END IF;
3627:
3628: IF g_debug <= gme_debug.g_log_procedure THEN
3629: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3630: || 'Entering');
3631: END IF;
3632:
3633: /* Set the return status to success initially */
3650: END IF;
3651:
3652: gme_common_pvt.set_timestamp;
3653:
3654: IF g_debug <= gme_debug.g_log_statement THEN
3655: gme_debug.put_line ( g_pkg_name
3656: || '.'
3657: || l_api_name
3658: || ':'
3651:
3652: gme_common_pvt.set_timestamp;
3653:
3654: IF g_debug <= gme_debug.g_log_statement THEN
3655: gme_debug.put_line ( g_pkg_name
3656: || '.'
3657: || l_api_name
3658: || ':'
3659: || 'calling pvt cancel');
3663: (p_batch_header_rec => p_batch_header_rec
3664: ,x_batch_header_rec => x_batch_header_rec
3665: ,x_return_status => x_return_status);
3666:
3667: IF (g_debug <= gme_debug.g_log_procedure) THEN
3668: gme_debug.put_line ( g_pkg_name
3669: || '.'
3670: || l_api_name
3671: || ':'
3664: ,x_batch_header_rec => x_batch_header_rec
3665: ,x_return_status => x_return_status);
3666:
3667: IF (g_debug <= gme_debug.g_log_procedure) THEN
3668: gme_debug.put_line ( g_pkg_name
3669: || '.'
3670: || l_api_name
3671: || ':'
3672: || 'x_return_status='
3690: ,p_encoded => fnd_api.g_false
3691: ,x_data => x_message_list);
3692:
3693: IF (g_debug IS NOT NULL) THEN
3694: gme_debug.put_line ( 'Completed '
3695: || l_api_name
3696: || ' at '
3697: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3698: END IF;
3696: || ' at '
3697: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3698: END IF;
3699:
3700: IF g_debug <= gme_debug.g_log_procedure THEN
3701: gme_debug.put_line ( 'Exiting api '
3702: || g_pkg_name
3703: || '.'
3704: || l_api_name
3697: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3698: END IF;
3699:
3700: IF g_debug <= gme_debug.g_log_procedure THEN
3701: gme_debug.put_line ( 'Exiting api '
3702: || g_pkg_name
3703: || '.'
3704: || l_api_name
3705: || x_return_status);
3718: ,p_encoded => fnd_api.g_false
3719: ,x_data => x_message_list);
3720: x_return_status := fnd_api.g_ret_sts_error;
3721: WHEN OTHERS THEN
3722: IF g_debug <= gme_debug.g_log_unexpected THEN
3723: gme_debug.put_line ( 'When others exception in '
3724: || g_pkg_name
3725: || '.'
3726: || l_api_name
3719: ,x_data => x_message_list);
3720: x_return_status := fnd_api.g_ret_sts_error;
3721: WHEN OTHERS THEN
3722: IF g_debug <= gme_debug.g_log_unexpected THEN
3723: gme_debug.put_line ( 'When others exception in '
3724: || g_pkg_name
3725: || '.'
3726: || l_api_name
3727: || ' Error is '
3772: /* Set the save point before processing */
3773: SAVEPOINT terminate_batch;
3774:
3775: IF (g_debug IS NOT NULL) THEN
3776: gme_debug.log_initialize ('TerminateBatch');
3777: END IF;
3778:
3779: IF (g_debug <= gme_debug.g_log_procedure) THEN
3780: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3775: IF (g_debug IS NOT NULL) THEN
3776: gme_debug.log_initialize ('TerminateBatch');
3777: END IF;
3778:
3779: IF (g_debug <= gme_debug.g_log_procedure) THEN
3780: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3781: || 'Entering');
3782: END IF;
3783:
3776: gme_debug.log_initialize ('TerminateBatch');
3777: END IF;
3778:
3779: IF (g_debug <= gme_debug.g_log_procedure) THEN
3780: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3781: || 'Entering');
3782: END IF;
3783:
3784: /* Set the return status to success initially */
3801: END IF;
3802:
3803: gme_common_pvt.set_timestamp;
3804:
3805: IF g_debug <= gme_debug.g_log_statement THEN
3806: gme_debug.put_line ( g_pkg_name
3807: || '.'
3808: || l_api_name
3809: || ':'
3802:
3803: gme_common_pvt.set_timestamp;
3804:
3805: IF g_debug <= gme_debug.g_log_statement THEN
3806: gme_debug.put_line ( g_pkg_name
3807: || '.'
3808: || l_api_name
3809: || ':'
3810: || 'Call Private Terminate_Batch');
3814: (p_batch_header_rec => p_batch_header_rec
3815: ,x_batch_header_rec => x_batch_header_rec
3816: ,x_return_status => x_return_status);
3817:
3818: IF (g_debug <= gme_debug.g_log_procedure) THEN
3819: gme_debug.put_line ( g_pkg_name
3820: || '.'
3821: || l_api_name
3822: || ':'
3815: ,x_batch_header_rec => x_batch_header_rec
3816: ,x_return_status => x_return_status);
3817:
3818: IF (g_debug <= gme_debug.g_log_procedure) THEN
3819: gme_debug.put_line ( g_pkg_name
3820: || '.'
3821: || l_api_name
3822: || ':'
3823: || 'x_return_status='
3835: ,p_encoded => fnd_api.g_false
3836: ,x_data => x_message_list);
3837:
3838: IF (g_debug IS NOT NULL) THEN
3839: gme_debug.put_line ( 'Completed '
3840: || l_api_name
3841: || ' at '
3842: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3843: END IF;
3841: || ' at '
3842: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3843: END IF;
3844:
3845: IF g_debug <= gme_debug.g_log_procedure THEN
3846: gme_debug.put_line ( g_pkg_name
3847: || '.'
3848: || l_api_name
3849: || ':'
3842: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3843: END IF;
3844:
3845: IF g_debug <= gme_debug.g_log_procedure THEN
3846: gme_debug.put_line ( g_pkg_name
3847: || '.'
3848: || l_api_name
3849: || ':'
3850: || 'Exiting api with return status='
3854: WHEN setup_failure THEN
3855: ROLLBACK TO SAVEPOINT terminate_batch;
3856: x_batch_header_rec := NULL;
3857:
3858: IF (g_debug <= gme_debug.g_log_procedure) THEN
3859: gme_debug.put_line ( g_pkg_name
3860: || '.'
3861: || l_api_name
3862: || ':'
3855: ROLLBACK TO SAVEPOINT terminate_batch;
3856: x_batch_header_rec := NULL;
3857:
3858: IF (g_debug <= gme_debug.g_log_procedure) THEN
3859: gme_debug.put_line ( g_pkg_name
3860: || '.'
3861: || l_api_name
3862: || ':'
3863: || 'SETUP_FAILURE.');
3870: WHEN batch_terminate_failure THEN
3871: ROLLBACK TO SAVEPOINT terminate_batch;
3872: x_batch_header_rec := NULL;
3873:
3874: IF (g_debug <= gme_debug.g_log_procedure) THEN
3875: gme_debug.put_line
3876: ( g_pkg_name
3877: || '.'
3878: || l_api_name
3871: ROLLBACK TO SAVEPOINT terminate_batch;
3872: x_batch_header_rec := NULL;
3873:
3874: IF (g_debug <= gme_debug.g_log_procedure) THEN
3875: gme_debug.put_line
3876: ( g_pkg_name
3877: || '.'
3878: || l_api_name
3879: || ':'
3886: WHEN OTHERS THEN
3887: ROLLBACK TO SAVEPOINT terminate_batch;
3888: x_batch_header_rec := NULL;
3889:
3890: IF (g_debug <= gme_debug.g_log_unexpected) THEN
3891: gme_debug.put_line ( 'When others exception in '
3892: || g_pkg_name
3893: || '.'
3894: || l_api_name
3887: ROLLBACK TO SAVEPOINT terminate_batch;
3888: x_batch_header_rec := NULL;
3889:
3890: IF (g_debug <= gme_debug.g_log_unexpected) THEN
3891: gme_debug.put_line ( 'When others exception in '
3892: || g_pkg_name
3893: || '.'
3894: || l_api_name
3895: || ' Error is '
3918: l_api_name CONSTANT VARCHAR2 (30) := 'UNRELEASE_BATCH';
3919: setup_failure EXCEPTION;
3920: batch_unrelease_failure EXCEPTION;
3921: BEGIN
3922: IF g_debug <= gme_debug.g_log_procedure THEN
3923: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
3924: || l_api_name);
3925: END IF;
3926:
3919: setup_failure EXCEPTION;
3920: batch_unrelease_failure EXCEPTION;
3921: BEGIN
3922: IF g_debug <= gme_debug.g_log_procedure THEN
3923: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
3924: || l_api_name);
3925: END IF;
3926:
3927: SAVEPOINT unrelease_batch;
3926:
3927: SAVEPOINT unrelease_batch;
3928:
3929: IF (g_debug IS NOT NULL) THEN
3930: gme_debug.log_initialize ('UnreleaseBatch');
3931: END IF;
3932:
3933: IF NOT gme_common_pvt.g_setup_done THEN
3934: gme_common_pvt.g_setup_done :=
3967: ,p_encoded => fnd_api.g_false
3968: ,x_data => x_message_list);
3969:
3970: IF (g_debug IS NOT NULL) THEN
3971: gme_debug.put_line ( 'Completed '
3972: || l_api_name
3973: || ' at '
3974: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3975: END IF;
3973: || ' at '
3974: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3975: END IF;
3976:
3977: IF g_debug <= gme_debug.g_log_procedure THEN
3978: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
3979: END IF;
3980: EXCEPTION
3981: WHEN batch_unrelease_failure THEN
3974: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3975: END IF;
3976:
3977: IF g_debug <= gme_debug.g_log_procedure THEN
3978: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
3979: END IF;
3980: EXCEPTION
3981: WHEN batch_unrelease_failure THEN
3982: ROLLBACK TO SAVEPOINT unrelease_batch;
3991: ,p_encoded => fnd_api.g_false
3992: ,x_data => x_message_list);
3993: x_return_status := fnd_api.g_ret_sts_error;
3994: WHEN OTHERS THEN
3995: IF g_debug <= gme_debug.g_log_unexpected THEN
3996: gme_debug.put_line ( 'When others exception in '
3997: || g_pkg_name
3998: || '.'
3999: || l_api_name
3992: ,x_data => x_message_list);
3993: x_return_status := fnd_api.g_ret_sts_error;
3994: WHEN OTHERS THEN
3995: IF g_debug <= gme_debug.g_log_unexpected THEN
3996: gme_debug.put_line ( 'When others exception in '
3997: || g_pkg_name
3998: || '.'
3999: || l_api_name
4000: || ' Error is '
4025: l_api_name CONSTANT VARCHAR2 (30) := 'UNRELEASE_STEP';
4026: setup_failure EXCEPTION;
4027: step_unrelease_failure EXCEPTION;
4028: BEGIN
4029: IF g_debug <= gme_debug.g_log_procedure THEN
4030: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4031: || l_api_name);
4032: END IF;
4033:
4026: setup_failure EXCEPTION;
4027: step_unrelease_failure EXCEPTION;
4028: BEGIN
4029: IF g_debug <= gme_debug.g_log_procedure THEN
4030: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4031: || l_api_name);
4032: END IF;
4033:
4034: SAVEPOINT unrelease_step;
4033:
4034: SAVEPOINT unrelease_step;
4035:
4036: IF (g_debug IS NOT NULL) THEN
4037: gme_debug.log_initialize ('UnreleaseStep');
4038: END IF;
4039:
4040: IF NOT gme_common_pvt.g_setup_done THEN
4041: gme_common_pvt.g_setup_done :=
4077: ,p_encoded => fnd_api.g_false
4078: ,x_data => x_message_list);
4079:
4080: IF (g_debug IS NOT NULL) THEN
4081: gme_debug.put_line ( 'Completed '
4082: || l_api_name
4083: || ' at '
4084: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4085: END IF;
4083: || ' at '
4084: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4085: END IF;
4086:
4087: IF g_debug <= gme_debug.g_log_procedure THEN
4088: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
4089: END IF;
4090: EXCEPTION
4091: WHEN step_unrelease_failure THEN
4084: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4085: END IF;
4086:
4087: IF g_debug <= gme_debug.g_log_procedure THEN
4088: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
4089: END IF;
4090: EXCEPTION
4091: WHEN step_unrelease_failure THEN
4092: ROLLBACK TO SAVEPOINT unrelease_step;
4101: ,p_encoded => fnd_api.g_false
4102: ,x_data => x_message_list);
4103: x_return_status := fnd_api.g_ret_sts_error;
4104: WHEN OTHERS THEN
4105: IF g_debug <= gme_debug.g_log_unexpected THEN
4106: gme_debug.put_line ( 'When others exception in '
4107: || g_pkg_name
4108: || '.'
4109: || l_api_name
4102: ,x_data => x_message_list);
4103: x_return_status := fnd_api.g_ret_sts_error;
4104: WHEN OTHERS THEN
4105: IF g_debug <= gme_debug.g_log_unexpected THEN
4106: gme_debug.put_line ( 'When others exception in '
4107: || g_pkg_name
4108: || '.'
4109: || l_api_name
4110: || ' Error is '
4134: /* Set the save point initially */
4135: SAVEPOINT auto_detail_line;
4136:
4137: IF (g_debug IS NOT NULL) THEN
4138: gme_debug.log_initialize ('AutoDetailLine');
4139: END IF;
4140:
4141: IF g_debug <= gme_debug.g_log_procedure THEN
4142: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4137: IF (g_debug IS NOT NULL) THEN
4138: gme_debug.log_initialize ('AutoDetailLine');
4139: END IF;
4140:
4141: IF g_debug <= gme_debug.g_log_procedure THEN
4142: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4143: || l_api_name);
4144: END IF;
4145:
4138: gme_debug.log_initialize ('AutoDetailLine');
4139: END IF;
4140:
4141: IF g_debug <= gme_debug.g_log_procedure THEN
4142: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4143: || l_api_name);
4144: END IF;
4145:
4146: IF NOT gme_common_pvt.g_setup_done THEN
4172: END IF;
4173:
4174: gme_common_pvt.log_message ('GME_BATCH_AUTO_DETAIL_LINE');
4175:
4176: IF (g_debug <= gme_debug.g_log_procedure) THEN
4177: gme_debug.put_line ( 'Completed '
4178: || l_api_name
4179: || ' at '
4180: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4173:
4174: gme_common_pvt.log_message ('GME_BATCH_AUTO_DETAIL_LINE');
4175:
4176: IF (g_debug <= gme_debug.g_log_procedure) THEN
4177: gme_debug.put_line ( 'Completed '
4178: || l_api_name
4179: || ' at '
4180: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4181: END IF;
4185: gme_common_pvt.count_and_get (x_count => x_message_count
4186: ,p_encoded => fnd_api.g_false
4187: ,x_data => x_message_list);
4188: WHEN OTHERS THEN
4189: IF g_debug <= gme_debug.g_log_unexpected THEN
4190: gme_debug.put_line ( 'When others exception in '
4191: || g_pkg_name
4192: || '.'
4193: || l_api_name
4186: ,p_encoded => fnd_api.g_false
4187: ,x_data => x_message_list);
4188: WHEN OTHERS THEN
4189: IF g_debug <= gme_debug.g_log_unexpected THEN
4190: gme_debug.put_line ( 'When others exception in '
4191: || g_pkg_name
4192: || '.'
4193: || l_api_name
4194: || ' Error is '
4219: /* Set the save point initially */
4220: SAVEPOINT auto_detail_batch;
4221:
4222: IF (g_debug IS NOT NULL) THEN
4223: gme_debug.log_initialize ('AutoDetailBatch');
4224: END IF;
4225:
4226: IF g_debug <= gme_debug.g_log_procedure THEN
4227: gme_debug.put_line ('Entering api ' || g_pkg_name || '.' || l_api_name);
4222: IF (g_debug IS NOT NULL) THEN
4223: gme_debug.log_initialize ('AutoDetailBatch');
4224: END IF;
4225:
4226: IF g_debug <= gme_debug.g_log_procedure THEN
4227: gme_debug.put_line ('Entering api ' || g_pkg_name || '.' || l_api_name);
4228: END IF;
4229:
4230: IF NOT gme_common_pvt.g_setup_done THEN
4223: gme_debug.log_initialize ('AutoDetailBatch');
4224: END IF;
4225:
4226: IF g_debug <= gme_debug.g_log_procedure THEN
4227: gme_debug.put_line ('Entering api ' || g_pkg_name || '.' || l_api_name);
4228: END IF;
4229:
4230: IF NOT gme_common_pvt.g_setup_done THEN
4231: gme_common_pvt.g_setup_done :=
4255: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4256: RAISE auto_detail_failure;
4257: END IF;
4258: gme_common_pvt.log_message ('GME_BATCH_AUTO_DETAIL_BATCH');
4259: IF (g_debug <= gme_debug.g_log_procedure) THEN
4260: gme_debug.put_line ( 'Completed '
4261: || l_api_name
4262: || ' at '
4263: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4256: RAISE auto_detail_failure;
4257: END IF;
4258: gme_common_pvt.log_message ('GME_BATCH_AUTO_DETAIL_BATCH');
4259: IF (g_debug <= gme_debug.g_log_procedure) THEN
4260: gme_debug.put_line ( 'Completed '
4261: || l_api_name
4262: || ' at '
4263: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4264: END IF;
4268: gme_common_pvt.count_and_get (x_count => x_message_count,
4269: p_encoded => fnd_api.g_false,
4270: x_data => x_message_list);
4271: WHEN OTHERS THEN
4272: IF g_debug <= gme_debug.g_log_unexpected THEN
4273: gme_debug.put_line ( 'When others exception in '
4274: || g_pkg_name
4275: || '.'
4276: || l_api_name
4269: p_encoded => fnd_api.g_false,
4270: x_data => x_message_list);
4271: WHEN OTHERS THEN
4272: IF g_debug <= gme_debug.g_log_unexpected THEN
4273: gme_debug.put_line ( 'When others exception in '
4274: || g_pkg_name
4275: || '.'
4276: || l_api_name
4277: || ' Error is '
4301: l_api_name CONSTANT VARCHAR2 (30) := 'create_pending_product_lot';
4302: setup_failure EXCEPTION;
4303: create_pp_lot_failure EXCEPTION;
4304: BEGIN
4305: IF g_debug <= gme_debug.g_log_procedure THEN
4306: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4307: || l_api_name);
4308: END IF;
4309:
4302: setup_failure EXCEPTION;
4303: create_pp_lot_failure EXCEPTION;
4304: BEGIN
4305: IF g_debug <= gme_debug.g_log_procedure THEN
4306: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4307: || l_api_name);
4308: END IF;
4309:
4310: SAVEPOINT create_pp_lot;
4309:
4310: SAVEPOINT create_pp_lot;
4311:
4312: IF (g_debug IS NOT NULL) THEN
4313: gme_debug.log_initialize ('CreatePendingProdLot');
4314: END IF;
4315:
4316: IF NOT gme_common_pvt.g_setup_done THEN
4317: gme_common_pvt.g_setup_done :=
4349: ,p_encoded => fnd_api.g_false
4350: ,x_data => x_message_list);
4351:
4352: IF (g_debug IS NOT NULL) THEN
4353: gme_debug.put_line ( 'Completed '
4354: || l_api_name
4355: || ' at '
4356: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4357: END IF;
4355: || ' at '
4356: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4357: END IF;
4358:
4359: IF g_debug <= gme_debug.g_log_procedure THEN
4360: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
4361: END IF;
4362: EXCEPTION
4363: WHEN create_pp_lot_failure THEN
4356: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4357: END IF;
4358:
4359: IF g_debug <= gme_debug.g_log_procedure THEN
4360: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
4361: END IF;
4362: EXCEPTION
4363: WHEN create_pp_lot_failure THEN
4364: ROLLBACK TO SAVEPOINT create_pp_lot;
4373: ,p_encoded => fnd_api.g_false
4374: ,x_data => x_message_list);
4375: x_return_status := fnd_api.g_ret_sts_error;
4376: WHEN OTHERS THEN
4377: IF g_debug <= gme_debug.g_log_unexpected THEN
4378: gme_debug.put_line ( 'When others exception in '
4379: || g_pkg_name
4380: || '.'
4381: || l_api_name
4374: ,x_data => x_message_list);
4375: x_return_status := fnd_api.g_ret_sts_error;
4376: WHEN OTHERS THEN
4377: IF g_debug <= gme_debug.g_log_unexpected THEN
4378: gme_debug.put_line ( 'When others exception in '
4379: || g_pkg_name
4380: || '.'
4381: || l_api_name
4382: || ' Error is '
4405: l_api_name CONSTANT VARCHAR2 (30) := 'update_pending_product_lot';
4406: setup_failure EXCEPTION;
4407: update_pp_lot_failure EXCEPTION;
4408: BEGIN
4409: IF g_debug <= gme_debug.g_log_procedure THEN
4410: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4411: || l_api_name);
4412: END IF;
4413:
4406: setup_failure EXCEPTION;
4407: update_pp_lot_failure EXCEPTION;
4408: BEGIN
4409: IF g_debug <= gme_debug.g_log_procedure THEN
4410: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4411: || l_api_name);
4412: END IF;
4413:
4414: SAVEPOINT update_pp_lot;
4413:
4414: SAVEPOINT update_pp_lot;
4415:
4416: IF (g_debug IS NOT NULL) THEN
4417: gme_debug.log_initialize ('UpdatePendingProdLot');
4418: END IF;
4419:
4420: IF NOT gme_common_pvt.g_setup_done THEN
4421: gme_common_pvt.g_setup_done :=
4454: ,p_encoded => fnd_api.g_false
4455: ,x_data => x_message_list);
4456:
4457: IF (g_debug IS NOT NULL) THEN
4458: gme_debug.put_line ( 'Completed '
4459: || l_api_name
4460: || ' at '
4461: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4462: END IF;
4460: || ' at '
4461: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4462: END IF;
4463:
4464: IF g_debug <= gme_debug.g_log_procedure THEN
4465: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
4466: END IF;
4467: EXCEPTION
4468: WHEN update_pp_lot_failure THEN
4461: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4462: END IF;
4463:
4464: IF g_debug <= gme_debug.g_log_procedure THEN
4465: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
4466: END IF;
4467: EXCEPTION
4468: WHEN update_pp_lot_failure THEN
4469: ROLLBACK TO SAVEPOINT update_pp_lot;
4478: ,p_encoded => fnd_api.g_false
4479: ,x_data => x_message_list);
4480: x_return_status := fnd_api.g_ret_sts_error;
4481: WHEN OTHERS THEN
4482: IF g_debug <= gme_debug.g_log_unexpected THEN
4483: gme_debug.put_line ( 'When others exception in '
4484: || g_pkg_name
4485: || '.'
4486: || l_api_name
4479: ,x_data => x_message_list);
4480: x_return_status := fnd_api.g_ret_sts_error;
4481: WHEN OTHERS THEN
4482: IF g_debug <= gme_debug.g_log_unexpected THEN
4483: gme_debug.put_line ( 'When others exception in '
4484: || g_pkg_name
4485: || '.'
4486: || l_api_name
4487: || ' Error is '
4509: l_api_name CONSTANT VARCHAR2 (30) := 'delete_pending_product_lot';
4510: setup_failure EXCEPTION;
4511: delete_pp_lot_failure EXCEPTION;
4512: BEGIN
4513: IF g_debug <= gme_debug.g_log_procedure THEN
4514: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4515: || l_api_name);
4516: END IF;
4517:
4510: setup_failure EXCEPTION;
4511: delete_pp_lot_failure EXCEPTION;
4512: BEGIN
4513: IF g_debug <= gme_debug.g_log_procedure THEN
4514: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4515: || l_api_name);
4516: END IF;
4517:
4518: SAVEPOINT delete_pp_lot;
4517:
4518: SAVEPOINT delete_pp_lot;
4519:
4520: IF (g_debug IS NOT NULL) THEN
4521: gme_debug.log_initialize ('DeletePendingProdLot');
4522: END IF;
4523:
4524: IF NOT gme_common_pvt.g_setup_done THEN
4525: gme_common_pvt.g_setup_done :=
4556: ,p_encoded => fnd_api.g_false
4557: ,x_data => x_message_list);
4558:
4559: IF (g_debug IS NOT NULL) THEN
4560: gme_debug.put_line ( 'Completed '
4561: || l_api_name
4562: || ' at '
4563: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4564: END IF;
4562: || ' at '
4563: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4564: END IF;
4565:
4566: IF g_debug <= gme_debug.g_log_procedure THEN
4567: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
4568: END IF;
4569: EXCEPTION
4570: WHEN delete_pp_lot_failure THEN
4563: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4564: END IF;
4565:
4566: IF g_debug <= gme_debug.g_log_procedure THEN
4567: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
4568: END IF;
4569: EXCEPTION
4570: WHEN delete_pp_lot_failure THEN
4571: ROLLBACK TO SAVEPOINT delete_pp_lot;
4578: ,p_encoded => fnd_api.g_false
4579: ,x_data => x_message_list);
4580: x_return_status := fnd_api.g_ret_sts_error;
4581: WHEN OTHERS THEN
4582: IF g_debug <= gme_debug.g_log_unexpected THEN
4583: gme_debug.put_line ( 'When others exception in '
4584: || g_pkg_name
4585: || '.'
4586: || l_api_name
4579: ,x_data => x_message_list);
4580: x_return_status := fnd_api.g_ret_sts_error;
4581: WHEN OTHERS THEN
4582: IF g_debug <= gme_debug.g_log_unexpected THEN
4583: gme_debug.put_line ( 'When others exception in '
4584: || g_pkg_name
4585: || '.'
4586: || l_api_name
4587: || ' Error is '