[Home] [Help]
34: BEGIN
35: SAVEPOINT create_batch;
36:
37: IF (g_debug IS NOT NULL) THEN
38: gme_debug.log_initialize ('CreateBatch');
39: END IF;
40:
41: IF g_debug <= gme_debug.g_log_procedure THEN
42: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
37: IF (g_debug IS NOT NULL) THEN
38: gme_debug.log_initialize ('CreateBatch');
39: END IF;
40:
41: IF g_debug <= gme_debug.g_log_procedure THEN
42: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
43: || l_api_name);
44: END IF;
45:
38: gme_debug.log_initialize ('CreateBatch');
39: END IF;
40:
41: IF g_debug <= gme_debug.g_log_procedure THEN
42: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
43: || l_api_name);
44: END IF;
45:
46: IF NOT gme_common_pvt.g_setup_done THEN
89: ,p_encoded => fnd_api.g_false
90: ,x_data => x_message_list);
91:
92: IF (g_debug IS NOT NULL) THEN
93: gme_debug.put_line ( 'Completed '
94: || l_api_name
95: || ' at '
96: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
97: END IF;
95: || ' at '
96: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
97: END IF;
98:
99: IF g_debug <= gme_debug.g_log_procedure THEN
100: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
101: END IF;
102: EXCEPTION
103: WHEN batch_creation_failure THEN
96: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
97: END IF;
98:
99: IF g_debug <= gme_debug.g_log_procedure THEN
100: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
101: END IF;
102: EXCEPTION
103: WHEN batch_creation_failure THEN
104: IF x_return_status NOT IN (gme_common_pvt.g_inv_short_err) THEN
116: ,p_encoded => fnd_api.g_false
117: ,x_data => x_message_list);
118: x_return_status := fnd_api.g_ret_sts_error;
119: WHEN OTHERS THEN
120: IF g_debug <= gme_debug.g_log_unexpected THEN
121: gme_debug.put_line ( 'When others exception in '
122: || g_pkg_name
123: || '.'
124: || l_api_name
117: ,x_data => x_message_list);
118: x_return_status := fnd_api.g_ret_sts_error;
119: WHEN OTHERS THEN
120: IF g_debug <= gme_debug.g_log_unexpected THEN
121: gme_debug.put_line ( 'When others exception in '
122: || g_pkg_name
123: || '.'
124: || l_api_name
125: || ' Error is '
160: /* Set the save point initially */
161: SAVEPOINT create_phantom;
162:
163: IF (g_debug IS NOT NULL) THEN
164: gme_debug.log_initialize ('CreatePhantom');
165: END IF;
166:
167: IF g_debug <= gme_debug.g_log_procedure THEN
168: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
163: IF (g_debug IS NOT NULL) THEN
164: gme_debug.log_initialize ('CreatePhantom');
165: END IF;
166:
167: IF g_debug <= gme_debug.g_log_procedure THEN
168: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
169: || l_api_name);
170: END IF;
171:
164: gme_debug.log_initialize ('CreatePhantom');
165: END IF;
166:
167: IF g_debug <= gme_debug.g_log_procedure THEN
168: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
169: || l_api_name);
170: END IF;
171:
172: IF NOT gme_common_pvt.g_setup_done THEN
203: IF x_return_status <> fnd_api.g_ret_sts_success THEN
204: RAISE phantom_creation_failure;
205: END IF;
206:
207: IF (g_debug <= gme_debug.g_log_procedure) THEN
208: gme_debug.put_line ( 'Completed '
209: || l_api_name
210: || ' at '
211: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
204: RAISE phantom_creation_failure;
205: END IF;
206:
207: IF (g_debug <= gme_debug.g_log_procedure) THEN
208: gme_debug.put_line ( 'Completed '
209: || l_api_name
210: || ' at '
211: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
212: END IF;
217: gme_common_pvt.count_and_get (x_count => x_message_count
218: ,p_encoded => fnd_api.g_false
219: ,x_data => x_message_list);
220: WHEN OTHERS THEN
221: IF g_debug <= gme_debug.g_log_unexpected THEN
222: gme_debug.put_line ( 'When others exception in '
223: || g_pkg_name
224: || '.'
225: || l_api_name
218: ,p_encoded => fnd_api.g_false
219: ,x_data => x_message_list);
220: WHEN OTHERS THEN
221: IF g_debug <= gme_debug.g_log_unexpected THEN
222: gme_debug.put_line ( 'When others exception in '
223: || g_pkg_name
224: || '.'
225: || l_api_name
226: || ' Error is '
261: /* Set the savepoint before proceeding */
262: SAVEPOINT scale_batch;
263:
264: IF (g_debug IS NOT NULL) THEN
265: gme_debug.log_initialize ('ScaleBatch');
266: END IF;
267:
268: IF g_debug <= gme_debug.g_log_procedure THEN
269: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
264: IF (g_debug IS NOT NULL) THEN
265: gme_debug.log_initialize ('ScaleBatch');
266: END IF;
267:
268: IF g_debug <= gme_debug.g_log_procedure THEN
269: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
270: || l_api_name);
271: END IF;
272:
265: gme_debug.log_initialize ('ScaleBatch');
266: END IF;
267:
268: IF g_debug <= gme_debug.g_log_procedure THEN
269: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
270: || l_api_name);
271: END IF;
272:
273: /* Setup the common constants used accross the apis */
307: IF x_return_status NOT IN (fnd_api.g_ret_sts_success, 'C', 'W') THEN
308: RAISE scale_batch_failed;
309: END IF;
310: gme_common_pvt.log_message ('GME_SCALE_SUCCESS');
311: IF (g_debug <= gme_debug.g_log_procedure) THEN
312: gme_debug.put_line ( 'Completed '
313: || l_api_name
314: || ' at '
315: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
308: RAISE scale_batch_failed;
309: END IF;
310: gme_common_pvt.log_message ('GME_SCALE_SUCCESS');
311: IF (g_debug <= gme_debug.g_log_procedure) THEN
312: gme_debug.put_line ( 'Completed '
313: || l_api_name
314: || ' at '
315: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
316: END IF;
363: /* Set the savepoint before proceeding */
364: SAVEPOINT theoretical_yield_batch;
365:
366: IF (g_debug IS NOT NULL) THEN
367: gme_debug.log_initialize ('TheoreticalYieldBatch');
368: END IF;
369:
370: IF g_debug <= gme_debug.g_log_procedure THEN
371: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
366: IF (g_debug IS NOT NULL) THEN
367: gme_debug.log_initialize ('TheoreticalYieldBatch');
368: END IF;
369:
370: IF g_debug <= gme_debug.g_log_procedure THEN
371: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
372: || l_api_name);
373: END IF;
374:
367: gme_debug.log_initialize ('TheoreticalYieldBatch');
368: END IF;
369:
370: IF g_debug <= gme_debug.g_log_procedure THEN
371: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
372: || l_api_name);
373: END IF;
374:
375: /* Setup the common constants used accross the apis */
402: gme_common_pvt.count_and_get (x_count => x_message_count
403: ,p_encoded => fnd_api.g_false
404: ,x_data => x_message_list);
405:
406: IF (g_debug <= gme_debug.g_log_procedure) THEN
407: gme_debug.put_line ( 'Completed '
408: || l_api_name
409: || ' at '
410: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
403: ,p_encoded => fnd_api.g_false
404: ,x_data => x_message_list);
405:
406: IF (g_debug <= gme_debug.g_log_procedure) THEN
407: gme_debug.put_line ( 'Completed '
408: || l_api_name
409: || ' at '
410: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
411: END IF;
462:
463: SAVEPOINT insert_material_line1;
464:
465: IF (g_debug IS NOT NULL) THEN
466: gme_debug.log_initialize ('InsertMaterialLineForm');
467: END IF;
468:
469: IF g_debug <= gme_debug.g_log_procedure THEN
470: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
465: IF (g_debug IS NOT NULL) THEN
466: gme_debug.log_initialize ('InsertMaterialLineForm');
467: END IF;
468:
469: IF g_debug <= gme_debug.g_log_procedure THEN
470: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
471: || l_api_name);
472: END IF;
473:
466: gme_debug.log_initialize ('InsertMaterialLineForm');
467: END IF;
468:
469: IF g_debug <= gme_debug.g_log_procedure THEN
470: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
471: || l_api_name);
472: END IF;
473:
474: IF NOT gme_common_pvt.g_setup_done THEN
547: ,p_encoded => fnd_api.g_false
548: ,x_data => x_message_list);
549:
550: IF (g_debug IS NOT NULL) THEN
551: gme_debug.put_line ( 'Completed '
552: || l_api_name
553: || ' at '
554: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
555: END IF;
580: WHEN OTHERS THEN
581: ROLLBACK TO SAVEPOINT insert_material_line1;
582: x_material_detail_rec := NULL;
583:
584: IF (g_debug <= gme_debug.g_log_unexpected) THEN
585: gme_debug.put_line ( g_pkg_name
586: || '.'
587: || l_api_name
588: || ':'
581: ROLLBACK TO SAVEPOINT insert_material_line1;
582: x_material_detail_rec := NULL;
583:
584: IF (g_debug <= gme_debug.g_log_unexpected) THEN
585: gme_debug.put_line ( g_pkg_name
586: || '.'
587: || l_api_name
588: || ':'
589: || 'When others exception:'
621:
622: SAVEPOINT insert_material_line;
623:
624: IF (g_debug IS NOT NULL) THEN
625: gme_debug.log_initialize ('InsertMaterialLine');
626: END IF;
627:
628: IF g_debug <= gme_debug.g_log_procedure THEN
629: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
624: IF (g_debug IS NOT NULL) THEN
625: gme_debug.log_initialize ('InsertMaterialLine');
626: END IF;
627:
628: IF g_debug <= gme_debug.g_log_procedure THEN
629: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
630: || l_api_name);
631: END IF;
632:
625: gme_debug.log_initialize ('InsertMaterialLine');
626: END IF;
627:
628: IF g_debug <= gme_debug.g_log_procedure THEN
629: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
630: || l_api_name);
631: END IF;
632:
633: IF NOT gme_common_pvt.g_setup_done THEN
668: ,p_encoded => fnd_api.g_false
669: ,x_data => x_message_list);
670:
671: IF (g_debug IS NOT NULL) THEN
672: gme_debug.put_line ( 'Completed '
673: || l_api_name
674: || ' at '
675: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
676: END IF;
697: WHEN OTHERS THEN
698: ROLLBACK TO SAVEPOINT insert_material_line;
699: x_material_detail_rec := NULL;
700:
701: IF (g_debug <= gme_debug.g_log_unexpected) THEN
702: gme_debug.put_line ( g_pkg_name
703: || '.'
704: || l_api_name
705: || ':'
698: ROLLBACK TO SAVEPOINT insert_material_line;
699: x_material_detail_rec := NULL;
700:
701: IF (g_debug <= gme_debug.g_log_unexpected) THEN
702: gme_debug.put_line ( g_pkg_name
703: || '.'
704: || l_api_name
705: || ':'
706: || 'When others exception:'
744:
745: SAVEPOINT update_material_line1;
746:
747: IF (g_debug IS NOT NULL) THEN
748: gme_debug.log_initialize ('UpdateMaterialLineForm');
749: END IF;
750:
751: IF g_debug <= gme_debug.g_log_procedure THEN
752: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
747: IF (g_debug IS NOT NULL) THEN
748: gme_debug.log_initialize ('UpdateMaterialLineForm');
749: END IF;
750:
751: IF g_debug <= gme_debug.g_log_procedure THEN
752: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
753: || l_api_name);
754: END IF;
755:
748: gme_debug.log_initialize ('UpdateMaterialLineForm');
749: END IF;
750:
751: IF g_debug <= gme_debug.g_log_procedure THEN
752: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
753: || l_api_name);
754: END IF;
755:
756: IF NOT gme_common_pvt.g_setup_done THEN
826: ,p_encoded => fnd_api.g_false
827: ,x_data => x_message_list);
828:
829: IF (g_debug IS NOT NULL) THEN
830: gme_debug.put_line ( 'Completed '
831: || l_api_name
832: || ' at '
833: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
834: END IF;
855: WHEN OTHERS THEN
856: ROLLBACK TO SAVEPOINT update_material_line1;
857: x_material_detail_rec := NULL;
858:
859: IF (g_debug <= gme_debug.g_log_unexpected) THEN
860: gme_debug.put_line ( g_pkg_name
861: || '.'
862: || l_api_name
863: || ':'
856: ROLLBACK TO SAVEPOINT update_material_line1;
857: x_material_detail_rec := NULL;
858:
859: IF (g_debug <= gme_debug.g_log_unexpected) THEN
860: gme_debug.put_line ( g_pkg_name
861: || '.'
862: || l_api_name
863: || ':'
864: || 'When others exception:'
896: BEGIN
897: SAVEPOINT update_material_line;
898:
899: IF (g_debug IS NOT NULL) THEN
900: gme_debug.log_initialize ('UpdateMaterialLine');
901: END IF;
902:
903: IF g_debug <= gme_debug.g_log_procedure THEN
904: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
899: IF (g_debug IS NOT NULL) THEN
900: gme_debug.log_initialize ('UpdateMaterialLine');
901: END IF;
902:
903: IF g_debug <= gme_debug.g_log_procedure THEN
904: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
905: || l_api_name);
906: END IF;
907:
900: gme_debug.log_initialize ('UpdateMaterialLine');
901: END IF;
902:
903: IF g_debug <= gme_debug.g_log_procedure THEN
904: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
905: || l_api_name);
906: END IF;
907:
908: IF NOT gme_common_pvt.g_setup_done THEN
947: ,p_encoded => fnd_api.g_false
948: ,x_data => x_message_list);
949:
950: IF (g_debug IS NOT NULL) THEN
951: gme_debug.put_line ( 'Completed '
952: || l_api_name
953: || ' at '
954: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
955: END IF;
976: WHEN OTHERS THEN
977: ROLLBACK TO SAVEPOINT update_material_line;
978: x_material_detail_rec := NULL;
979:
980: IF (g_debug <= gme_debug.g_log_unexpected) THEN
981: gme_debug.put_line ( g_pkg_name
982: || '.'
983: || l_api_name
984: || ':'
977: ROLLBACK TO SAVEPOINT update_material_line;
978: x_material_detail_rec := NULL;
979:
980: IF (g_debug <= gme_debug.g_log_unexpected) THEN
981: gme_debug.put_line ( g_pkg_name
982: || '.'
983: || l_api_name
984: || ':'
985: || 'When others exception:'
1024:
1025: SAVEPOINT delete_material_line1;
1026:
1027: IF (g_debug IS NOT NULL) THEN
1028: gme_debug.log_initialize ('DeleteMaterialLineForm');
1029: END IF;
1030:
1031: IF g_debug <= gme_debug.g_log_procedure THEN
1032: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1027: IF (g_debug IS NOT NULL) THEN
1028: gme_debug.log_initialize ('DeleteMaterialLineForm');
1029: END IF;
1030:
1031: IF g_debug <= gme_debug.g_log_procedure THEN
1032: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1033: || l_api_name);
1034: END IF;
1035:
1028: gme_debug.log_initialize ('DeleteMaterialLineForm');
1029: END IF;
1030:
1031: IF g_debug <= gme_debug.g_log_procedure THEN
1032: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1033: || l_api_name);
1034: END IF;
1035:
1036: IF NOT gme_common_pvt.g_setup_done THEN
1111: ,p_encoded => fnd_api.g_false
1112: ,x_data => x_message_list);
1113:
1114: IF (g_debug IS NOT NULL) THEN
1115: gme_debug.put_line ( 'Completed '
1116: || l_api_name
1117: || ' at '
1118: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1119: END IF;
1141: x_return_status := fnd_api.g_ret_sts_error;
1142: WHEN OTHERS THEN
1143: ROLLBACK TO SAVEPOINT delete_material_line1;
1144:
1145: IF (g_debug <= gme_debug.g_log_unexpected) THEN
1146: gme_debug.put_line ( g_pkg_name
1147: || '.'
1148: || l_api_name
1149: || ':'
1142: WHEN OTHERS THEN
1143: ROLLBACK TO SAVEPOINT delete_material_line1;
1144:
1145: IF (g_debug <= gme_debug.g_log_unexpected) THEN
1146: gme_debug.put_line ( g_pkg_name
1147: || '.'
1148: || l_api_name
1149: || ':'
1150: || 'When others exception:'
1180:
1181: SAVEPOINT delete_material_line;
1182:
1183: IF (g_debug IS NOT NULL) THEN
1184: gme_debug.log_initialize ('DeleteMaterialLine');
1185: END IF;
1186:
1187: IF g_debug <= gme_debug.g_log_procedure THEN
1188: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1183: IF (g_debug IS NOT NULL) THEN
1184: gme_debug.log_initialize ('DeleteMaterialLine');
1185: END IF;
1186:
1187: IF g_debug <= gme_debug.g_log_procedure THEN
1188: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1189: || l_api_name);
1190: END IF;
1191:
1184: gme_debug.log_initialize ('DeleteMaterialLine');
1185: END IF;
1186:
1187: IF g_debug <= gme_debug.g_log_procedure THEN
1188: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1189: || l_api_name);
1190: END IF;
1191:
1192: IF NOT gme_common_pvt.g_setup_done THEN
1223: ,p_encoded => fnd_api.g_false
1224: ,x_data => x_message_list);
1225:
1226: IF (g_debug IS NOT NULL) THEN
1227: gme_debug.put_line ( 'Completed '
1228: || l_api_name
1229: || ' at '
1230: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1231: END IF;
1249: x_return_status := fnd_api.g_ret_sts_error;
1250: WHEN OTHERS THEN
1251: ROLLBACK TO SAVEPOINT delete_material_line;
1252:
1253: IF (g_debug <= gme_debug.g_log_unexpected) THEN
1254: gme_debug.put_line ( g_pkg_name
1255: || '.'
1256: || l_api_name
1257: || ':'
1250: WHEN OTHERS THEN
1251: ROLLBACK TO SAVEPOINT delete_material_line;
1252:
1253: IF (g_debug <= gme_debug.g_log_unexpected) THEN
1254: gme_debug.put_line ( g_pkg_name
1255: || '.'
1256: || l_api_name
1257: || ':'
1258: || 'When others exception:'
1284: /* Set the savepoint before proceeding */
1285: SAVEPOINT reschedule_batch;
1286:
1287: IF (g_debug IS NOT NULL) THEN
1288: gme_debug.log_initialize ('RescheduleBatch');
1289: END IF;
1290:
1291: IF (NVL (g_debug, 0) IN
1292: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1288: gme_debug.log_initialize ('RescheduleBatch');
1289: END IF;
1290:
1291: IF (NVL (g_debug, 0) IN
1292: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1293: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1294: || 'Entering');
1295: END IF;
1296:
1289: END IF;
1290:
1291: IF (NVL (g_debug, 0) IN
1292: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1293: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1294: || 'Entering');
1295: END IF;
1296:
1297: IF NOT gme_common_pvt.g_setup_done THEN
1311: END IF;
1312:
1313: gme_common_pvt.set_timestamp;
1314:
1315: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
1316: gme_debug.put_line ( g_pkg_name
1317: || '.'
1318: || l_api_name
1319: || ':'
1312:
1313: gme_common_pvt.set_timestamp;
1314:
1315: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
1316: gme_debug.put_line ( g_pkg_name
1317: || '.'
1318: || l_api_name
1319: || ':'
1320: || 'Calling Pvt Reschedule Batch');
1326: ,p_contiguity_override => p_contiguity_override
1327: ,x_batch_header_rec => x_batch_header_rec
1328: ,x_return_status => x_return_status);
1329:
1330: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1331: gme_debug.put_line
1332: ( 'Came back from Pvt Reschedule Batch with status '
1333: || x_return_status);
1334: END IF;
1327: ,x_batch_header_rec => x_batch_header_rec
1328: ,x_return_status => x_return_status);
1329:
1330: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1331: gme_debug.put_line
1332: ( 'Came back from Pvt Reschedule Batch with status '
1333: || x_return_status);
1334: END IF;
1335: IF x_return_status NOT IN (fnd_api.g_ret_sts_success, 'C') THEN
1339: gme_common_pvt.count_and_get (x_count => x_message_count
1340: ,p_encoded => fnd_api.g_false
1341: ,x_data => x_message_list);
1342:
1343: IF g_debug <= gme_debug.g_log_procedure THEN
1344: gme_debug.put_line ( g_pkg_name
1345: || '.'
1346: || l_api_name
1347: || ':'
1340: ,p_encoded => fnd_api.g_false
1341: ,x_data => x_message_list);
1342:
1343: IF g_debug <= gme_debug.g_log_procedure THEN
1344: gme_debug.put_line ( g_pkg_name
1345: || '.'
1346: || l_api_name
1347: || ':'
1348: || 'Exiting with '
1401: /* Set the savepoint before proceeding */
1402: SAVEPOINT reschedule_batch_step;
1403:
1404: IF (g_debug IS NOT NULL) THEN
1405: gme_debug.log_initialize ('RescheduleStep');
1406: END IF;
1407:
1408: IF (NVL (g_debug, 0) IN
1409: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1405: gme_debug.log_initialize ('RescheduleStep');
1406: END IF;
1407:
1408: IF (NVL (g_debug, 0) IN
1409: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1410: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1411: || 'Entering');
1412: END IF;
1413:
1406: END IF;
1407:
1408: IF (NVL (g_debug, 0) IN
1409: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1410: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1411: || 'Entering');
1412: END IF;
1413:
1414: IF NOT gme_common_pvt.g_setup_done THEN
1428: END IF;
1429:
1430: gme_common_pvt.set_timestamp;
1431:
1432: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
1433: gme_debug.put_line ( g_pkg_name
1434: || '.'
1435: || l_api_name
1436: || ':'
1429:
1430: gme_common_pvt.set_timestamp;
1431:
1432: IF (NVL (g_debug, 0) = gme_debug.g_log_statement) THEN
1433: gme_debug.put_line ( g_pkg_name
1434: || '.'
1435: || l_api_name
1436: || ':'
1437: || 'Calling Pvt Reschedule Step');
1446: ,p_use_workday_cal => p_use_workday_cal
1447: ,x_batch_step_rec => x_batch_step_rec
1448: ,x_return_status => x_return_status);
1449:
1450: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1451: gme_debug.put_line
1452: ( 'Came back from Pvt Reschedule Step with status '
1453: || x_return_status);
1454: END IF;
1447: ,x_batch_step_rec => x_batch_step_rec
1448: ,x_return_status => x_return_status);
1449:
1450: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1451: gme_debug.put_line
1452: ( 'Came back from Pvt Reschedule Step with status '
1453: || x_return_status);
1454: END IF;
1455:
1467: gme_common_pvt.count_and_get (x_count => x_message_count
1468: ,p_encoded => fnd_api.g_false
1469: ,x_data => x_message_list);
1470:
1471: IF g_debug <= gme_debug.g_log_procedure THEN
1472: gme_debug.put_line ( g_pkg_name
1473: || '.'
1474: || l_api_name
1475: || ':'
1468: ,p_encoded => fnd_api.g_false
1469: ,x_data => x_message_list);
1470:
1471: IF g_debug <= gme_debug.g_log_procedure THEN
1472: gme_debug.put_line ( g_pkg_name
1473: || '.'
1474: || l_api_name
1475: || ':'
1476: || 'Exiting with '
1511: := 'CREATE_BATCH_RESERVATIONS';
1512: setup_failure EXCEPTION;
1513: batch_reservations_failure EXCEPTION;
1514: BEGIN
1515: IF g_debug <= gme_debug.g_log_procedure THEN
1516: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1517: || l_api_name);
1518: END IF;
1519:
1512: setup_failure EXCEPTION;
1513: batch_reservations_failure EXCEPTION;
1514: BEGIN
1515: IF g_debug <= gme_debug.g_log_procedure THEN
1516: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1517: || l_api_name);
1518: END IF;
1519:
1520: SAVEPOINT create_batch_reservations;
1519:
1520: SAVEPOINT create_batch_reservations;
1521:
1522: IF (g_debug IS NOT NULL) THEN
1523: gme_debug.log_initialize ('CreateBatchReservations');
1524: END IF;
1525:
1526: IF NOT gme_common_pvt.g_setup_done THEN
1527: gme_common_pvt.g_setup_done :=
1554:
1555: gme_common_pvt.log_message ('GME_BATCH_HI_RESR_CREATED');
1556:
1557: IF (g_debug IS NOT NULL) THEN
1558: gme_debug.put_line ( 'Completed '
1559: || l_api_name
1560: || ' at '
1561: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1562: END IF;
1560: || ' at '
1561: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1562: END IF;
1563:
1564: IF g_debug <= gme_debug.g_log_procedure THEN
1565: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1566: END IF;
1567: EXCEPTION
1568: WHEN batch_reservations_failure THEN
1561: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1562: END IF;
1563:
1564: IF g_debug <= gme_debug.g_log_procedure THEN
1565: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1566: END IF;
1567: EXCEPTION
1568: WHEN batch_reservations_failure THEN
1569: ROLLBACK TO SAVEPOINT create_batch_reservations;
1570: gme_common_pvt.count_and_get (x_count => x_message_count
1571: ,p_encoded => fnd_api.g_false
1572: ,x_data => x_message_list);
1573: WHEN OTHERS THEN
1574: IF g_debug <= gme_debug.g_log_unexpected THEN
1575: gme_debug.put_line ( 'When others exception in '
1576: || g_pkg_name
1577: || '.'
1578: || l_api_name
1571: ,p_encoded => fnd_api.g_false
1572: ,x_data => x_message_list);
1573: WHEN OTHERS THEN
1574: IF g_debug <= gme_debug.g_log_unexpected THEN
1575: gme_debug.put_line ( 'When others exception in '
1576: || g_pkg_name
1577: || '.'
1578: || l_api_name
1579: || ' Error is '
1609: setup_failure EXCEPTION;
1610: get_open_qty_failure EXCEPTION;
1611: line_reservation_failure EXCEPTION;
1612: BEGIN
1613: IF g_debug <= gme_debug.g_log_procedure THEN
1614: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1615: || l_api_name);
1616: END IF;
1617:
1610: get_open_qty_failure EXCEPTION;
1611: line_reservation_failure EXCEPTION;
1612: BEGIN
1613: IF g_debug <= gme_debug.g_log_procedure THEN
1614: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1615: || l_api_name);
1616: END IF;
1617:
1618: SAVEPOINT create_line_reservations;
1617:
1618: SAVEPOINT create_line_reservations;
1619:
1620: IF (g_debug IS NOT NULL) THEN
1621: gme_debug.log_initialize ('CreateLineReservations');
1622: END IF;
1623:
1624: IF NOT gme_common_pvt.g_setup_done THEN
1625: gme_common_pvt.g_setup_done :=
1659: ,p_item_restrict_locators => l_restrict_locators_code
1660: ,x_open_qty => l_open_qty
1661: ,x_return_status => x_return_status);
1662:
1663: IF (g_debug <= gme_debug.g_log_statement) THEN
1664: gme_debug.put_line ( g_pkg_name
1665: || '.'
1666: || l_api_name
1667: || ':'
1660: ,x_open_qty => l_open_qty
1661: ,x_return_status => x_return_status);
1662:
1663: IF (g_debug <= gme_debug.g_log_statement) THEN
1664: gme_debug.put_line ( g_pkg_name
1665: || '.'
1666: || l_api_name
1667: || ':'
1668: || 'get_open_qty returns status: '
1680: (p_matl_dtl_rec => p_matl_dtl_rec
1681: ,p_resv_qty => l_open_qty
1682: ,x_return_status => x_return_status);
1683:
1684: IF (g_debug <= gme_debug.g_log_statement) THEN
1685: gme_debug.put_line ( g_pkg_name
1686: || '.'
1687: || l_api_name
1688: || ':'
1681: ,p_resv_qty => l_open_qty
1682: ,x_return_status => x_return_status);
1683:
1684: IF (g_debug <= gme_debug.g_log_statement) THEN
1685: gme_debug.put_line ( g_pkg_name
1686: || '.'
1687: || l_api_name
1688: || ':'
1689: || 'create_material_reservations returns status: '
1696: END IF;
1697:
1698: gme_common_pvt.log_message ('GME_LINE_HI_RESR_CREATED');
1699: IF (g_debug IS NOT NULL) THEN
1700: gme_debug.put_line ( 'Completed '
1701: || l_api_name
1702: || ' at '
1703: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1704: END IF;
1702: || ' at '
1703: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1704: END IF;
1705:
1706: IF g_debug <= gme_debug.g_log_procedure THEN
1707: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1708: END IF;
1709: EXCEPTION
1710: WHEN setup_failure OR get_open_qty_failure OR line_reservation_failure THEN
1703: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1704: END IF;
1705:
1706: IF g_debug <= gme_debug.g_log_procedure THEN
1707: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1708: END IF;
1709: EXCEPTION
1710: WHEN setup_failure OR get_open_qty_failure OR line_reservation_failure THEN
1711: ROLLBACK TO SAVEPOINT create_line_reservations;
1713: ,p_encoded => fnd_api.g_false
1714: ,x_data => x_message_list);
1715: x_return_status := fnd_api.g_ret_sts_error;
1716: WHEN OTHERS THEN
1717: IF g_debug <= gme_debug.g_log_unexpected THEN
1718: gme_debug.put_line ( 'When others exception in '
1719: || g_pkg_name
1720: || '.'
1721: || l_api_name
1714: ,x_data => x_message_list);
1715: x_return_status := fnd_api.g_ret_sts_error;
1716: WHEN OTHERS THEN
1717: IF g_debug <= gme_debug.g_log_unexpected THEN
1718: gme_debug.put_line ( 'When others exception in '
1719: || g_pkg_name
1720: || '.'
1721: || l_api_name
1722: || ' Error is '
1747: setup_failure EXCEPTION;
1748: batch_release_failure EXCEPTION;
1749: batch_release_exception EXCEPTION;
1750: BEGIN
1751: IF g_debug <= gme_debug.g_log_procedure THEN
1752: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1753: || l_api_name);
1754: END IF;
1755:
1748: batch_release_failure EXCEPTION;
1749: batch_release_exception EXCEPTION;
1750: BEGIN
1751: IF g_debug <= gme_debug.g_log_procedure THEN
1752: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1753: || l_api_name);
1754: END IF;
1755:
1756: SAVEPOINT release_batch;
1755:
1756: SAVEPOINT release_batch;
1757:
1758: IF (g_debug IS NOT NULL) THEN
1759: gme_debug.log_initialize ('ReleaseBatch');
1760: END IF;
1761:
1762: IF NOT gme_common_pvt.g_setup_done THEN
1763: gme_common_pvt.g_setup_done :=
1803: ,p_encoded => fnd_api.g_false
1804: ,x_data => x_message_list);
1805:
1806: IF (g_debug IS NOT NULL) THEN
1807: gme_debug.put_line ( 'Completed '
1808: || l_api_name
1809: || ' at '
1810: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1811: END IF;
1809: || ' at '
1810: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1811: END IF;
1812:
1813: IF g_debug <= gme_debug.g_log_procedure THEN
1814: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1815: END IF;
1816: EXCEPTION
1817: WHEN batch_release_failure THEN
1810: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1811: END IF;
1812:
1813: IF g_debug <= gme_debug.g_log_procedure THEN
1814: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1815: END IF;
1816: EXCEPTION
1817: WHEN batch_release_failure THEN
1818: ROLLBACK TO SAVEPOINT release_batch;
1827: ,p_encoded => fnd_api.g_false
1828: ,x_data => x_message_list);
1829: x_return_status := fnd_api.g_ret_sts_error;
1830: WHEN OTHERS THEN
1831: IF g_debug <= gme_debug.g_log_unexpected THEN
1832: gme_debug.put_line ( 'When others exception in '
1833: || g_pkg_name
1834: || '.'
1835: || l_api_name
1828: ,x_data => x_message_list);
1829: x_return_status := fnd_api.g_ret_sts_error;
1830: WHEN OTHERS THEN
1831: IF g_debug <= gme_debug.g_log_unexpected THEN
1832: gme_debug.put_line ( 'When others exception in '
1833: || g_pkg_name
1834: || '.'
1835: || l_api_name
1836: || ' Error is '
1863: setup_failure EXCEPTION;
1864: step_release_failure EXCEPTION;
1865: step_release_exception EXCEPTION;
1866: BEGIN
1867: IF g_debug <= gme_debug.g_log_procedure THEN
1868: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1869: || l_api_name);
1870: END IF;
1871:
1864: step_release_failure EXCEPTION;
1865: step_release_exception EXCEPTION;
1866: BEGIN
1867: IF g_debug <= gme_debug.g_log_procedure THEN
1868: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1869: || l_api_name);
1870: END IF;
1871:
1872: SAVEPOINT release_step;
1871:
1872: SAVEPOINT release_step;
1873:
1874: IF (g_debug IS NOT NULL) THEN
1875: gme_debug.log_initialize ('ReleaseStep');
1876: END IF;
1877:
1878: IF NOT gme_common_pvt.g_setup_done THEN
1879: gme_common_pvt.g_setup_done :=
1919: ,p_encoded => fnd_api.g_false
1920: ,x_data => x_message_list);
1921:
1922: IF (g_debug IS NOT NULL) THEN
1923: gme_debug.put_line ( 'Completed '
1924: || l_api_name
1925: || ' at '
1926: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1927: END IF;
1925: || ' at '
1926: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1927: END IF;
1928:
1929: IF g_debug <= gme_debug.g_log_procedure THEN
1930: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1931: END IF;
1932: EXCEPTION
1933: WHEN step_release_failure THEN
1926: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1927: END IF;
1928:
1929: IF g_debug <= gme_debug.g_log_procedure THEN
1930: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1931: END IF;
1932: EXCEPTION
1933: WHEN step_release_failure THEN
1934: ROLLBACK TO SAVEPOINT release_step;
1943: ,p_encoded => fnd_api.g_false
1944: ,x_data => x_message_list);
1945: x_return_status := fnd_api.g_ret_sts_error;
1946: WHEN OTHERS THEN
1947: IF g_debug <= gme_debug.g_log_unexpected THEN
1948: gme_debug.put_line ( 'When others exception in '
1949: || g_pkg_name
1950: || '.'
1951: || l_api_name
1944: ,x_data => x_message_list);
1945: x_return_status := fnd_api.g_ret_sts_error;
1946: WHEN OTHERS THEN
1947: IF g_debug <= gme_debug.g_log_unexpected THEN
1948: gme_debug.put_line ( 'When others exception in '
1949: || g_pkg_name
1950: || '.'
1951: || l_api_name
1952: || ' Error is '
1978: setup_failure EXCEPTION;
1979: batch_complete_failure EXCEPTION;
1980: batch_complete_exception EXCEPTION;
1981: BEGIN
1982: IF g_debug <= gme_debug.g_log_procedure THEN
1983: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1984: || l_api_name);
1985: END IF;
1986:
1979: batch_complete_failure EXCEPTION;
1980: batch_complete_exception EXCEPTION;
1981: BEGIN
1982: IF g_debug <= gme_debug.g_log_procedure THEN
1983: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1984: || l_api_name);
1985: END IF;
1986:
1987: SAVEPOINT complete_batch;
1986:
1987: SAVEPOINT complete_batch;
1988:
1989: IF (g_debug IS NOT NULL) THEN
1990: gme_debug.log_initialize ('CompleteBatch');
1991: END IF;
1992:
1993: IF NOT gme_common_pvt.g_setup_done THEN
1994: gme_common_pvt.g_setup_done :=
2032: ,p_encoded => fnd_api.g_false
2033: ,x_data => x_message_list);
2034:
2035: IF (g_debug IS NOT NULL) THEN
2036: gme_debug.put_line ( 'Completed '
2037: || l_api_name
2038: || ' at '
2039: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2040: END IF;
2038: || ' at '
2039: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2040: END IF;
2041:
2042: IF g_debug <= gme_debug.g_log_procedure THEN
2043: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
2044: END IF;
2045: EXCEPTION
2046: WHEN batch_complete_failure THEN
2039: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2040: END IF;
2041:
2042: IF g_debug <= gme_debug.g_log_procedure THEN
2043: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
2044: END IF;
2045: EXCEPTION
2046: WHEN batch_complete_failure THEN
2047: ROLLBACK TO SAVEPOINT complete_batch;
2056: ,p_encoded => fnd_api.g_false
2057: ,x_data => x_message_list);
2058: x_return_status := fnd_api.g_ret_sts_error;
2059: WHEN OTHERS THEN
2060: IF g_debug <= gme_debug.g_log_unexpected THEN
2061: gme_debug.put_line ( 'When others exception in '
2062: || g_pkg_name
2063: || '.'
2064: || l_api_name
2057: ,x_data => x_message_list);
2058: x_return_status := fnd_api.g_ret_sts_error;
2059: WHEN OTHERS THEN
2060: IF g_debug <= gme_debug.g_log_unexpected THEN
2061: gme_debug.put_line ( 'When others exception in '
2062: || g_pkg_name
2063: || '.'
2064: || l_api_name
2065: || ' Error is '
2092: setup_failure EXCEPTION;
2093: step_complete_failure EXCEPTION;
2094: step_complete_exception EXCEPTION;
2095: BEGIN
2096: IF g_debug <= gme_debug.g_log_procedure THEN
2097: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2098: || l_api_name);
2099: END IF;
2100:
2093: step_complete_failure EXCEPTION;
2094: step_complete_exception EXCEPTION;
2095: BEGIN
2096: IF g_debug <= gme_debug.g_log_procedure THEN
2097: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2098: || l_api_name);
2099: END IF;
2100:
2101: SAVEPOINT complete_step;
2100:
2101: SAVEPOINT complete_step;
2102:
2103: IF (g_debug IS NOT NULL) THEN
2104: gme_debug.log_initialize ('CompleteStep');
2105: END IF;
2106:
2107: IF NOT gme_common_pvt.g_setup_done THEN
2108: gme_common_pvt.g_setup_done :=
2148: ,p_encoded => fnd_api.g_false
2149: ,x_data => x_message_list);
2150:
2151: IF (g_debug IS NOT NULL) THEN
2152: gme_debug.put_line ( 'Completed '
2153: || l_api_name
2154: || ' at '
2155: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2156: END IF;
2154: || ' at '
2155: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2156: END IF;
2157:
2158: IF g_debug <= gme_debug.g_log_procedure THEN
2159: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
2160: END IF;
2161: EXCEPTION
2162: WHEN step_complete_failure THEN
2155: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2156: END IF;
2157:
2158: IF g_debug <= gme_debug.g_log_procedure THEN
2159: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
2160: END IF;
2161: EXCEPTION
2162: WHEN step_complete_failure THEN
2163: ROLLBACK TO SAVEPOINT complete_step;
2172: ,p_encoded => fnd_api.g_false
2173: ,x_data => x_message_list);
2174: x_return_status := fnd_api.g_ret_sts_error;
2175: WHEN OTHERS THEN
2176: IF g_debug <= gme_debug.g_log_unexpected THEN
2177: gme_debug.put_line ( 'When others exception in '
2178: || g_pkg_name
2179: || '.'
2180: || l_api_name
2173: ,x_data => x_message_list);
2174: x_return_status := fnd_api.g_ret_sts_error;
2175: WHEN OTHERS THEN
2176: IF g_debug <= gme_debug.g_log_unexpected THEN
2177: gme_debug.put_line ( 'When others exception in '
2178: || g_pkg_name
2179: || '.'
2180: || l_api_name
2181: || ' Error is '
2210: SAVEPOINT delete_step;
2211:
2212: /* Setup the common constants used accross the apis */
2213: IF (g_debug IS NOT NULL) THEN
2214: gme_debug.log_initialize ('DeleteStep');
2215: END IF;
2216:
2217: IF g_debug <= gme_debug.g_log_procedure THEN
2218: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2213: IF (g_debug IS NOT NULL) THEN
2214: gme_debug.log_initialize ('DeleteStep');
2215: END IF;
2216:
2217: IF g_debug <= gme_debug.g_log_procedure THEN
2218: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2219: || 'Entering');
2220: END IF;
2221:
2214: gme_debug.log_initialize ('DeleteStep');
2215: END IF;
2216:
2217: IF g_debug <= gme_debug.g_log_procedure THEN
2218: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2219: || 'Entering');
2220: END IF;
2221:
2222: /* Set the return status to success initially */
2269:
2270: gme_common_pvt.log_message ('GME_API_STEP_DELETE');
2271:
2272:
2273: IF (g_debug <= gme_debug.g_log_procedure) THEN
2274: gme_debug.put_line ( 'Completed '
2275: || l_api_name
2276: || ' at '
2277: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2270: gme_common_pvt.log_message ('GME_API_STEP_DELETE');
2271:
2272:
2273: IF (g_debug <= gme_debug.g_log_procedure) THEN
2274: gme_debug.put_line ( 'Completed '
2275: || l_api_name
2276: || ' at '
2277: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2278: END IF;
2334: SAVEPOINT insert_step;
2335:
2336: /* Initialize message list and count if needed */
2337: IF (g_debug IS NOT NULL) THEN
2338: gme_debug.log_initialize ('InsertStep');
2339: END IF;
2340:
2341: IF g_debug <= gme_debug.g_log_procedure THEN
2342: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2337: IF (g_debug IS NOT NULL) THEN
2338: gme_debug.log_initialize ('InsertStep');
2339: END IF;
2340:
2341: IF g_debug <= gme_debug.g_log_procedure THEN
2342: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2343: || 'Entering');
2344: END IF;
2345:
2338: gme_debug.log_initialize ('InsertStep');
2339: END IF;
2340:
2341: IF g_debug <= gme_debug.g_log_procedure THEN
2342: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2343: || 'Entering');
2344: END IF;
2345:
2346: /* Set the return status to success initially */
2403: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2404: RAISE insert_step_failed;
2405: END IF;
2406: gme_common_pvt.log_message ('GME_INSERT_STEP');
2407: IF (g_debug <= gme_debug.g_log_procedure) THEN
2408: gme_debug.put_line ( 'Completed '
2409: || l_api_name
2410: || ' at '
2411: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2404: RAISE insert_step_failed;
2405: END IF;
2406: gme_common_pvt.log_message ('GME_INSERT_STEP');
2407: IF (g_debug <= gme_debug.g_log_procedure) THEN
2408: gme_debug.put_line ( 'Completed '
2409: || l_api_name
2410: || ' at '
2411: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2412: END IF;
2457:
2458: SAVEPOINT revert_batch;
2459:
2460: IF (g_debug IS NOT NULL) THEN
2461: gme_debug.log_initialize ('RevertBatch');
2462: END IF;
2463:
2464: IF g_debug <= gme_debug.g_log_procedure THEN
2465: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2460: IF (g_debug IS NOT NULL) THEN
2461: gme_debug.log_initialize ('RevertBatch');
2462: END IF;
2463:
2464: IF g_debug <= gme_debug.g_log_procedure THEN
2465: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2466: || 'Entering');
2467: END IF;
2468:
2461: gme_debug.log_initialize ('RevertBatch');
2462: END IF;
2463:
2464: IF g_debug <= gme_debug.g_log_procedure THEN
2465: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2466: || 'Entering');
2467: END IF;
2468:
2469: /* Set the return status to success initially */
2486: END IF;
2487:
2488: gme_common_pvt.set_timestamp;
2489:
2490: IF g_debug <= gme_debug.g_log_statement THEN
2491: gme_debug.put_line ( g_pkg_name
2492: || '.'
2493: || l_api_name
2494: || ':'
2487:
2488: gme_common_pvt.set_timestamp;
2489:
2490: IF g_debug <= gme_debug.g_log_statement THEN
2491: gme_debug.put_line ( g_pkg_name
2492: || '.'
2493: || l_api_name
2494: || ':'
2495: || 'calling revert batch pvt');
2499: (p_batch_header_rec => p_batch_header_rec,
2500: x_batch_header_rec => x_batch_header_rec,
2501: x_return_status => x_return_status);
2502:
2503: IF (g_debug <= gme_debug.g_log_procedure) THEN
2504: gme_debug.put_line ( g_pkg_name
2505: || '.'
2506: || l_api_name
2507: || ':'
2500: x_batch_header_rec => x_batch_header_rec,
2501: x_return_status => x_return_status);
2502:
2503: IF (g_debug <= gme_debug.g_log_procedure) THEN
2504: gme_debug.put_line ( g_pkg_name
2505: || '.'
2506: || l_api_name
2507: || ':'
2508: || 'x_return_status='
2521: p_encoded => fnd_api.g_false,
2522: x_data => x_message_list);
2523:
2524: IF (g_debug IS NOT NULL) THEN
2525: gme_debug.put_line ( 'Completed '
2526: || l_api_name
2527: || ' at '
2528: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2529: END IF;
2527: || ' at '
2528: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2529: END IF;
2530:
2531: IF g_debug <= gme_debug.g_log_procedure THEN
2532: gme_debug.put_line ( 'Exiting api '
2533: || g_pkg_name
2534: || '.'
2535: || l_api_name
2528: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2529: END IF;
2530:
2531: IF g_debug <= gme_debug.g_log_procedure THEN
2532: gme_debug.put_line ( 'Exiting api '
2533: || g_pkg_name
2534: || '.'
2535: || l_api_name
2536: || x_return_status);
2549: p_encoded => fnd_api.g_false,
2550: x_data => x_message_list);
2551: x_return_status := fnd_api.g_ret_sts_error;
2552: WHEN OTHERS THEN
2553: IF g_debug <= gme_debug.g_log_unexpected THEN
2554: gme_debug.put_line ( 'When others exception in '
2555: || g_pkg_name
2556: || '.'
2557: || l_api_name
2550: x_data => x_message_list);
2551: x_return_status := fnd_api.g_ret_sts_error;
2552: WHEN OTHERS THEN
2553: IF g_debug <= gme_debug.g_log_unexpected THEN
2554: gme_debug.put_line ( 'When others exception in '
2555: || g_pkg_name
2556: || '.'
2557: || l_api_name
2558: || ' Error is '
2588:
2589: SAVEPOINT revert_step;
2590:
2591: IF (g_debug IS NOT NULL) THEN
2592: gme_debug.log_initialize ('RevertStep');
2593: END IF;
2594:
2595: IF g_debug <= gme_debug.g_log_procedure THEN
2596: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2591: IF (g_debug IS NOT NULL) THEN
2592: gme_debug.log_initialize ('RevertStep');
2593: END IF;
2594:
2595: IF g_debug <= gme_debug.g_log_procedure THEN
2596: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2597: || 'Entering');
2598: END IF;
2599:
2592: gme_debug.log_initialize ('RevertStep');
2593: END IF;
2594:
2595: IF g_debug <= gme_debug.g_log_procedure THEN
2596: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2597: || 'Entering');
2598: END IF;
2599:
2600: /* Set the return status to success initially */
2617: END IF;
2618:
2619: gme_common_pvt.set_timestamp;
2620:
2621: IF g_debug <= gme_debug.g_log_statement THEN
2622: gme_debug.put_line ( g_pkg_name
2623: || '.'
2624: || l_api_name
2625: || ':'
2618:
2619: gme_common_pvt.set_timestamp;
2620:
2621: IF g_debug <= gme_debug.g_log_statement THEN
2622: gme_debug.put_line ( g_pkg_name
2623: || '.'
2624: || l_api_name
2625: || ':'
2626: || 'calling revert step pvt');
2631: p_batch_header_rec => p_batch_header_rec,
2632: x_batch_step_rec => x_batch_step_rec,
2633: x_return_status => x_return_status);
2634:
2635: IF (g_debug <= gme_debug.g_log_procedure) THEN
2636: gme_debug.put_line ( g_pkg_name
2637: || '.'
2638: || l_api_name
2639: || ':'
2632: x_batch_step_rec => x_batch_step_rec,
2633: x_return_status => x_return_status);
2634:
2635: IF (g_debug <= gme_debug.g_log_procedure) THEN
2636: gme_debug.put_line ( g_pkg_name
2637: || '.'
2638: || l_api_name
2639: || ':'
2640: || 'x_return_status='
2653: p_encoded => fnd_api.g_false,
2654: x_data => x_message_list);
2655:
2656: IF (g_debug IS NOT NULL) THEN
2657: gme_debug.put_line ( 'Completed '
2658: || l_api_name
2659: || ' at '
2660: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2661: END IF;
2659: || ' at '
2660: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2661: END IF;
2662:
2663: IF g_debug <= gme_debug.g_log_procedure THEN
2664: gme_debug.put_line ( 'Exiting api '
2665: || g_pkg_name
2666: || '.'
2667: || l_api_name
2660: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2661: END IF;
2662:
2663: IF g_debug <= gme_debug.g_log_procedure THEN
2664: gme_debug.put_line ( 'Exiting api '
2665: || g_pkg_name
2666: || '.'
2667: || l_api_name
2668: || x_return_status);
2681: p_encoded => fnd_api.g_false,
2682: x_data => x_message_list);
2683: x_return_status := fnd_api.g_ret_sts_error;
2684: WHEN OTHERS THEN
2685: IF g_debug <= gme_debug.g_log_unexpected THEN
2686: gme_debug.put_line ( 'When others exception in '
2687: || g_pkg_name
2688: || '.'
2689: || l_api_name
2682: x_data => x_message_list);
2683: x_return_status := fnd_api.g_ret_sts_error;
2684: WHEN OTHERS THEN
2685: IF g_debug <= gme_debug.g_log_unexpected THEN
2686: gme_debug.put_line ( 'When others exception in '
2687: || g_pkg_name
2688: || '.'
2689: || l_api_name
2690: || ' Error is '
2712: setup_failure EXCEPTION;
2713: batch_close_failure EXCEPTION;
2714: batch_save_failed EXCEPTION;
2715: BEGIN
2716: IF g_debug <= gme_debug.g_log_procedure THEN
2717: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2718: || l_api_name);
2719: END IF;
2720:
2713: batch_close_failure EXCEPTION;
2714: batch_save_failed EXCEPTION;
2715: BEGIN
2716: IF g_debug <= gme_debug.g_log_procedure THEN
2717: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2718: || l_api_name);
2719: END IF;
2720:
2721: /* Set the savepoint before proceeding */
2721: /* Set the savepoint before proceeding */
2722: SAVEPOINT close_batch;
2723:
2724: IF (g_debug IS NOT NULL) THEN
2725: gme_debug.log_initialize ('CloseBatch');
2726: END IF;
2727:
2728: IF NOT gme_common_pvt.g_setup_done THEN
2729: gme_common_pvt.g_setup_done :=
2742: END IF;
2743:
2744: gme_common_pvt.set_timestamp;
2745:
2746: IF g_debug <= gme_debug.g_log_procedure THEN
2747: gme_debug.put_line ('Calling gme_close_batch_pvt.close_batch.');
2748: END IF;
2749:
2750: gme_close_batch_pvt.close_batch
2743:
2744: gme_common_pvt.set_timestamp;
2745:
2746: IF g_debug <= gme_debug.g_log_procedure THEN
2747: gme_debug.put_line ('Calling gme_close_batch_pvt.close_batch.');
2748: END IF;
2749:
2750: gme_close_batch_pvt.close_batch
2751: (p_batch_header_rec => p_batch_header_rec
2751: (p_batch_header_rec => p_batch_header_rec
2752: ,x_batch_header_rec => x_batch_header_rec
2753: ,x_return_status => x_return_status);
2754:
2755: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2756: gme_debug.put_line ( 'Came back from Pvt Close Batch with status '
2757: || x_return_status);
2758: END IF;
2759:
2752: ,x_batch_header_rec => x_batch_header_rec
2753: ,x_return_status => x_return_status);
2754:
2755: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2756: gme_debug.put_line ( 'Came back from Pvt Close Batch with status '
2757: || x_return_status);
2758: END IF;
2759:
2760: IF x_return_status = fnd_api.g_ret_sts_success THEN
2779: gme_common_pvt.count_and_get (x_count => x_message_count
2780: ,p_encoded => fnd_api.g_false
2781: ,x_data => x_message_list);
2782:
2783: IF g_debug <= gme_debug.g_log_procedure THEN
2784: gme_debug.put_line ( 'Completed '
2785: || l_api_name
2786: || ' at '
2787: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2780: ,p_encoded => fnd_api.g_false
2781: ,x_data => x_message_list);
2782:
2783: IF g_debug <= gme_debug.g_log_procedure THEN
2784: gme_debug.put_line ( 'Completed '
2785: || l_api_name
2786: || ' at '
2787: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2788: END IF;
2826: /* Set the savepoint before proceeding */
2827: SAVEPOINT close_batch_step;
2828:
2829: IF (g_debug IS NOT NULL) THEN
2830: gme_debug.log_initialize ('CloseStep');
2831: END IF;
2832:
2833: IF g_debug <= gme_debug.g_log_procedure THEN
2834: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2829: IF (g_debug IS NOT NULL) THEN
2830: gme_debug.log_initialize ('CloseStep');
2831: END IF;
2832:
2833: IF g_debug <= gme_debug.g_log_procedure THEN
2834: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2835: || 'Entering');
2836: END IF;
2837:
2830: gme_debug.log_initialize ('CloseStep');
2831: END IF;
2832:
2833: IF g_debug <= gme_debug.g_log_procedure THEN
2834: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2835: || 'Entering');
2836: END IF;
2837:
2838: /* Set the return status to success initially */
2865: ELSE
2866: RAISE step_close_failed;
2867: END IF;
2868:
2869: IF (g_debug <= gme_debug.g_log_procedure) THEN
2870: gme_debug.put_line ( 'Completed '
2871: || l_api_name
2872: || ' at '
2873: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2866: RAISE step_close_failed;
2867: END IF;
2868:
2869: IF (g_debug <= gme_debug.g_log_procedure) THEN
2870: gme_debug.put_line ( 'Completed '
2871: || l_api_name
2872: || ' at '
2873: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2874: END IF;
2920: /* Set the save point before processing */
2921: SAVEPOINT reopen_batch;
2922:
2923: IF (g_debug IS NOT NULL) THEN
2924: gme_debug.log_initialize ('ReopenBatch');
2925: END IF;
2926:
2927: IF (g_debug <= gme_debug.g_log_procedure) THEN
2928: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2923: IF (g_debug IS NOT NULL) THEN
2924: gme_debug.log_initialize ('ReopenBatch');
2925: END IF;
2926:
2927: IF (g_debug <= gme_debug.g_log_procedure) THEN
2928: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2929: || 'Entering');
2930: END IF;
2931:
2924: gme_debug.log_initialize ('ReopenBatch');
2925: END IF;
2926:
2927: IF (g_debug <= gme_debug.g_log_procedure) THEN
2928: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2929: || 'Entering');
2930: END IF;
2931:
2932: /* Initialize message list and count if needed*/
2949: END IF;
2950: END IF;
2951: gme_common_pvt.set_timestamp;
2952:
2953: IF (g_debug <= gme_debug.g_log_procedure) THEN
2954: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2955: || 'calling private layer');
2956: END IF;
2957:
2950: END IF;
2951: gme_common_pvt.set_timestamp;
2952:
2953: IF (g_debug <= gme_debug.g_log_procedure) THEN
2954: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2955: || 'calling private layer');
2956: END IF;
2957:
2958: gme_reopen_batch_pvt.reopen_batch
2960: ,p_reopen_steps => p_reopen_steps
2961: ,x_batch_header_rec => x_batch_header_rec
2962: ,x_return_status => x_return_status);
2963:
2964: IF (g_debug <= gme_debug.g_log_procedure) THEN
2965: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2966: || 'after private layer with sts'||x_return_status);
2967: END IF;
2968:
2961: ,x_batch_header_rec => x_batch_header_rec
2962: ,x_return_status => x_return_status);
2963:
2964: IF (g_debug <= gme_debug.g_log_procedure) THEN
2965: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2966: || 'after private layer with sts'||x_return_status);
2967: END IF;
2968:
2969: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
2974:
2975: gme_common_pvt.log_message ('GME_API_BATCH_REOPENED');
2976:
2977:
2978: IF (g_debug <= gme_debug.g_log_procedure) THEN
2979: gme_debug.put_line ( 'Completed '
2980: || l_api_name
2981: || ' at '
2982: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2975: gme_common_pvt.log_message ('GME_API_BATCH_REOPENED');
2976:
2977:
2978: IF (g_debug <= gme_debug.g_log_procedure) THEN
2979: gme_debug.put_line ( 'Completed '
2980: || l_api_name
2981: || ' at '
2982: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2983: END IF;
2992: WHEN setup_failure THEN
2993: ROLLBACK TO SAVEPOINT reopen_batch;
2994: x_batch_header_rec := NULL;
2995:
2996: IF (g_debug <= gme_debug.g_log_procedure) THEN
2997: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2998: ||'reopen_batch error : SETUP_FAILURE'
2999: );
3000: END IF;
2993: ROLLBACK TO SAVEPOINT reopen_batch;
2994: x_batch_header_rec := NULL;
2995:
2996: IF (g_debug <= gme_debug.g_log_procedure) THEN
2997: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2998: ||'reopen_batch error : SETUP_FAILURE'
2999: );
3000: END IF;
3001:
3007: WHEN batch_reopen_failure OR batch_save_failed THEN
3008: ROLLBACK TO SAVEPOINT reopen_batch;
3009: x_batch_header_rec := NULL;
3010:
3011: IF (g_debug <= gme_debug.g_log_procedure) THEN
3012: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3013: || 'reopen_batch error : BATCH_REOPEN_FAILURE OR BATCH_SAVE_FAILED OR ERROR_CHECK_PHANT.'
3014: );
3015: END IF;
3008: ROLLBACK TO SAVEPOINT reopen_batch;
3009: x_batch_header_rec := NULL;
3010:
3011: IF (g_debug <= gme_debug.g_log_procedure) THEN
3012: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3013: || 'reopen_batch error : BATCH_REOPEN_FAILURE OR BATCH_SAVE_FAILED OR ERROR_CHECK_PHANT.'
3014: );
3015: END IF;
3016:
3022: WHEN OTHERS THEN
3023: ROLLBACK TO SAVEPOINT reopen_batch;
3024: x_batch_header_rec := NULL;
3025:
3026: IF (g_debug <= gme_debug.g_log_unexpected) THEN
3027: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3028: ||'reopen_batch error : OTHERS.' || SQLCODE
3029: );
3030: END IF;
3023: ROLLBACK TO SAVEPOINT reopen_batch;
3024: x_batch_header_rec := NULL;
3025:
3026: IF (g_debug <= gme_debug.g_log_unexpected) THEN
3027: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3028: ||'reopen_batch error : OTHERS.' || SQLCODE
3029: );
3030: END IF;
3031:
3065: gme_common_pvt.g_error_count := 0; /* Punit Kumar */
3066: END IF;
3067:
3068: IF (g_debug IS NOT NULL) THEN
3069: gme_debug.log_initialize ('ReopenStep');
3070: END IF;
3071:
3072: IF (g_debug <= gme_debug.g_log_procedure) THEN
3073: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3068: IF (g_debug IS NOT NULL) THEN
3069: gme_debug.log_initialize ('ReopenStep');
3070: END IF;
3071:
3072: IF (g_debug <= gme_debug.g_log_procedure) THEN
3073: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3074: || 'entering');
3075: END IF;
3076: IF NOT gme_common_pvt.g_setup_done THEN
3069: gme_debug.log_initialize ('ReopenStep');
3070: END IF;
3071:
3072: IF (g_debug <= gme_debug.g_log_procedure) THEN
3073: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3074: || 'entering');
3075: END IF;
3076: IF NOT gme_common_pvt.g_setup_done THEN
3077: gme_common_pvt.g_setup_done :=
3086: x_return_status := fnd_api.g_ret_sts_success;
3087: /* Punit Kumar */
3088: gme_common_pvt.set_timestamp;
3089:
3090: IF (g_debug <= gme_debug.g_log_procedure) THEN
3091: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3092: || 'calling private layer');
3093: END IF;
3094:
3087: /* Punit Kumar */
3088: gme_common_pvt.set_timestamp;
3089:
3090: IF (g_debug <= gme_debug.g_log_procedure) THEN
3091: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3092: || 'calling private layer');
3093: END IF;
3094:
3095: gme_reopen_step_pvt.reopen_step (p_batch_step_rec => p_batch_step_rec
3095: gme_reopen_step_pvt.reopen_step (p_batch_step_rec => p_batch_step_rec
3096: ,x_batch_step_rec => x_batch_step_rec
3097: ,x_return_status => x_return_status);
3098:
3099: IF (g_debug <= gme_debug.g_log_procedure) THEN
3100: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3101: || 'existing private layer with status'||x_return_status );
3102: END IF;
3103:
3096: ,x_batch_step_rec => x_batch_step_rec
3097: ,x_return_status => x_return_status);
3098:
3099: IF (g_debug <= gme_debug.g_log_procedure) THEN
3100: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3101: || 'existing private layer with status'||x_return_status );
3102: END IF;
3103:
3104: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
3110:
3111: gme_common_pvt.log_message ('GME_API_STEP_REOPENED');
3112:
3113:
3114: IF (g_debug <= gme_debug.g_log_procedure) THEN
3115: gme_debug.put_line ( 'Completed '
3116: || l_api_name
3117: || ' at '
3118: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3111: gme_common_pvt.log_message ('GME_API_STEP_REOPENED');
3112:
3113:
3114: IF (g_debug <= gme_debug.g_log_procedure) THEN
3115: gme_debug.put_line ( 'Completed '
3116: || l_api_name
3117: || ' at '
3118: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3119: END IF;
3121: gme_common_pvt.count_and_get (x_count => x_message_count
3122: ,p_encoded => fnd_api.g_false
3123: ,x_data => x_message_list);
3124:
3125: IF (g_debug <= gme_debug.g_log_procedure) THEN
3126: gme_debug.put_line ('Normal end of Public Reopen_Step.'
3127: ,gme_debug.g_log_procedure
3128: ,'reopen_batch');
3129: END IF;
3122: ,p_encoded => fnd_api.g_false
3123: ,x_data => x_message_list);
3124:
3125: IF (g_debug <= gme_debug.g_log_procedure) THEN
3126: gme_debug.put_line ('Normal end of Public Reopen_Step.'
3127: ,gme_debug.g_log_procedure
3128: ,'reopen_batch');
3129: END IF;
3130: EXCEPTION
3123: ,x_data => x_message_list);
3124:
3125: IF (g_debug <= gme_debug.g_log_procedure) THEN
3126: gme_debug.put_line ('Normal end of Public Reopen_Step.'
3127: ,gme_debug.g_log_procedure
3128: ,'reopen_batch');
3129: END IF;
3130: EXCEPTION
3131: WHEN setup_failure THEN
3131: WHEN setup_failure THEN
3132: ROLLBACK TO SAVEPOINT reopen_batch_step;
3133: x_batch_step_rec := NULL;
3134:
3135: IF (g_debug <= gme_debug.g_log_procedure) THEN
3136: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3137: ||'reopen_step error : SETUP_FAILURE.'
3138: );
3139: END IF;
3132: ROLLBACK TO SAVEPOINT reopen_batch_step;
3133: x_batch_step_rec := NULL;
3134:
3135: IF (g_debug <= gme_debug.g_log_procedure) THEN
3136: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3137: ||'reopen_step error : SETUP_FAILURE.'
3138: );
3139: END IF;
3140:
3146: WHEN step_reopen_failure OR step_save_failed THEN
3147: ROLLBACK TO SAVEPOINT reopen_batch_step;
3148: x_batch_step_rec := NULL;
3149:
3150: IF (g_debug <= gme_debug.g_log_procedure) THEN
3151: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3152: ||
3153: 'reopen_step error : STEP_REOPEN_FAILURE OR STEP_SAVE_FAILED.'
3154: );
3147: ROLLBACK TO SAVEPOINT reopen_batch_step;
3148: x_batch_step_rec := NULL;
3149:
3150: IF (g_debug <= gme_debug.g_log_procedure) THEN
3151: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3152: ||
3153: 'reopen_step error : STEP_REOPEN_FAILURE OR STEP_SAVE_FAILED.'
3154: );
3155: END IF;
3162: WHEN OTHERS THEN
3163: ROLLBACK TO SAVEPOINT reopen_batch_step;
3164: x_batch_step_rec := NULL;
3165:
3166: IF (g_debug <= gme_debug.g_log_unexpected) THEN
3167: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3168: ||'reopen_step error : OTHERS.' || SQLCODE
3169: );
3170: END IF;
3163: ROLLBACK TO SAVEPOINT reopen_batch_step;
3164: x_batch_step_rec := NULL;
3165:
3166: IF (g_debug <= gme_debug.g_log_unexpected) THEN
3167: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3168: ||'reopen_step error : OTHERS.' || SQLCODE
3169: );
3170: END IF;
3171:
3227: /* Set the savepoint */
3228: SAVEPOINT incremental_backflush;
3229:
3230: IF (g_debug IS NOT NULL) THEN
3231: gme_debug.log_initialize ('IncrementalBackflush');
3232: END IF;
3233: /* Set the return status to success initially */
3234: x_return_status := fnd_api.g_ret_sts_success;
3235:
3278: ,x_return_status => x_return_status);
3279:
3280: IF x_return_status NOT IN
3281: (fnd_api.g_ret_sts_success, gme_common_pvt.g_exceptions_err) THEN
3282: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
3283: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' after gme_incremental_backflush_pvt.incremental_backflush; x_return_status= '||x_return_status);
3284: END IF;
3285: RAISE incremental_backflush_failed;
3286: END IF; /* IF x_return_status NOT IN */
3279:
3280: IF x_return_status NOT IN
3281: (fnd_api.g_ret_sts_success, gme_common_pvt.g_exceptions_err) THEN
3282: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
3283: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' after gme_incremental_backflush_pvt.incremental_backflush; x_return_status= '||x_return_status);
3284: END IF;
3285: RAISE incremental_backflush_failed;
3286: END IF; /* IF x_return_status NOT IN */
3287:
3291: ELSE
3292: gme_common_pvt.log_message ('GME_API_PARTIAL_CERTIFIED');
3293: END IF;
3294:
3295: IF (g_debug <= gme_debug.g_log_procedure) THEN
3296: gme_debug.put_line ( 'gme_api_main: Completed '
3297: || l_api_name
3298: || ' at '
3299: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3292: gme_common_pvt.log_message ('GME_API_PARTIAL_CERTIFIED');
3293: END IF;
3294:
3295: IF (g_debug <= gme_debug.g_log_procedure) THEN
3296: gme_debug.put_line ( 'gme_api_main: Completed '
3297: || l_api_name
3298: || ' at '
3299: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3300: END IF;
3313: ROLLBACK TO SAVEPOINT incremental_backflush;
3314: gme_common_pvt.count_and_get (x_count => x_message_count
3315: ,p_encoded => fnd_api.g_false
3316: ,x_data => x_message_list);
3317: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
3318: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' in exception block; x_return_status= '||x_return_status);
3319: END IF;
3320: WHEN OTHERS THEN
3321: ROLLBACK TO SAVEPOINT incremental_backflush;
3314: gme_common_pvt.count_and_get (x_count => x_message_count
3315: ,p_encoded => fnd_api.g_false
3316: ,x_data => x_message_list);
3317: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
3318: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' in exception block; x_return_status= '||x_return_status);
3319: END IF;
3320: WHEN OTHERS THEN
3321: ROLLBACK TO SAVEPOINT incremental_backflush;
3322: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3365: /* Set savepoint here */
3366: SAVEPOINT reroute_batch_main;
3367:
3368: IF (g_debug IS NOT NULL) THEN
3369: gme_debug.log_initialize ('RerouteBatch');
3370: END IF;
3371:
3372: IF (NVL (g_debug, 0) IN
3373: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
3369: gme_debug.log_initialize ('RerouteBatch');
3370: END IF;
3371:
3372: IF (NVL (g_debug, 0) IN
3373: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
3374: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3375: || 'Entering');
3376: END IF;
3377:
3370: END IF;
3371:
3372: IF (NVL (g_debug, 0) IN
3373: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
3374: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3375: || 'Entering');
3376: END IF;
3377:
3378: IF (fnd_api.to_boolean (p_init_msg_list) ) THEN
3423: ,p_encoded => fnd_api.g_false
3424: ,x_data => x_message_list);
3425:
3426: IF (NVL (g_debug, 0) IN
3427: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
3428: gme_debug.put_line ( g_pkg_name
3429: || '.'
3430: || l_api_name
3431: || ':'
3424: ,x_data => x_message_list);
3425:
3426: IF (NVL (g_debug, 0) IN
3427: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
3428: gme_debug.put_line ( g_pkg_name
3429: || '.'
3430: || l_api_name
3431: || ':'
3432: || 'Exiting with '
3456: x_batch_header_rec := NULL;
3457: x_return_status := fnd_api.g_ret_sts_unexp_error;
3458:
3459: IF (NVL (g_debug, 0) > 0) THEN
3460: gme_debug.put_line ( g_pkg_name
3461: || '.'
3462: || l_api_name
3463: || ':'
3464: || 'UNEXPECTED:'
3474: x_batch_header_rec := NULL;
3475: x_return_status := fnd_api.g_ret_sts_unexp_error;
3476:
3477: IF (NVL (g_debug, 0) > 0) THEN
3478: gme_debug.put_line ( g_pkg_name
3479: || '.'
3480: || l_api_name
3481: || ':'
3482: || 'OTHERS:'
3521: BEGIN
3522: SAVEPOINT cancel_batch;
3523:
3524: IF (g_debug IS NOT NULL) THEN
3525: gme_debug.log_initialize ('CancelBatch');
3526: END IF;
3527:
3528: IF g_debug <= gme_debug.g_log_procedure THEN
3529: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3524: IF (g_debug IS NOT NULL) THEN
3525: gme_debug.log_initialize ('CancelBatch');
3526: END IF;
3527:
3528: IF g_debug <= gme_debug.g_log_procedure THEN
3529: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3530: || 'Entering');
3531: END IF;
3532:
3525: gme_debug.log_initialize ('CancelBatch');
3526: END IF;
3527:
3528: IF g_debug <= gme_debug.g_log_procedure THEN
3529: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3530: || 'Entering');
3531: END IF;
3532:
3533: /* Set the return status to success initially */
3550: END IF;
3551:
3552: gme_common_pvt.set_timestamp;
3553:
3554: IF g_debug <= gme_debug.g_log_statement THEN
3555: gme_debug.put_line ( g_pkg_name
3556: || '.'
3557: || l_api_name
3558: || ':'
3551:
3552: gme_common_pvt.set_timestamp;
3553:
3554: IF g_debug <= gme_debug.g_log_statement THEN
3555: gme_debug.put_line ( g_pkg_name
3556: || '.'
3557: || l_api_name
3558: || ':'
3559: || 'calling pvt cancel');
3563: (p_batch_header_rec => p_batch_header_rec
3564: ,x_batch_header_rec => x_batch_header_rec
3565: ,x_return_status => x_return_status);
3566:
3567: IF (g_debug <= gme_debug.g_log_procedure) THEN
3568: gme_debug.put_line ( g_pkg_name
3569: || '.'
3570: || l_api_name
3571: || ':'
3564: ,x_batch_header_rec => x_batch_header_rec
3565: ,x_return_status => x_return_status);
3566:
3567: IF (g_debug <= gme_debug.g_log_procedure) THEN
3568: gme_debug.put_line ( g_pkg_name
3569: || '.'
3570: || l_api_name
3571: || ':'
3572: || 'x_return_status='
3590: ,p_encoded => fnd_api.g_false
3591: ,x_data => x_message_list);
3592:
3593: IF (g_debug IS NOT NULL) THEN
3594: gme_debug.put_line ( 'Completed '
3595: || l_api_name
3596: || ' at '
3597: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3598: END IF;
3596: || ' at '
3597: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3598: END IF;
3599:
3600: IF g_debug <= gme_debug.g_log_procedure THEN
3601: gme_debug.put_line ( 'Exiting api '
3602: || g_pkg_name
3603: || '.'
3604: || l_api_name
3597: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3598: END IF;
3599:
3600: IF g_debug <= gme_debug.g_log_procedure THEN
3601: gme_debug.put_line ( 'Exiting api '
3602: || g_pkg_name
3603: || '.'
3604: || l_api_name
3605: || x_return_status);
3618: ,p_encoded => fnd_api.g_false
3619: ,x_data => x_message_list);
3620: x_return_status := fnd_api.g_ret_sts_error;
3621: WHEN OTHERS THEN
3622: IF g_debug <= gme_debug.g_log_unexpected THEN
3623: gme_debug.put_line ( 'When others exception in '
3624: || g_pkg_name
3625: || '.'
3626: || l_api_name
3619: ,x_data => x_message_list);
3620: x_return_status := fnd_api.g_ret_sts_error;
3621: WHEN OTHERS THEN
3622: IF g_debug <= gme_debug.g_log_unexpected THEN
3623: gme_debug.put_line ( 'When others exception in '
3624: || g_pkg_name
3625: || '.'
3626: || l_api_name
3627: || ' Error is '
3672: /* Set the save point before processing */
3673: SAVEPOINT terminate_batch;
3674:
3675: IF (g_debug IS NOT NULL) THEN
3676: gme_debug.log_initialize ('TerminateBatch');
3677: END IF;
3678:
3679: IF (g_debug <= gme_debug.g_log_procedure) THEN
3680: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3675: IF (g_debug IS NOT NULL) THEN
3676: gme_debug.log_initialize ('TerminateBatch');
3677: END IF;
3678:
3679: IF (g_debug <= gme_debug.g_log_procedure) THEN
3680: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3681: || 'Entering');
3682: END IF;
3683:
3676: gme_debug.log_initialize ('TerminateBatch');
3677: END IF;
3678:
3679: IF (g_debug <= gme_debug.g_log_procedure) THEN
3680: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
3681: || 'Entering');
3682: END IF;
3683:
3684: /* Set the return status to success initially */
3701: END IF;
3702:
3703: gme_common_pvt.set_timestamp;
3704:
3705: IF g_debug <= gme_debug.g_log_statement THEN
3706: gme_debug.put_line ( g_pkg_name
3707: || '.'
3708: || l_api_name
3709: || ':'
3702:
3703: gme_common_pvt.set_timestamp;
3704:
3705: IF g_debug <= gme_debug.g_log_statement THEN
3706: gme_debug.put_line ( g_pkg_name
3707: || '.'
3708: || l_api_name
3709: || ':'
3710: || 'Call Private Terminate_Batch');
3714: (p_batch_header_rec => p_batch_header_rec
3715: ,x_batch_header_rec => x_batch_header_rec
3716: ,x_return_status => x_return_status);
3717:
3718: IF (g_debug <= gme_debug.g_log_procedure) THEN
3719: gme_debug.put_line ( g_pkg_name
3720: || '.'
3721: || l_api_name
3722: || ':'
3715: ,x_batch_header_rec => x_batch_header_rec
3716: ,x_return_status => x_return_status);
3717:
3718: IF (g_debug <= gme_debug.g_log_procedure) THEN
3719: gme_debug.put_line ( g_pkg_name
3720: || '.'
3721: || l_api_name
3722: || ':'
3723: || 'x_return_status='
3735: ,p_encoded => fnd_api.g_false
3736: ,x_data => x_message_list);
3737:
3738: IF (g_debug IS NOT NULL) THEN
3739: gme_debug.put_line ( 'Completed '
3740: || l_api_name
3741: || ' at '
3742: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3743: END IF;
3741: || ' at '
3742: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3743: END IF;
3744:
3745: IF g_debug <= gme_debug.g_log_procedure THEN
3746: gme_debug.put_line ( g_pkg_name
3747: || '.'
3748: || l_api_name
3749: || ':'
3742: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3743: END IF;
3744:
3745: IF g_debug <= gme_debug.g_log_procedure THEN
3746: gme_debug.put_line ( g_pkg_name
3747: || '.'
3748: || l_api_name
3749: || ':'
3750: || 'Exiting api with return status='
3754: WHEN setup_failure THEN
3755: ROLLBACK TO SAVEPOINT terminate_batch;
3756: x_batch_header_rec := NULL;
3757:
3758: IF (g_debug <= gme_debug.g_log_procedure) THEN
3759: gme_debug.put_line ( g_pkg_name
3760: || '.'
3761: || l_api_name
3762: || ':'
3755: ROLLBACK TO SAVEPOINT terminate_batch;
3756: x_batch_header_rec := NULL;
3757:
3758: IF (g_debug <= gme_debug.g_log_procedure) THEN
3759: gme_debug.put_line ( g_pkg_name
3760: || '.'
3761: || l_api_name
3762: || ':'
3763: || 'SETUP_FAILURE.');
3770: WHEN batch_terminate_failure THEN
3771: ROLLBACK TO SAVEPOINT terminate_batch;
3772: x_batch_header_rec := NULL;
3773:
3774: IF (g_debug <= gme_debug.g_log_procedure) THEN
3775: gme_debug.put_line
3776: ( g_pkg_name
3777: || '.'
3778: || l_api_name
3771: ROLLBACK TO SAVEPOINT terminate_batch;
3772: x_batch_header_rec := NULL;
3773:
3774: IF (g_debug <= gme_debug.g_log_procedure) THEN
3775: gme_debug.put_line
3776: ( g_pkg_name
3777: || '.'
3778: || l_api_name
3779: || ':'
3786: WHEN OTHERS THEN
3787: ROLLBACK TO SAVEPOINT terminate_batch;
3788: x_batch_header_rec := NULL;
3789:
3790: IF (g_debug <= gme_debug.g_log_unexpected) THEN
3791: gme_debug.put_line ( 'When others exception in '
3792: || g_pkg_name
3793: || '.'
3794: || l_api_name
3787: ROLLBACK TO SAVEPOINT terminate_batch;
3788: x_batch_header_rec := NULL;
3789:
3790: IF (g_debug <= gme_debug.g_log_unexpected) THEN
3791: gme_debug.put_line ( 'When others exception in '
3792: || g_pkg_name
3793: || '.'
3794: || l_api_name
3795: || ' Error is '
3818: l_api_name CONSTANT VARCHAR2 (30) := 'UNRELEASE_BATCH';
3819: setup_failure EXCEPTION;
3820: batch_unrelease_failure EXCEPTION;
3821: BEGIN
3822: IF g_debug <= gme_debug.g_log_procedure THEN
3823: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
3824: || l_api_name);
3825: END IF;
3826:
3819: setup_failure EXCEPTION;
3820: batch_unrelease_failure EXCEPTION;
3821: BEGIN
3822: IF g_debug <= gme_debug.g_log_procedure THEN
3823: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
3824: || l_api_name);
3825: END IF;
3826:
3827: SAVEPOINT unrelease_batch;
3826:
3827: SAVEPOINT unrelease_batch;
3828:
3829: IF (g_debug IS NOT NULL) THEN
3830: gme_debug.log_initialize ('UnreleaseBatch');
3831: END IF;
3832:
3833: IF NOT gme_common_pvt.g_setup_done THEN
3834: gme_common_pvt.g_setup_done :=
3867: ,p_encoded => fnd_api.g_false
3868: ,x_data => x_message_list);
3869:
3870: IF (g_debug IS NOT NULL) THEN
3871: gme_debug.put_line ( 'Completed '
3872: || l_api_name
3873: || ' at '
3874: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3875: END IF;
3873: || ' at '
3874: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3875: END IF;
3876:
3877: IF g_debug <= gme_debug.g_log_procedure THEN
3878: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
3879: END IF;
3880: EXCEPTION
3881: WHEN batch_unrelease_failure THEN
3874: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3875: END IF;
3876:
3877: IF g_debug <= gme_debug.g_log_procedure THEN
3878: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
3879: END IF;
3880: EXCEPTION
3881: WHEN batch_unrelease_failure THEN
3882: ROLLBACK TO SAVEPOINT unrelease_batch;
3891: ,p_encoded => fnd_api.g_false
3892: ,x_data => x_message_list);
3893: x_return_status := fnd_api.g_ret_sts_error;
3894: WHEN OTHERS THEN
3895: IF g_debug <= gme_debug.g_log_unexpected THEN
3896: gme_debug.put_line ( 'When others exception in '
3897: || g_pkg_name
3898: || '.'
3899: || l_api_name
3892: ,x_data => x_message_list);
3893: x_return_status := fnd_api.g_ret_sts_error;
3894: WHEN OTHERS THEN
3895: IF g_debug <= gme_debug.g_log_unexpected THEN
3896: gme_debug.put_line ( 'When others exception in '
3897: || g_pkg_name
3898: || '.'
3899: || l_api_name
3900: || ' Error is '
3925: l_api_name CONSTANT VARCHAR2 (30) := 'UNRELEASE_STEP';
3926: setup_failure EXCEPTION;
3927: step_unrelease_failure EXCEPTION;
3928: BEGIN
3929: IF g_debug <= gme_debug.g_log_procedure THEN
3930: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
3931: || l_api_name);
3932: END IF;
3933:
3926: setup_failure EXCEPTION;
3927: step_unrelease_failure EXCEPTION;
3928: BEGIN
3929: IF g_debug <= gme_debug.g_log_procedure THEN
3930: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
3931: || l_api_name);
3932: END IF;
3933:
3934: SAVEPOINT unrelease_step;
3933:
3934: SAVEPOINT unrelease_step;
3935:
3936: IF (g_debug IS NOT NULL) THEN
3937: gme_debug.log_initialize ('UnreleaseStep');
3938: END IF;
3939:
3940: IF NOT gme_common_pvt.g_setup_done THEN
3941: gme_common_pvt.g_setup_done :=
3977: ,p_encoded => fnd_api.g_false
3978: ,x_data => x_message_list);
3979:
3980: IF (g_debug IS NOT NULL) THEN
3981: gme_debug.put_line ( 'Completed '
3982: || l_api_name
3983: || ' at '
3984: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3985: END IF;
3983: || ' at '
3984: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3985: END IF;
3986:
3987: IF g_debug <= gme_debug.g_log_procedure THEN
3988: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
3989: END IF;
3990: EXCEPTION
3991: WHEN step_unrelease_failure THEN
3984: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3985: END IF;
3986:
3987: IF g_debug <= gme_debug.g_log_procedure THEN
3988: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
3989: END IF;
3990: EXCEPTION
3991: WHEN step_unrelease_failure THEN
3992: ROLLBACK TO SAVEPOINT unrelease_step;
4001: ,p_encoded => fnd_api.g_false
4002: ,x_data => x_message_list);
4003: x_return_status := fnd_api.g_ret_sts_error;
4004: WHEN OTHERS THEN
4005: IF g_debug <= gme_debug.g_log_unexpected THEN
4006: gme_debug.put_line ( 'When others exception in '
4007: || g_pkg_name
4008: || '.'
4009: || l_api_name
4002: ,x_data => x_message_list);
4003: x_return_status := fnd_api.g_ret_sts_error;
4004: WHEN OTHERS THEN
4005: IF g_debug <= gme_debug.g_log_unexpected THEN
4006: gme_debug.put_line ( 'When others exception in '
4007: || g_pkg_name
4008: || '.'
4009: || l_api_name
4010: || ' Error is '
4034: /* Set the save point initially */
4035: SAVEPOINT auto_detail_line;
4036:
4037: IF (g_debug IS NOT NULL) THEN
4038: gme_debug.log_initialize ('AutoDetailLine');
4039: END IF;
4040:
4041: IF g_debug <= gme_debug.g_log_procedure THEN
4042: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4037: IF (g_debug IS NOT NULL) THEN
4038: gme_debug.log_initialize ('AutoDetailLine');
4039: END IF;
4040:
4041: IF g_debug <= gme_debug.g_log_procedure THEN
4042: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4043: || l_api_name);
4044: END IF;
4045:
4038: gme_debug.log_initialize ('AutoDetailLine');
4039: END IF;
4040:
4041: IF g_debug <= gme_debug.g_log_procedure THEN
4042: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4043: || l_api_name);
4044: END IF;
4045:
4046: IF NOT gme_common_pvt.g_setup_done THEN
4072: END IF;
4073:
4074: gme_common_pvt.log_message ('GME_BATCH_AUTO_DETAIL_LINE');
4075:
4076: IF (g_debug <= gme_debug.g_log_procedure) THEN
4077: gme_debug.put_line ( 'Completed '
4078: || l_api_name
4079: || ' at '
4080: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4073:
4074: gme_common_pvt.log_message ('GME_BATCH_AUTO_DETAIL_LINE');
4075:
4076: IF (g_debug <= gme_debug.g_log_procedure) THEN
4077: gme_debug.put_line ( 'Completed '
4078: || l_api_name
4079: || ' at '
4080: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4081: END IF;
4085: gme_common_pvt.count_and_get (x_count => x_message_count
4086: ,p_encoded => fnd_api.g_false
4087: ,x_data => x_message_list);
4088: WHEN OTHERS THEN
4089: IF g_debug <= gme_debug.g_log_unexpected THEN
4090: gme_debug.put_line ( 'When others exception in '
4091: || g_pkg_name
4092: || '.'
4093: || l_api_name
4086: ,p_encoded => fnd_api.g_false
4087: ,x_data => x_message_list);
4088: WHEN OTHERS THEN
4089: IF g_debug <= gme_debug.g_log_unexpected THEN
4090: gme_debug.put_line ( 'When others exception in '
4091: || g_pkg_name
4092: || '.'
4093: || l_api_name
4094: || ' Error is '
4119: /* Set the save point initially */
4120: SAVEPOINT auto_detail_batch;
4121:
4122: IF (g_debug IS NOT NULL) THEN
4123: gme_debug.log_initialize ('AutoDetailBatch');
4124: END IF;
4125:
4126: IF g_debug <= gme_debug.g_log_procedure THEN
4127: gme_debug.put_line ('Entering api ' || g_pkg_name || '.' || l_api_name);
4122: IF (g_debug IS NOT NULL) THEN
4123: gme_debug.log_initialize ('AutoDetailBatch');
4124: END IF;
4125:
4126: IF g_debug <= gme_debug.g_log_procedure THEN
4127: gme_debug.put_line ('Entering api ' || g_pkg_name || '.' || l_api_name);
4128: END IF;
4129:
4130: IF NOT gme_common_pvt.g_setup_done THEN
4123: gme_debug.log_initialize ('AutoDetailBatch');
4124: END IF;
4125:
4126: IF g_debug <= gme_debug.g_log_procedure THEN
4127: gme_debug.put_line ('Entering api ' || g_pkg_name || '.' || l_api_name);
4128: END IF;
4129:
4130: IF NOT gme_common_pvt.g_setup_done THEN
4131: gme_common_pvt.g_setup_done :=
4155: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4156: RAISE auto_detail_failure;
4157: END IF;
4158: gme_common_pvt.log_message ('GME_BATCH_AUTO_DETAIL_BATCH');
4159: IF (g_debug <= gme_debug.g_log_procedure) THEN
4160: gme_debug.put_line ( 'Completed '
4161: || l_api_name
4162: || ' at '
4163: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4156: RAISE auto_detail_failure;
4157: END IF;
4158: gme_common_pvt.log_message ('GME_BATCH_AUTO_DETAIL_BATCH');
4159: IF (g_debug <= gme_debug.g_log_procedure) THEN
4160: gme_debug.put_line ( 'Completed '
4161: || l_api_name
4162: || ' at '
4163: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4164: END IF;
4168: gme_common_pvt.count_and_get (x_count => x_message_count,
4169: p_encoded => fnd_api.g_false,
4170: x_data => x_message_list);
4171: WHEN OTHERS THEN
4172: IF g_debug <= gme_debug.g_log_unexpected THEN
4173: gme_debug.put_line ( 'When others exception in '
4174: || g_pkg_name
4175: || '.'
4176: || l_api_name
4169: p_encoded => fnd_api.g_false,
4170: x_data => x_message_list);
4171: WHEN OTHERS THEN
4172: IF g_debug <= gme_debug.g_log_unexpected THEN
4173: gme_debug.put_line ( 'When others exception in '
4174: || g_pkg_name
4175: || '.'
4176: || l_api_name
4177: || ' Error is '
4201: l_api_name CONSTANT VARCHAR2 (30) := 'create_pending_product_lot';
4202: setup_failure EXCEPTION;
4203: create_pp_lot_failure EXCEPTION;
4204: BEGIN
4205: IF g_debug <= gme_debug.g_log_procedure THEN
4206: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4207: || l_api_name);
4208: END IF;
4209:
4202: setup_failure EXCEPTION;
4203: create_pp_lot_failure EXCEPTION;
4204: BEGIN
4205: IF g_debug <= gme_debug.g_log_procedure THEN
4206: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4207: || l_api_name);
4208: END IF;
4209:
4210: SAVEPOINT create_pp_lot;
4209:
4210: SAVEPOINT create_pp_lot;
4211:
4212: IF (g_debug IS NOT NULL) THEN
4213: gme_debug.log_initialize ('CreatePendingProdLot');
4214: END IF;
4215:
4216: IF NOT gme_common_pvt.g_setup_done THEN
4217: gme_common_pvt.g_setup_done :=
4249: ,p_encoded => fnd_api.g_false
4250: ,x_data => x_message_list);
4251:
4252: IF (g_debug IS NOT NULL) THEN
4253: gme_debug.put_line ( 'Completed '
4254: || l_api_name
4255: || ' at '
4256: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4257: END IF;
4255: || ' at '
4256: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4257: END IF;
4258:
4259: IF g_debug <= gme_debug.g_log_procedure THEN
4260: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
4261: END IF;
4262: EXCEPTION
4263: WHEN create_pp_lot_failure THEN
4256: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4257: END IF;
4258:
4259: IF g_debug <= gme_debug.g_log_procedure THEN
4260: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
4261: END IF;
4262: EXCEPTION
4263: WHEN create_pp_lot_failure THEN
4264: ROLLBACK TO SAVEPOINT create_pp_lot;
4273: ,p_encoded => fnd_api.g_false
4274: ,x_data => x_message_list);
4275: x_return_status := fnd_api.g_ret_sts_error;
4276: WHEN OTHERS THEN
4277: IF g_debug <= gme_debug.g_log_unexpected THEN
4278: gme_debug.put_line ( 'When others exception in '
4279: || g_pkg_name
4280: || '.'
4281: || l_api_name
4274: ,x_data => x_message_list);
4275: x_return_status := fnd_api.g_ret_sts_error;
4276: WHEN OTHERS THEN
4277: IF g_debug <= gme_debug.g_log_unexpected THEN
4278: gme_debug.put_line ( 'When others exception in '
4279: || g_pkg_name
4280: || '.'
4281: || l_api_name
4282: || ' Error is '
4305: l_api_name CONSTANT VARCHAR2 (30) := 'update_pending_product_lot';
4306: setup_failure EXCEPTION;
4307: update_pp_lot_failure EXCEPTION;
4308: BEGIN
4309: IF g_debug <= gme_debug.g_log_procedure THEN
4310: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4311: || l_api_name);
4312: END IF;
4313:
4306: setup_failure EXCEPTION;
4307: update_pp_lot_failure EXCEPTION;
4308: BEGIN
4309: IF g_debug <= gme_debug.g_log_procedure THEN
4310: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4311: || l_api_name);
4312: END IF;
4313:
4314: SAVEPOINT update_pp_lot;
4313:
4314: SAVEPOINT update_pp_lot;
4315:
4316: IF (g_debug IS NOT NULL) THEN
4317: gme_debug.log_initialize ('UpdatePendingProdLot');
4318: END IF;
4319:
4320: IF NOT gme_common_pvt.g_setup_done THEN
4321: gme_common_pvt.g_setup_done :=
4354: ,p_encoded => fnd_api.g_false
4355: ,x_data => x_message_list);
4356:
4357: IF (g_debug IS NOT NULL) THEN
4358: gme_debug.put_line ( 'Completed '
4359: || l_api_name
4360: || ' at '
4361: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4362: END IF;
4360: || ' at '
4361: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4362: END IF;
4363:
4364: IF g_debug <= gme_debug.g_log_procedure THEN
4365: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
4366: END IF;
4367: EXCEPTION
4368: WHEN update_pp_lot_failure THEN
4361: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4362: END IF;
4363:
4364: IF g_debug <= gme_debug.g_log_procedure THEN
4365: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
4366: END IF;
4367: EXCEPTION
4368: WHEN update_pp_lot_failure THEN
4369: ROLLBACK TO SAVEPOINT update_pp_lot;
4378: ,p_encoded => fnd_api.g_false
4379: ,x_data => x_message_list);
4380: x_return_status := fnd_api.g_ret_sts_error;
4381: WHEN OTHERS THEN
4382: IF g_debug <= gme_debug.g_log_unexpected THEN
4383: gme_debug.put_line ( 'When others exception in '
4384: || g_pkg_name
4385: || '.'
4386: || l_api_name
4379: ,x_data => x_message_list);
4380: x_return_status := fnd_api.g_ret_sts_error;
4381: WHEN OTHERS THEN
4382: IF g_debug <= gme_debug.g_log_unexpected THEN
4383: gme_debug.put_line ( 'When others exception in '
4384: || g_pkg_name
4385: || '.'
4386: || l_api_name
4387: || ' Error is '
4409: l_api_name CONSTANT VARCHAR2 (30) := 'delete_pending_product_lot';
4410: setup_failure EXCEPTION;
4411: delete_pp_lot_failure EXCEPTION;
4412: BEGIN
4413: IF g_debug <= gme_debug.g_log_procedure THEN
4414: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4415: || l_api_name);
4416: END IF;
4417:
4410: setup_failure EXCEPTION;
4411: delete_pp_lot_failure EXCEPTION;
4412: BEGIN
4413: IF g_debug <= gme_debug.g_log_procedure THEN
4414: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4415: || l_api_name);
4416: END IF;
4417:
4418: SAVEPOINT delete_pp_lot;
4417:
4418: SAVEPOINT delete_pp_lot;
4419:
4420: IF (g_debug IS NOT NULL) THEN
4421: gme_debug.log_initialize ('DeletePendingProdLot');
4422: END IF;
4423:
4424: IF NOT gme_common_pvt.g_setup_done THEN
4425: gme_common_pvt.g_setup_done :=
4456: ,p_encoded => fnd_api.g_false
4457: ,x_data => x_message_list);
4458:
4459: IF (g_debug IS NOT NULL) THEN
4460: gme_debug.put_line ( 'Completed '
4461: || l_api_name
4462: || ' at '
4463: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4464: END IF;
4462: || ' at '
4463: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4464: END IF;
4465:
4466: IF g_debug <= gme_debug.g_log_procedure THEN
4467: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
4468: END IF;
4469: EXCEPTION
4470: WHEN delete_pp_lot_failure THEN
4463: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4464: END IF;
4465:
4466: IF g_debug <= gme_debug.g_log_procedure THEN
4467: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
4468: END IF;
4469: EXCEPTION
4470: WHEN delete_pp_lot_failure THEN
4471: ROLLBACK TO SAVEPOINT delete_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 '