[Home] [Help]
11: )
12: IS
13: l_api_name CONSTANT VARCHAR2 (30) := 'gme_when_others';
14: BEGIN
15: IF g_debug <= gme_debug.g_log_procedure THEN
16: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
17: || l_api_name);
18: END IF;
19: IF g_debug <= gme_debug.g_log_unexpected THEN
12: IS
13: l_api_name CONSTANT VARCHAR2 (30) := 'gme_when_others';
14: BEGIN
15: IF g_debug <= gme_debug.g_log_procedure THEN
16: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
17: || l_api_name);
18: END IF;
19: IF g_debug <= gme_debug.g_log_unexpected THEN
20: gme_debug.put_line(g_pkg_name||'.'||p_api_name||':'||'When others exception:'||SQLERRM);
15: IF g_debug <= gme_debug.g_log_procedure THEN
16: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
17: || l_api_name);
18: END IF;
19: IF g_debug <= gme_debug.g_log_unexpected THEN
20: gme_debug.put_line(g_pkg_name||'.'||p_api_name||':'||'When others exception:'||SQLERRM);
21: END IF;
22: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
23: gme_common_pvt.count_and_get (x_count => x_message_count
16: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
17: || l_api_name);
18: END IF;
19: IF g_debug <= gme_debug.g_log_unexpected THEN
20: gme_debug.put_line(g_pkg_name||'.'||p_api_name||':'||'When others exception:'||SQLERRM);
21: END IF;
22: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
23: gme_common_pvt.count_and_get (x_count => x_message_count
24: ,p_encoded => fnd_api.g_false
52: SELECT DISTINCT doc_id batch_id
53: FROM gme_resource_txns_gtmp
54: ORDER BY batch_id;
55: BEGIN
56: IF g_debug <= gme_debug.g_log_procedure THEN
57: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
58: || l_api_name);
59: END IF;
60:
53: FROM gme_resource_txns_gtmp
54: ORDER BY batch_id;
55: BEGIN
56: IF g_debug <= gme_debug.g_log_procedure THEN
57: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
58: || l_api_name);
59: END IF;
60:
61: IF g_debug <= gme_debug.g_log_statement THEN
57: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
58: || l_api_name);
59: END IF;
60:
61: IF g_debug <= gme_debug.g_log_statement THEN
62: gme_debug.put_line ('p_header_id = ' || p_header_id);
63: gme_debug.put_line ('p_table = ' || p_table);
64: END IF;
65:
58: || l_api_name);
59: END IF;
60:
61: IF g_debug <= gme_debug.g_log_statement THEN
62: gme_debug.put_line ('p_header_id = ' || p_header_id);
63: gme_debug.put_line ('p_table = ' || p_table);
64: END IF;
65:
66: x_return_status := fnd_api.g_ret_sts_success;
59: END IF;
60:
61: IF g_debug <= gme_debug.g_log_statement THEN
62: gme_debug.put_line ('p_header_id = ' || p_header_id);
63: gme_debug.put_line ('p_table = ' || p_table);
64: END IF;
65:
66: x_return_status := fnd_api.g_ret_sts_success;
67:
106: ,x_trans_count => l_trans_count
107: ,p_clear_qty_cache => p_clear_qty_cache);
108:
109: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
110: IF g_debug <= gme_debug.g_log_statement THEN
111: gme_debug.put_line( g_pkg_name
112: || '.'
113: || l_api_name
114: || ':'
107: ,p_clear_qty_cache => p_clear_qty_cache);
108:
109: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
110: IF g_debug <= gme_debug.g_log_statement THEN
111: gme_debug.put_line( g_pkg_name
112: || '.'
113: || l_api_name
114: || ':'
115: || 'Return status from process_transactions '
123: IF p_commit = fnd_api.g_true THEN
124: COMMIT;
125: END IF;
126:
127: IF g_debug <= gme_debug.g_log_procedure THEN
128: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
129: END IF;
130: EXCEPTION
131: WHEN error_save_batch THEN
124: COMMIT;
125: END IF;
126:
127: IF g_debug <= gme_debug.g_log_procedure THEN
128: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
129: END IF;
130: EXCEPTION
131: WHEN error_save_batch THEN
132: gme_common_pvt.count_and_get (x_count => l_msg_count
207: FROM mtl_units_of_measure
208: WHERE uom_code = v_uom_code);
209: BEGIN
210: IF (g_debug <> -1) THEN
211: gme_debug.log_initialize ('CreateBatch');
212: END IF;
213:
214: IF g_debug <= gme_debug.g_log_procedure THEN
215: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
210: IF (g_debug <> -1) THEN
211: gme_debug.log_initialize ('CreateBatch');
212: END IF;
213:
214: IF g_debug <= gme_debug.g_log_procedure THEN
215: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
216: || l_api_name);
217: END IF;
218:
211: gme_debug.log_initialize ('CreateBatch');
212: END IF;
213:
214: IF g_debug <= gme_debug.g_log_procedure THEN
215: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
216: || l_api_name);
217: END IF;
218:
219: /* Set the return status to success initially */
307: CLOSE cur_validate_uom;
308: END IF;
309: END IF;
310:
311: IF g_debug <= gme_debug.g_log_statement THEN
312: gme_debug.put_line ('Finished parameter validation');
313: END IF;
314:
315: gme_common_pvt.g_error_count := 0;
308: END IF;
309: END IF;
310:
311: IF g_debug <= gme_debug.g_log_statement THEN
312: gme_debug.put_line ('Finished parameter validation');
313: END IF;
314:
315: gme_common_pvt.g_error_count := 0;
316: gme_common_pvt.g_setup_done :=
322: ELSE
323: l_batch_header.organization_id := gme_common_pvt.g_organization_id;
324: END IF;
325:
326: IF g_debug <= gme_debug.g_log_statement THEN
327: gme_debug.put_line ('Finished setup');
328: END IF;
329:
330: IF (gme_common_pvt.g_lab_ind = 0 AND l_batch_header.laboratory_ind = 1) THEN
323: l_batch_header.organization_id := gme_common_pvt.g_organization_id;
324: END IF;
325:
326: IF g_debug <= gme_debug.g_log_statement THEN
327: gme_debug.put_line ('Finished setup');
328: END IF;
329:
330: IF (gme_common_pvt.g_lab_ind = 0 AND l_batch_header.laboratory_ind = 1) THEN
331: gme_common_pvt.log_message ('GME_NOT_LAB_ORG');
356: l_object_type := 'P';
357: END IF;
358: END IF;
359:
360: IF g_debug <= gme_debug.g_log_statement THEN
361: gme_debug.put_line ('Finished lab_ind plant_ind setup');
362: END IF;
363:
364: IF NVL (gme_common_pvt.g_validate_plan_dates_ind, 0) = 1 THEN
357: END IF;
358: END IF;
359:
360: IF g_debug <= gme_debug.g_log_statement THEN
361: gme_debug.put_line ('Finished lab_ind plant_ind setup');
362: END IF;
363:
364: IF NVL (gme_common_pvt.g_validate_plan_dates_ind, 0) = 1 THEN
365: l_cmplt_date := NULL;
462: RAISE fnd_api.g_exc_error;
463: END IF;
464: END IF;
465:
466: IF g_debug <= gme_debug.g_log_statement THEN
467: gme_debug.put_line ('Finished validity rule stuff');
468: END IF;
469:
470: IF p_use_workday_cal IS NOT NULL THEN
463: END IF;
464: END IF;
465:
466: IF g_debug <= gme_debug.g_log_statement THEN
467: gme_debug.put_line ('Finished validity rule stuff');
468: END IF;
469:
470: IF p_use_workday_cal IS NOT NULL THEN
471: l_use := p_use_workday_cal;
526: END IF;
527: END IF;
528: END IF;
529:
530: IF g_debug <= gme_debug.g_log_statement THEN
531: gme_debug.put_line ('calling main');
532: END IF;
533:
534: gme_api_main.create_batch
527: END IF;
528: END IF;
529:
530: IF g_debug <= gme_debug.g_log_statement THEN
531: gme_debug.put_line ('calling main');
532: END IF;
533:
534: gme_api_main.create_batch
535: (p_validation_level => p_validation_level
566: gme_common_pvt.count_and_get (x_count => x_message_count
567: ,p_encoded => fnd_api.g_false
568: ,x_data => x_message_list);
569:
570: IF g_debug <= gme_debug.g_log_procedure THEN
571: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
572: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
573: END IF;
574: EXCEPTION
567: ,p_encoded => fnd_api.g_false
568: ,x_data => x_message_list);
569:
570: IF g_debug <= gme_debug.g_log_procedure THEN
571: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
572: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
573: END IF;
574: EXCEPTION
575: WHEN fnd_api.g_exc_error THEN
612: l_batch_header gme_batch_header%ROWTYPE;
613: l_material_detail gme_material_details%ROWTYPE;
614: BEGIN
615: IF (g_debug <> -1) THEN
616: gme_debug.log_initialize ('CreatePhantom');
617: END IF;
618:
619: IF g_debug <= gme_debug.g_log_procedure THEN
620: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
615: IF (g_debug <> -1) THEN
616: gme_debug.log_initialize ('CreatePhantom');
617: END IF;
618:
619: IF g_debug <= gme_debug.g_log_procedure THEN
620: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
621: || l_api_name);
622: END IF;
623:
616: gme_debug.log_initialize ('CreatePhantom');
617: END IF;
618:
619: IF g_debug <= gme_debug.g_log_procedure THEN
620: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
621: || l_api_name);
622: END IF;
623:
624: x_return_status := fnd_api.g_ret_sts_success;
694: IF (p_commit = fnd_api.g_true) THEN
695: COMMIT;
696: END IF;
697:
698: IF g_debug <= gme_debug.g_log_procedure THEN
699: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
700: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
701: END IF;
702: EXCEPTION
695: COMMIT;
696: END IF;
697:
698: IF g_debug <= gme_debug.g_log_procedure THEN
699: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
700: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
701: END IF;
702: EXCEPTION
703: WHEN phantom_creation_failure THEN
749: l_return_status VARCHAR2(1);
750:
751: BEGIN
752: IF (g_debug <> -1) THEN
753: gme_debug.log_initialize ('ScaleBatch');
754: END IF;
755:
756: IF g_debug <= gme_debug.g_log_procedure THEN
757: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
752: IF (g_debug <> -1) THEN
753: gme_debug.log_initialize ('ScaleBatch');
754: END IF;
755:
756: IF g_debug <= gme_debug.g_log_procedure THEN
757: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
758: || l_api_name);
759: END IF;
760:
753: gme_debug.log_initialize ('ScaleBatch');
754: END IF;
755:
756: IF g_debug <= gme_debug.g_log_procedure THEN
757: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
758: || l_api_name);
759: END IF;
760:
761: /* Set the return status to success initially */
786: ,x_message_list => x_message_list
787: ,x_return_status => x_return_status );
788:
789: IF x_return_status <> fnd_api.g_ret_sts_success THEN
790: IF (g_debug = gme_debug.g_log_statement) THEN
791: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
792: || ': batch validate error ');
793: END IF;
794: RAISE fnd_api.g_exc_error;
787: ,x_return_status => x_return_status );
788:
789: IF x_return_status <> fnd_api.g_ret_sts_success THEN
790: IF (g_debug = gme_debug.g_log_statement) THEN
791: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
792: || ': batch validate error ');
793: END IF;
794: RAISE fnd_api.g_exc_error;
795: END IF;
865: gme_common_pvt.count_and_get (x_count => x_message_count
866: ,p_encoded => fnd_api.g_false
867: ,x_data => x_message_list);
868:
869: IF g_debug <= gme_debug.g_log_procedure THEN
870: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
871: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
872: END IF;
873: EXCEPTION
866: ,p_encoded => fnd_api.g_false
867: ,x_data => x_message_list);
868:
869: IF g_debug <= gme_debug.g_log_procedure THEN
870: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
871: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
872: END IF;
873: EXCEPTION
874: WHEN scale_batch_failed THEN
912: l_batch_header_rec gme_batch_header%ROWTYPE;
913: l_return_status VARCHAR2(1);
914: BEGIN
915: IF (g_debug <> -1) THEN
916: gme_debug.log_initialize ('TheoreticalYieldBatch');
917: END IF;
918:
919: IF g_debug <= gme_debug.g_log_procedure THEN
920: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
915: IF (g_debug <> -1) THEN
916: gme_debug.log_initialize ('TheoreticalYieldBatch');
917: END IF;
918:
919: IF g_debug <= gme_debug.g_log_procedure THEN
920: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
921: || l_api_name);
922: END IF;
923:
916: gme_debug.log_initialize ('TheoreticalYieldBatch');
917: END IF;
918:
919: IF g_debug <= gme_debug.g_log_procedure THEN
920: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
921: || l_api_name);
922: END IF;
923:
924: /* Set the return status to success initially */
949: ,x_message_list => x_message_list
950: ,x_return_status => x_return_status );
951:
952: IF x_return_status <> fnd_api.g_ret_sts_success THEN
953: IF (g_debug = gme_debug.g_log_statement) THEN
954: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
955: || ': batch validate error ');
956: END IF;
957: RAISE fnd_api.g_exc_error;
950: ,x_return_status => x_return_status );
951:
952: IF x_return_status <> fnd_api.g_ret_sts_success THEN
953: IF (g_debug = gme_debug.g_log_statement) THEN
954: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
955: || ': batch validate error ');
956: END IF;
957: RAISE fnd_api.g_exc_error;
958: END IF;
983: RAISE theoretical_yield_failed;
984: END IF;
985: --Bug#5459105 End
986:
987: IF g_debug <= gme_debug.g_log_procedure THEN
988: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
989: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
990: END IF;
991: EXCEPTION
984: END IF;
985: --Bug#5459105 End
986:
987: IF g_debug <= gme_debug.g_log_procedure THEN
988: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
989: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
990: END IF;
991: EXCEPTION
992: WHEN fnd_api.g_exc_error THEN
1058: BEGIN
1059: /* Set the savepoint */
1060: SAVEPOINT update_actual_rsrc_usage;
1061: IF g_debug <> -1 THEN
1062: gme_debug.log_initialize ('UpdateResource');
1063: END IF;
1064: /* Set the return status to success initially */
1065: x_return_status := fnd_api.g_ret_sts_success;
1066: /* Initialize message list and count if needed */
1101: gme_common_pvt.g_flex_validate_prof := 0;
1102: END IF;
1103: gme_common_pvt.set_timestamp;
1104:
1105: IF g_debug <= gme_debug.g_log_procedure THEN
1106: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1107: ||'BEFORE CALLING gme_resource_engine_pvt.update_actual_resource_usagep ' );
1108: END IF;
1109:
1102: END IF;
1103: gme_common_pvt.set_timestamp;
1104:
1105: IF g_debug <= gme_debug.g_log_procedure THEN
1106: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1107: ||'BEFORE CALLING gme_resource_engine_pvt.update_actual_resource_usagep ' );
1108: END IF;
1109:
1110: gme_resource_engine_pvt.update_actual_resource_usage
1160: FETCH cur_get_trans_id INTO x_rsrc_txn_rec;
1161: CLOSE cur_get_trans_id;
1162: END IF;
1163:
1164: IF g_debug <= gme_debug.g_log_procedure THEN
1165: gme_debug.put_line ( 'Actual rsrc usage at '
1166: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1167: END IF;
1168:
1161: CLOSE cur_get_trans_id;
1162: END IF;
1163:
1164: IF g_debug <= gme_debug.g_log_procedure THEN
1165: gme_debug.put_line ( 'Actual rsrc usage at '
1166: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1167: END IF;
1168:
1169: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
1224: /* Set the savepoint */
1225: SAVEPOINT insert_incr_actual_rsrc_txn;
1226:
1227: IF g_debug <> -1 THEN
1228: gme_debug.log_initialize ('InsertIncr');
1229: END IF;
1230: /* Set the return status to success initially */
1231: x_return_status := fnd_api.g_ret_sts_success;
1232: /* Initialize message list and count if needed */
1266: ELSE
1267: gme_common_pvt.g_flex_validate_prof := 0;
1268: END IF;
1269: gme_common_pvt.set_timestamp;
1270: IF g_debug <= gme_debug.g_log_procedure THEN
1271: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1272: ||'BEFORE CALLING gme_resource_engine_pvt.insert_incr_actual_rsrc_txnp ' );
1273: END IF;
1274: gme_resource_engine_pvt.insert_incr_actual_rsrc_txn
1267: gme_common_pvt.g_flex_validate_prof := 0;
1268: END IF;
1269: gme_common_pvt.set_timestamp;
1270: IF g_debug <= gme_debug.g_log_procedure THEN
1271: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1272: ||'BEFORE CALLING gme_resource_engine_pvt.insert_incr_actual_rsrc_txnp ' );
1273: END IF;
1274: gme_resource_engine_pvt.insert_incr_actual_rsrc_txn
1275: (p_org_code => p_org_code
1302: ELSE
1303: RAISE fnd_api.g_exc_error;
1304: END IF;
1305:
1306: IF g_debug <= gme_debug.g_log_procedure THEN
1307: gme_debug.put_line ( 'Insert Incr Actual rsrc usage at '
1308: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1309: END IF;
1310:
1303: RAISE fnd_api.g_exc_error;
1304: END IF;
1305:
1306: IF g_debug <= gme_debug.g_log_procedure THEN
1307: gme_debug.put_line ( 'Insert Incr Actual rsrc usage at '
1308: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1309: END IF;
1310:
1311: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
1365: SAVEPOINT insert_timed_actual_rsrc_txn;
1366: /* Set the return status to success initially */
1367: x_return_status := fnd_api.g_ret_sts_success;
1368: IF g_debug <> -1 THEN
1369: gme_debug.log_initialize ('InsertTimed');
1370: END IF;
1371:
1372: /* Initialize message list and count if needed */
1373: IF p_init_msg_list = fnd_api.g_true THEN
1407: ELSE
1408: gme_common_pvt.g_flex_validate_prof := 0;
1409: END IF;
1410:
1411: IF g_debug <= gme_debug.g_log_procedure THEN
1412: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1413: ||'BEFORE CALLING gme_resource_engine_pvt.insert_timed_actual_rsrc_txnp ');
1414: END IF;
1415:
1408: gme_common_pvt.g_flex_validate_prof := 0;
1409: END IF;
1410:
1411: IF g_debug <= gme_debug.g_log_procedure THEN
1412: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1413: ||'BEFORE CALLING gme_resource_engine_pvt.insert_timed_actual_rsrc_txnp ');
1414: END IF;
1415:
1416: gme_resource_engine_pvt.insert_timed_actual_rsrc_txn
1444: ELSE
1445: RAISE fnd_api.g_exc_error;
1446: END IF;
1447:
1448: IF g_debug <= gme_debug.g_log_procedure THEN
1449: gme_debug.put_line ( 'Insert timed Actual rsrc usage at '
1450: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1451: END IF;
1452:
1445: RAISE fnd_api.g_exc_error;
1446: END IF;
1447:
1448: IF g_debug <= gme_debug.g_log_procedure THEN
1449: gme_debug.put_line ( 'Insert timed Actual rsrc usage at '
1450: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1451: END IF;
1452:
1453: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
1513: SAVEPOINT start_cmplt_actual_rsrc_txn;
1514: /* Set the return status to success initially */
1515: x_return_status := fnd_api.g_ret_sts_success;
1516: IF g_debug <> -1 THEN
1517: gme_debug.log_initialize ('StartCmplt');
1518: END IF;
1519:
1520: /* Initialize message list and count if needed */
1521: IF p_init_msg_list = fnd_api.g_true THEN
1549: ELSE
1550: gme_common_pvt.g_flex_validate_prof := 0;
1551: END IF;
1552:
1553: IF g_debug <= gme_debug.g_log_procedure THEN
1554: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1555: ||'BEFORE CALLING gme_resource_engine_pvt.start_cmplt_actual_rsrc_txnp ' );
1556: END IF;
1557:
1550: gme_common_pvt.g_flex_validate_prof := 0;
1551: END IF;
1552:
1553: IF g_debug <= gme_debug.g_log_procedure THEN
1554: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1555: ||'BEFORE CALLING gme_resource_engine_pvt.start_cmplt_actual_rsrc_txnp ' );
1556: END IF;
1557:
1558: gme_resource_engine_pvt.start_cmplt_actual_rsrc_txn
1587: ELSE
1588: RAISE fnd_api.g_exc_error;
1589: END IF;
1590:
1591: IF g_debug <= gme_debug.g_log_procedure THEN
1592: gme_debug.put_line ( 'start Actual rsrc txn at '
1593: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1594: END IF;
1595:
1588: RAISE fnd_api.g_exc_error;
1589: END IF;
1590:
1591: IF g_debug <= gme_debug.g_log_procedure THEN
1592: gme_debug.put_line ( 'start Actual rsrc txn at '
1593: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1594: END IF;
1595:
1596: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
1644: /* Set the savepoint */
1645: SAVEPOINT end_cmplt_actual_rsrc_txn;
1646:
1647: IF g_debug <> -1 THEN
1648: gme_debug.log_initialize ('EndCmplt');
1649: END IF;
1650:
1651: /* Initialize message list and count if needed */
1652: IF p_init_msg_list = fnd_api.g_true THEN
1686: ELSE
1687: gme_common_pvt.g_flex_validate_prof := 0;
1688: END IF;
1689:
1690: IF g_debug <= gme_debug.g_log_procedure THEN
1691: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1692: ||'CALLING gme_resource_engine_pvt.end_cmplt_actual_rsrc_txnp ');
1693: END IF;
1694:
1687: gme_common_pvt.g_flex_validate_prof := 0;
1688: END IF;
1689:
1690: IF g_debug <= gme_debug.g_log_procedure THEN
1691: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1692: ||'CALLING gme_resource_engine_pvt.end_cmplt_actual_rsrc_txnp ');
1693: END IF;
1694:
1695: gme_resource_engine_pvt.end_cmplt_actual_rsrc_txn
1719: ELSE
1720: RAISE fnd_api.g_exc_error;
1721: END IF;
1722:
1723: IF g_debug <= gme_debug.g_log_procedure THEN
1724: gme_debug.put_line ( 'Insert Incr Actual rsrc usage at '
1725: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1726: END IF;
1727:
1720: RAISE fnd_api.g_exc_error;
1721: END IF;
1722:
1723: IF g_debug <= gme_debug.g_log_procedure THEN
1724: gme_debug.put_line ( 'Insert Incr Actual rsrc usage at '
1725: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1726: END IF;
1727:
1728: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
1766: l_use VARCHAR2 (1);
1767: l_batch_header_rec gme_batch_header%ROWTYPE;
1768: BEGIN
1769: IF g_debug <> -1 THEN
1770: gme_debug.log_initialize ('RescheduleBatch');
1771: END IF;
1772:
1773: IF (g_debug IN (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1774: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1769: IF g_debug <> -1 THEN
1770: gme_debug.log_initialize ('RescheduleBatch');
1771: END IF;
1772:
1773: IF (g_debug IN (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1774: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1775: || 'Entering');
1776: END IF;
1777:
1770: gme_debug.log_initialize ('RescheduleBatch');
1771: END IF;
1772:
1773: IF (g_debug IN (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1774: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1775: || 'Entering');
1776: END IF;
1777:
1778: /* Set the return status to success initially */
1794: ,x_message_list => x_message_list
1795: ,x_return_status => x_return_status );
1796:
1797: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1798: IF (g_debug = gme_debug.g_log_statement) THEN
1799: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
1800: || ': batch validate error ');
1801: END IF;
1802: RAISE fnd_api.g_exc_error;
1795: ,x_return_status => x_return_status );
1796:
1797: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1798: IF (g_debug = gme_debug.g_log_statement) THEN
1799: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
1800: || ': batch validate error ');
1801: END IF;
1802: RAISE fnd_api.g_exc_error;
1803: END IF;
1810: gme_common_pvt.log_message ('GME_INVALID_API_VERSION');
1811: RAISE fnd_api.g_exc_error;
1812: END IF;
1813:
1814: IF g_debug <= gme_debug.g_log_procedure THEN
1815: gme_debug.put_line ( ' Value of Plan_start_date : ' || TO_CHAR
1816: (l_batch_header_rec.plan_start_date ,'DD-MON-YYYY HH24:MI:SS') || ',
1817: Plan_cmplt_date : ' || TO_CHAR (l_batch_header_rec.plan_cmplt_date
1818: ,'DD-MON-YYYY HH24:MI:SS') || ', Batch_status '
1811: RAISE fnd_api.g_exc_error;
1812: END IF;
1813:
1814: IF g_debug <= gme_debug.g_log_procedure THEN
1815: gme_debug.put_line ( ' Value of Plan_start_date : ' || TO_CHAR
1816: (l_batch_header_rec.plan_start_date ,'DD-MON-YYYY HH24:MI:SS') || ',
1817: Plan_cmplt_date : ' || TO_CHAR (l_batch_header_rec.plan_cmplt_date
1818: ,'DD-MON-YYYY HH24:MI:SS') || ', Batch_status '
1819: || l_batch_header_rec.batch_status);
1942: END IF; /* l_batch_header_rec.plan_cmplt_date IS NULL */
1943: END IF; /* (gme_common_pvt.g_calendar_code IS NOT NULL) */
1944: END IF; /* l_use = FND_API.G_TRUE */
1945:
1946: IF (g_debug = gme_debug.g_log_statement) THEN
1947: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':'
1948: || 'Calling Main Reschedule Batch');
1949: END IF;
1950:
1943: END IF; /* (gme_common_pvt.g_calendar_code IS NOT NULL) */
1944: END IF; /* l_use = FND_API.G_TRUE */
1945:
1946: IF (g_debug = gme_debug.g_log_statement) THEN
1947: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':'
1948: || 'Calling Main Reschedule Batch');
1949: END IF;
1950:
1951: l_batch_header_rec.plan_start_date := p_batch_header_rec.plan_start_date;
1959: ,x_message_list => x_message_list
1960: ,x_return_status => x_return_status
1961: ,x_batch_header_rec => x_batch_header_rec);
1962:
1963: IF (g_debug = gme_debug.g_log_statement) THEN
1964: gme_debug.put_line
1965: ( 'Came back from Main Reschedule Batch with status '
1966: || x_return_status);
1967: END IF;
1960: ,x_return_status => x_return_status
1961: ,x_batch_header_rec => x_batch_header_rec);
1962:
1963: IF (g_debug = gme_debug.g_log_statement) THEN
1964: gme_debug.put_line
1965: ( 'Came back from Main Reschedule Batch with status '
1966: || x_return_status);
1967: END IF;
1968:
1982: END IF;
1983: END IF;
1984: END IF;
1985:
1986: IF g_debug <= gme_debug.g_log_procedure THEN
1987: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':' ||
1988: 'Exiting with ' || x_return_status || ' at '
1989: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1990: END IF;
1983: END IF;
1984: END IF;
1985:
1986: IF g_debug <= gme_debug.g_log_procedure THEN
1987: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':' ||
1988: 'Exiting with ' || x_return_status || ' at '
1989: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1990: END IF;
1991: EXCEPTION
2041: l_reschedule_preceding VARCHAR2 (1);
2042: l_reschedule_succeeding VARCHAR2 (1);
2043: BEGIN
2044: IF g_debug <> -1 THEN
2045: gme_debug.log_initialize ('RescheduleStep');
2046: END IF;
2047:
2048: IF (g_debug IN
2049: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
2045: gme_debug.log_initialize ('RescheduleStep');
2046: END IF;
2047:
2048: IF (g_debug IN
2049: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
2050: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2051: || 'Entering');
2052: END IF;
2053:
2046: END IF;
2047:
2048: IF (g_debug IN
2049: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
2050: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2051: || 'Entering');
2052: END IF;
2053:
2054: /* Set the return status to success initially */
2073: ,x_message_list => x_message_list
2074: ,x_return_status => x_return_status) ;
2075:
2076: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2077: IF (g_debug = gme_debug.g_log_statement) THEN
2078: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
2079: || ': batch step validate error ');
2080: END IF;
2081: RAISE fnd_api.g_exc_error;
2074: ,x_return_status => x_return_status) ;
2075:
2076: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2077: IF (g_debug = gme_debug.g_log_statement) THEN
2078: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
2079: || ': batch step validate error ');
2080: END IF;
2081: RAISE fnd_api.g_exc_error;
2082: END IF;
2220: IF l_batch_step_rec.step_status IN
2221: (gme_common_pvt.g_step_pending
2222: ,gme_common_pvt.g_step_wip)
2223: AND l_batch_step_rec.plan_cmplt_date IS NOT NULL THEN
2224: gme_debug.put_line ('in cmplt');
2225:
2226: IF NOT gmp_calendar_api.is_working_daytime
2227: (1.0
2228: ,FALSE
2258: END IF; /* l_batch_step_rec.plan_cmplt_date IS NULL */
2259: END IF; /* (gme_common_pvt.g_calendar_code IS NOT NULL) */
2260: END IF; /* l_use = FND_API.G_TRUE */
2261:
2262: IF (g_debug = gme_debug.g_log_statement) THEN
2263: gme_debug.put_line ( g_pkg_name
2264: || '.'
2265: || l_api_name
2266: || ':'
2259: END IF; /* (gme_common_pvt.g_calendar_code IS NOT NULL) */
2260: END IF; /* l_use = FND_API.G_TRUE */
2261:
2262: IF (g_debug = gme_debug.g_log_statement) THEN
2263: gme_debug.put_line ( g_pkg_name
2264: || '.'
2265: || l_api_name
2266: || ':'
2267: || 'Calling Main Reschedule Step');
2280: ,x_message_list => x_message_list
2281: ,x_return_status => x_return_status
2282: ,x_batch_step_rec => x_batch_step_rec);
2283:
2284: IF (g_debug = gme_debug.g_log_statement) THEN
2285: gme_debug.put_line
2286: ( 'Came back from Main Reschedule Step with status '
2287: || x_return_status);
2288: END IF;
2281: ,x_return_status => x_return_status
2282: ,x_batch_step_rec => x_batch_step_rec);
2283:
2284: IF (g_debug = gme_debug.g_log_statement) THEN
2285: gme_debug.put_line
2286: ( 'Came back from Main Reschedule Step with status '
2287: || x_return_status);
2288: END IF;
2289:
2303: END IF;
2304: END IF;
2305: END IF;
2306:
2307: IF g_debug <= gme_debug.g_log_procedure THEN
2308: gme_debug.put_line ( g_pkg_name
2309: || '.'
2310: || l_api_name
2311: || ':'
2304: END IF;
2305: END IF;
2306:
2307: IF g_debug <= gme_debug.g_log_procedure THEN
2308: gme_debug.put_line ( g_pkg_name
2309: || '.'
2310: || l_api_name
2311: || ':'
2312: || 'Exiting with '
2351: IS
2352: l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_BATCH_RESERVATIONS';
2353: l_batch_header_rec gme_batch_header%ROWTYPE;
2354: BEGIN
2355: IF g_debug <= gme_debug.g_log_procedure THEN
2356: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2357: || l_api_name);
2358: END IF;
2359:
2352: l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_BATCH_RESERVATIONS';
2353: l_batch_header_rec gme_batch_header%ROWTYPE;
2354: BEGIN
2355: IF g_debug <= gme_debug.g_log_procedure THEN
2356: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2357: || l_api_name);
2358: END IF;
2359:
2360: /* Set the savepoint */
2362: /* Set the return status to success initially */
2363: x_return_status := fnd_api.g_ret_sts_success;
2364:
2365: IF g_debug <> -1 THEN
2366: gme_debug.log_initialize ('CreateBatchReservations');
2367: END IF;
2368:
2369: /* Make sure we are call compatible */
2370: IF NOT fnd_api.compatible_api_call (2.0
2395: ,x_message_list => x_message_list
2396: ,x_return_status => x_return_status );
2397:
2398: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2399: IF (g_debug = gme_debug.g_log_statement) THEN
2400: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
2401: || ': batch validate error ');
2402: END IF;
2403: RAISE fnd_api.g_exc_error;
2396: ,x_return_status => x_return_status );
2397:
2398: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2399: IF (g_debug = gme_debug.g_log_statement) THEN
2400: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
2401: || ': batch validate error ');
2402: END IF;
2403: RAISE fnd_api.g_exc_error;
2404: END IF;
2418: ,x_message_count => x_message_count
2419: ,x_message_list => x_message_list
2420: ,x_return_status => x_return_status);
2421:
2422: IF (g_debug = gme_debug.g_log_statement) THEN
2423: gme_debug.put_line ( 'create batch reservations returns '
2424: || x_return_status);
2425: END IF;
2426:
2419: ,x_message_list => x_message_list
2420: ,x_return_status => x_return_status);
2421:
2422: IF (g_debug = gme_debug.g_log_statement) THEN
2423: gme_debug.put_line ( 'create batch reservations returns '
2424: || x_return_status);
2425: END IF;
2426:
2427: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2431: IF p_commit = fnd_api.g_true THEN
2432: COMMIT;
2433: END IF;
2434:
2435: gme_debug.put_line ( 'End of Create_Batch_Reservations at '
2436: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2437: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
2438: EXCEPTION
2439: WHEN fnd_api.g_exc_error THEN
2469: l_material_details_rec gme_material_details%ROWTYPE;
2470: l_material_details_rec_out gme_material_details%ROWTYPE;
2471: l_batch_header_rec gme_batch_header%ROWTYPE;
2472: BEGIN
2473: IF g_debug <= gme_debug.g_log_procedure THEN
2474: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2475: || l_api_name);
2476: END IF;
2477:
2470: l_material_details_rec_out gme_material_details%ROWTYPE;
2471: l_batch_header_rec gme_batch_header%ROWTYPE;
2472: BEGIN
2473: IF g_debug <= gme_debug.g_log_procedure THEN
2474: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2475: || l_api_name);
2476: END IF;
2477:
2478: /* Set the savepoint */
2480: /* Set the return status to success initially */
2481: x_return_status := fnd_api.g_ret_sts_success;
2482:
2483: IF g_debug <> -1 THEN
2484: gme_debug.log_initialize ('CreateLineReservations');
2485: END IF;
2486:
2487: /* Make sure we are call compatible */
2488: IF NOT fnd_api.compatible_api_call (2.0
2515: ,x_message_count => x_message_count
2516: ,x_message_list => x_message_list
2517: ,x_return_status => x_return_status );
2518: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2519: IF (g_debug = gme_debug.g_log_statement) THEN
2520: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
2521: || ': batch mateiral validate error ');
2522: END IF;
2523: RAISE fnd_api.g_exc_error;
2516: ,x_message_list => x_message_list
2517: ,x_return_status => x_return_status );
2518: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2519: IF (g_debug = gme_debug.g_log_statement) THEN
2520: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
2521: || ': batch mateiral validate error ');
2522: END IF;
2523: RAISE fnd_api.g_exc_error;
2524: END IF;
2541: gme_common_pvt.log_message ('GME_INVENTORY_UPDATE_BLOCKED');
2542: RAISE fnd_api.g_exc_error;
2543: END IF;
2544:
2545: -- gme_debug.put_line(l_batch_header_rec.batch_status);
2546:
2547: /* Verify Batch to be in pending or WIP status */
2548: IF l_batch_header_rec.batch_status NOT IN
2549: (gme_common_pvt.g_batch_pending, gme_common_pvt.g_batch_wip) THEN
2563: ,x_message_count => x_message_count
2564: ,x_message_list => x_message_list
2565: ,x_return_status => x_return_status);
2566:
2567: IF (g_debug = gme_debug.g_log_statement) THEN
2568: gme_debug.put_line ( 'create line reservation returns '
2569: || x_return_status);
2570: END IF;
2571:
2564: ,x_message_list => x_message_list
2565: ,x_return_status => x_return_status);
2566:
2567: IF (g_debug = gme_debug.g_log_statement) THEN
2568: gme_debug.put_line ( 'create line reservation returns '
2569: || x_return_status);
2570: END IF;
2571:
2572: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2576: IF p_commit = fnd_api.g_true THEN
2577: COMMIT;
2578: END IF;
2579:
2580: gme_debug.put_line ( 'End of Create_Line_Reservations at '
2581: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2582: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
2583: EXCEPTION
2584: WHEN fnd_api.g_exc_error THEN
2616: insert_parameter_failed EXCEPTION;
2617: l_api_name CONSTANT VARCHAR2 (30) := 'INSERT_PROCESS_PARAMETER';
2618: BEGIN
2619: IF (g_debug IN
2620: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
2621: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2622: || 'Entering');
2623: END IF;
2624:
2617: l_api_name CONSTANT VARCHAR2 (30) := 'INSERT_PROCESS_PARAMETER';
2618: BEGIN
2619: IF (g_debug IN
2620: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
2621: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2622: || 'Entering');
2623: END IF;
2624:
2625: SAVEPOINT insert_process_parameter;
2624:
2625: SAVEPOINT insert_process_parameter;
2626:
2627: IF (g_debug <> -1) THEN
2628: gme_debug.log_initialize ('InsertProcessParameters');
2629: END IF;
2630:
2631: /* Set the return status to success initially */
2632: x_return_status := fnd_api.g_ret_sts_success;
2646:
2647: gme_common_pvt.g_setup_done := gme_common_pvt.setup (p_org_code => p_org_code);
2648:
2649: IF NOT gme_common_pvt.g_setup_done THEN
2650: IF (g_debug = gme_debug.g_log_statement) THEN
2651: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ':set up problem ');
2652: END IF;
2653: RAISE fnd_api.g_exc_error;
2654: END IF;
2647: gme_common_pvt.g_setup_done := gme_common_pvt.setup (p_org_code => p_org_code);
2648:
2649: IF NOT gme_common_pvt.g_setup_done THEN
2650: IF (g_debug = gme_debug.g_log_statement) THEN
2651: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ':set up problem ');
2652: END IF;
2653: RAISE fnd_api.g_exc_error;
2654: END IF;
2655: IF (g_debug <= gme_debug.g_log_procedure) THEN
2651: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ':set up problem ');
2652: END IF;
2653: RAISE fnd_api.g_exc_error;
2654: END IF;
2655: IF (g_debug <= gme_debug.g_log_procedure) THEN
2656: gme_debug.put_line ('Calling Insert process parameters');
2657: END IF;
2658:
2659: gme_common_pvt.set_timestamp;
2652: END IF;
2653: RAISE fnd_api.g_exc_error;
2654: END IF;
2655: IF (g_debug <= gme_debug.g_log_procedure) THEN
2656: gme_debug.put_line ('Calling Insert process parameters');
2657: END IF;
2658:
2659: gme_common_pvt.set_timestamp;
2660: gme_process_parameters_pvt.insert_process_parameter
2667: ,p_process_param_rec => p_process_param_rec
2668: ,x_process_param_rec => x_process_param_rec
2669: ,x_return_status => x_return_status);
2670:
2671: IF (g_debug = gme_debug.g_log_statement) THEN
2672: gme_debug.put_line
2673: ( 'Came back from Pvt insert process parameter with status '
2674: || x_return_status);
2675: END IF;
2668: ,x_process_param_rec => x_process_param_rec
2669: ,x_return_status => x_return_status);
2670:
2671: IF (g_debug = gme_debug.g_log_statement) THEN
2672: gme_debug.put_line
2673: ( 'Came back from Pvt insert process parameter with status '
2674: || x_return_status);
2675: END IF;
2676:
2682: ELSE
2683: RAISE insert_parameter_failed;
2684: END IF;
2685:
2686: IF g_debug <= gme_debug.g_log_procedure THEN
2687: gme_debug.put_line ( g_pkg_name
2688: || '.'
2689: || l_api_name
2690: || ' : Exiting with '
2683: RAISE insert_parameter_failed;
2684: END IF;
2685:
2686: IF g_debug <= gme_debug.g_log_procedure THEN
2687: gme_debug.put_line ( g_pkg_name
2688: || '.'
2689: || l_api_name
2690: || ' : Exiting with '
2691: || x_return_status
2733: update_parameter_failed EXCEPTION;
2734: l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_PROCESS_PARAMETER';
2735: BEGIN
2736: IF (g_debug IN
2737: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
2738: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2739: || 'Entering');
2740: END IF;
2741:
2734: l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_PROCESS_PARAMETER';
2735: BEGIN
2736: IF (g_debug IN
2737: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
2738: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2739: || 'Entering');
2740: END IF;
2741:
2742: SAVEPOINT update_process_parameter;
2741:
2742: SAVEPOINT update_process_parameter;
2743:
2744: IF (g_debug <> -1) THEN
2745: gme_debug.log_initialize ('UpdateProcessParameter');
2746: END IF;
2747:
2748: /* Initially let us assign the return status to success */
2749: x_return_status := fnd_api.g_ret_sts_success;
2780: ,p_process_param_rec => p_process_param_rec
2781: ,x_process_param_rec => x_process_param_rec
2782: ,x_return_status => x_return_status);
2783:
2784: IF (g_debug = gme_debug.g_log_statement) THEN
2785: gme_debug.put_line
2786: ( 'Came back from Pvt update process parameter with status '
2787: || x_return_status);
2788: END IF;
2781: ,x_process_param_rec => x_process_param_rec
2782: ,x_return_status => x_return_status);
2783:
2784: IF (g_debug = gme_debug.g_log_statement) THEN
2785: gme_debug.put_line
2786: ( 'Came back from Pvt update process parameter with status '
2787: || x_return_status);
2788: END IF;
2789:
2795: ELSE
2796: RAISE update_parameter_failed;
2797: END IF;
2798:
2799: IF g_debug <= gme_debug.g_log_procedure THEN
2800: gme_debug.put_line ( g_pkg_name
2801: || '.'
2802: || l_api_name
2803: || ':'
2796: RAISE update_parameter_failed;
2797: END IF;
2798:
2799: IF g_debug <= gme_debug.g_log_procedure THEN
2800: gme_debug.put_line ( g_pkg_name
2801: || '.'
2802: || l_api_name
2803: || ':'
2804: || 'Exiting with '
2845: delete_parameter_failed EXCEPTION;
2846: l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_PROCESS_PARAMETER';
2847: BEGIN
2848: IF (g_debug IN
2849: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
2850: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2851: || 'Entering');
2852: END IF;
2853:
2846: l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_PROCESS_PARAMETER';
2847: BEGIN
2848: IF (g_debug IN
2849: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
2850: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2851: || 'Entering');
2852: END IF;
2853:
2854: SAVEPOINT delete_process_parameter;
2853:
2854: SAVEPOINT delete_process_parameter;
2855:
2856: IF (g_debug <> -1) THEN
2857: gme_debug.log_initialize ('DeleteProcessParameter');
2858: END IF;
2859:
2860: /* Set the return status to success initially */
2861: x_return_status := fnd_api.g_ret_sts_success;
2880: x_return_status := fnd_api.g_ret_sts_error;
2881: RAISE fnd_api.g_exc_error;
2882: END IF;
2883:
2884: IF (g_debug <= gme_debug.g_log_procedure) THEN
2885: gme_debug.put_line ('Calling Insert process parameters');
2886: END IF;
2887:
2888: gme_common_pvt.set_timestamp;
2881: RAISE fnd_api.g_exc_error;
2882: END IF;
2883:
2884: IF (g_debug <= gme_debug.g_log_procedure) THEN
2885: gme_debug.put_line ('Calling Insert process parameters');
2886: END IF;
2887:
2888: gme_common_pvt.set_timestamp;
2889: gme_process_parameters_pvt.delete_process_parameter
2894: ,p_parameter => p_parameter
2895: ,p_process_param_rec => p_process_param_rec
2896: ,x_return_status => x_return_status);
2897:
2898: IF (g_debug = gme_debug.g_log_statement) THEN
2899: gme_debug.put_line
2900: ( 'Came back from Pvt delete process parameter with status '
2901: || x_return_status);
2902: END IF;
2895: ,p_process_param_rec => p_process_param_rec
2896: ,x_return_status => x_return_status);
2897:
2898: IF (g_debug = gme_debug.g_log_statement) THEN
2899: gme_debug.put_line
2900: ( 'Came back from Pvt delete process parameter with status '
2901: || x_return_status);
2902: END IF;
2903:
2909: ELSE
2910: RAISE delete_parameter_failed;
2911: END IF;
2912:
2913: IF g_debug <= gme_debug.g_log_procedure THEN
2914: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':' ||
2915: 'Exiting with ' || x_return_status || ' at '
2916: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2917: END IF;
2910: RAISE delete_parameter_failed;
2911: END IF;
2912:
2913: IF g_debug <= gme_debug.g_log_procedure THEN
2914: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':' ||
2915: 'Exiting with ' || x_return_status || ' at '
2916: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2917: END IF;
2918: EXCEPTION
3004: END IF;
3005: END IF;
3006: END IF;
3007:
3008: IF g_debug <= gme_debug.g_log_procedure THEN
3009: gme_debug.put_line ( 'Completed ' || l_api_name || ' at ' || TO_CHAR
3010: (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3011: END IF;
3012: EXCEPTION
3005: END IF;
3006: END IF;
3007:
3008: IF g_debug <= gme_debug.g_log_procedure THEN
3009: gme_debug.put_line ( 'Completed ' || l_api_name || ' at ' || TO_CHAR
3010: (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3011: END IF;
3012: EXCEPTION
3013: WHEN fnd_api.g_exc_error THEN
3164: CLOSE get_oprn;
3165:
3166: IF NVL (l_oprn_no, 0) = NVL (p_oprn_no, 0)
3167: AND NVL (l_oprn_vers, 0) = NVL (p_oprn_vers, 0) THEN
3168: IF g_debug <= gme_debug.g_log_procedure THEN
3169: gme_debug.put_line (' oprn_no and oprn_vers are valid');
3170: END IF;
3171: ELSE
3172: IF g_debug <= gme_debug.g_log_procedure THEN
3165:
3166: IF NVL (l_oprn_no, 0) = NVL (p_oprn_no, 0)
3167: AND NVL (l_oprn_vers, 0) = NVL (p_oprn_vers, 0) THEN
3168: IF g_debug <= gme_debug.g_log_procedure THEN
3169: gme_debug.put_line (' oprn_no and oprn_vers are valid');
3170: END IF;
3171: ELSE
3172: IF g_debug <= gme_debug.g_log_procedure THEN
3173: gme_debug.put_line (' oprn_no and oprn_vers are NOT valid');
3168: IF g_debug <= gme_debug.g_log_procedure THEN
3169: gme_debug.put_line (' oprn_no and oprn_vers are valid');
3170: END IF;
3171: ELSE
3172: IF g_debug <= gme_debug.g_log_procedure THEN
3173: gme_debug.put_line (' oprn_no and oprn_vers are NOT valid');
3174: RAISE insert_step_failed;
3175: END IF;
3176: END IF;
3169: gme_debug.put_line (' oprn_no and oprn_vers are valid');
3170: END IF;
3171: ELSE
3172: IF g_debug <= gme_debug.g_log_procedure THEN
3173: gme_debug.put_line (' oprn_no and oprn_vers are NOT valid');
3174: RAISE insert_step_failed;
3175: END IF;
3176: END IF;
3177: ELSE
3185:
3186: CLOSE verify_oprn;
3187:
3188: IF l_verify_oprn IS NULL THEN
3189: IF g_debug <= gme_debug.g_log_procedure THEN
3190: gme_debug.put_line
3191: ('oprn_no and oprn_vers passed in are wrong and hence an error condition ');
3192: END IF;
3193:
3186: CLOSE verify_oprn;
3187:
3188: IF l_verify_oprn IS NULL THEN
3189: IF g_debug <= gme_debug.g_log_procedure THEN
3190: gme_debug.put_line
3191: ('oprn_no and oprn_vers passed in are wrong and hence an error condition ');
3192: END IF;
3193:
3194: RAISE insert_step_failed;
3193:
3194: RAISE insert_step_failed;
3195: END IF;
3196: ELSE
3197: IF g_debug <= gme_debug.g_log_procedure THEN
3198: gme_debug.put_line
3199: (' Both oprn_no and oprn_vers are null hence oprn_no and oprn_vers cannot be validated ');
3200: END IF;
3201:
3194: RAISE insert_step_failed;
3195: END IF;
3196: ELSE
3197: IF g_debug <= gme_debug.g_log_procedure THEN
3198: gme_debug.put_line
3199: (' Both oprn_no and oprn_vers are null hence oprn_no and oprn_vers cannot be validated ');
3200: END IF;
3201:
3202: RAISE insert_step_failed;
3239: gme_common_pvt.count_and_get (x_count => x_message_count
3240: ,p_encoded => fnd_api.g_false
3241: ,x_data => x_message_list);
3242:
3243: IF g_debug <= gme_debug.g_log_procedure THEN
3244: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
3245: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3246: END IF;
3247: EXCEPTION
3240: ,p_encoded => fnd_api.g_false
3241: ,x_data => x_message_list);
3242:
3243: IF g_debug <= gme_debug.g_log_procedure THEN
3244: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
3245: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3246: END IF;
3247: EXCEPTION
3248: WHEN fnd_api.g_exc_error THEN
3323: x_transacted VARCHAR2(30);
3324:
3325: BEGIN
3326: IF (g_debug <> -1) THEN
3327: gme_debug.log_initialize ('INSERT_MATERIAL_LINE');
3328: END IF;
3329:
3330: IF g_debug <= gme_debug.g_log_procedure THEN
3331: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'|| l_api_name);
3326: IF (g_debug <> -1) THEN
3327: gme_debug.log_initialize ('INSERT_MATERIAL_LINE');
3328: END IF;
3329:
3330: IF g_debug <= gme_debug.g_log_procedure THEN
3331: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'|| l_api_name);
3332: END IF;
3333:
3334: /* Set the return status to success initially */
3327: gme_debug.log_initialize ('INSERT_MATERIAL_LINE');
3328: END IF;
3329:
3330: IF g_debug <= gme_debug.g_log_procedure THEN
3331: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'|| l_api_name);
3332: END IF;
3333:
3334: /* Set the return status to success initially */
3335: x_return_status := fnd_api.g_ret_sts_success;
3362: ,x_message_list => x_message_list
3363: ,x_return_status => x_return_status );
3364:
3365: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3366: IF (g_debug = gme_debug.g_log_statement) THEN
3367: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
3368: || ': batch validate error ');
3369: END IF;
3370: RAISE fnd_api.g_exc_error;
3363: ,x_return_status => x_return_status );
3364:
3365: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3366: IF (g_debug = gme_debug.g_log_statement) THEN
3367: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
3368: || ': batch validate error ');
3369: END IF;
3370: RAISE fnd_api.g_exc_error;
3371: END IF;
3469: END IF;
3470: NULL;
3471: END IF;
3472:
3473: IF g_debug <= gme_debug.g_log_procedure THEN
3474: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
3475: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3476: END IF;
3477:
3470: NULL;
3471: END IF;
3472:
3473: IF g_debug <= gme_debug.g_log_procedure THEN
3474: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
3475: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3476: END IF;
3477:
3478: EXCEPTION
3560:
3561: BEGIN
3562:
3563: IF (g_debug <> -1) THEN
3564: gme_debug.log_initialize ('UPADATE_MATERIAL_LINE');
3565: END IF;
3566: IF g_debug <= gme_debug.g_log_procedure THEN
3567: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'|| l_api_name);
3568: END IF;
3562:
3563: IF (g_debug <> -1) THEN
3564: gme_debug.log_initialize ('UPADATE_MATERIAL_LINE');
3565: END IF;
3566: IF g_debug <= gme_debug.g_log_procedure THEN
3567: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'|| l_api_name);
3568: END IF;
3569:
3570: /* Set the return status to success initially */
3563: IF (g_debug <> -1) THEN
3564: gme_debug.log_initialize ('UPADATE_MATERIAL_LINE');
3565: END IF;
3566: IF g_debug <= gme_debug.g_log_procedure THEN
3567: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'|| l_api_name);
3568: END IF;
3569:
3570: /* Set the return status to success initially */
3571: x_return_status := fnd_api.g_ret_sts_success;
3607: ,x_message_count => x_message_count
3608: ,x_message_list => x_message_list
3609: ,x_return_status => x_return_status );
3610: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3611: IF (g_debug = gme_debug.g_log_statement) THEN
3612: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
3613: || ': batch mateiral validate error ');
3614: END IF;
3615: RAISE fnd_api.g_exc_error;
3608: ,x_message_list => x_message_list
3609: ,x_return_status => x_return_status );
3610: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3611: IF (g_debug = gme_debug.g_log_statement) THEN
3612: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
3613: || ': batch mateiral validate error ');
3614: END IF;
3615: RAISE fnd_api.g_exc_error;
3616: END IF;
3721: END IF;
3722: NULL;
3723: END IF;
3724:
3725: IF g_debug <= gme_debug.g_log_procedure THEN
3726: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
3727: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3728: END IF;
3729:
3722: NULL;
3723: END IF;
3724:
3725: IF g_debug <= gme_debug.g_log_procedure THEN
3726: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
3727: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3728: END IF;
3729:
3730: EXCEPTION
3790: x_batch_header_rec gme_batch_header%ROWTYPE;
3791:
3792: BEGIN
3793: IF (g_debug <> -1) THEN
3794: gme_debug.log_initialize ('DELETE_MATERIAL_LINE');
3795: END IF;
3796: IF g_debug <= gme_debug.g_log_procedure THEN
3797: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'|| l_api_name);
3798: END IF;
3792: BEGIN
3793: IF (g_debug <> -1) THEN
3794: gme_debug.log_initialize ('DELETE_MATERIAL_LINE');
3795: END IF;
3796: IF g_debug <= gme_debug.g_log_procedure THEN
3797: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'|| l_api_name);
3798: END IF;
3799:
3800: /* Set the return status to success initially */
3793: IF (g_debug <> -1) THEN
3794: gme_debug.log_initialize ('DELETE_MATERIAL_LINE');
3795: END IF;
3796: IF g_debug <= gme_debug.g_log_procedure THEN
3797: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'|| l_api_name);
3798: END IF;
3799:
3800: /* Set the return status to success initially */
3801: x_return_status := fnd_api.g_ret_sts_success;
3827: ,x_message_count => x_message_count
3828: ,x_message_list => x_message_list
3829: ,x_return_status => x_return_status );
3830: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3831: IF (g_debug = gme_debug.g_log_statement) THEN
3832: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
3833: || ': batch mateiral validate error ');
3834: END IF;
3835: RAISE fnd_api.g_exc_error;
3828: ,x_message_list => x_message_list
3829: ,x_return_status => x_return_status );
3830: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3831: IF (g_debug = gme_debug.g_log_statement) THEN
3832: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
3833: || ': batch mateiral validate error ');
3834: END IF;
3835: RAISE fnd_api.g_exc_error;
3836: END IF;
3876: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3877: RAISE fnd_api.g_exc_error;
3878: END IF;
3879:
3880: IF g_debug <= gme_debug.g_log_procedure THEN
3881: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
3882: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3883: END IF;
3884:
3877: RAISE fnd_api.g_exc_error;
3878: END IF;
3879:
3880: IF g_debug <= gme_debug.g_log_procedure THEN
3881: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
3882: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3883: END IF;
3884:
3885: EXCEPTION
3932: l_batch_header_rec gme_batch_header%ROWTYPE;
3933: batch_revert_failure EXCEPTION;
3934: BEGIN
3935: IF (g_debug <> -1) THEN
3936: gme_debug.log_initialize('RevertBatch');
3937: END IF;
3938: IF g_debug <= gme_debug.g_log_procedure THEN
3939: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3940: END IF;
3934: BEGIN
3935: IF (g_debug <> -1) THEN
3936: gme_debug.log_initialize('RevertBatch');
3937: END IF;
3938: IF g_debug <= gme_debug.g_log_procedure THEN
3939: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3940: END IF;
3941: /* Set the return status to success initially */
3942: x_return_status := FND_API.G_RET_STS_SUCCESS;
3935: IF (g_debug <> -1) THEN
3936: gme_debug.log_initialize('RevertBatch');
3937: END IF;
3938: IF g_debug <= gme_debug.g_log_procedure THEN
3939: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3940: END IF;
3941: /* Set the return status to success initially */
3942: x_return_status := FND_API.G_RET_STS_SUCCESS;
3943:
3963: ,x_message_list => x_message_list
3964: ,x_return_status => x_return_status );
3965:
3966: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3967: IF (g_debug = gme_debug.g_log_statement) THEN
3968: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
3969: || ': batch validate error ');
3970: END IF;
3971: RAISE fnd_api.g_exc_error;
3964: ,x_return_status => x_return_status );
3965:
3966: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3967: IF (g_debug = gme_debug.g_log_statement) THEN
3968: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
3969: || ': batch validate error ');
3970: END IF;
3971: RAISE fnd_api.g_exc_error;
3972: END IF;
3983: gme_common_pvt.log_message('GME_API_REV_WIP_TERM_ERROR');
3984: RAISE fnd_api.g_exc_error;
3985: END IF;
3986:
3987: IF g_debug <= gme_debug.g_log_statement THEN
3988: gme_debug.put_line('calling main revert');
3989: END IF;
3990: --Bug#5327296
3991: gme_common_pvt.g_move_to_temp := fnd_api.g_false;
3984: RAISE fnd_api.g_exc_error;
3985: END IF;
3986:
3987: IF g_debug <= gme_debug.g_log_statement THEN
3988: gme_debug.put_line('calling main revert');
3989: END IF;
3990: --Bug#5327296
3991: gme_common_pvt.g_move_to_temp := fnd_api.g_false;
3992: gme_api_main.revert_batch
3999: x_batch_header_rec => x_batch_header_rec
4000: );
4001:
4002:
4003: IF g_debug <= gme_debug.g_log_statement THEN
4004: gme_debug.put_line(g_pkg_name|| '.'|| l_api_name||
4005: ':'||'return_status from main'||x_return_status );
4006: END IF;
4007:
4000: );
4001:
4002:
4003: IF g_debug <= gme_debug.g_log_statement THEN
4004: gme_debug.put_line(g_pkg_name|| '.'|| l_api_name||
4005: ':'||'return_status from main'||x_return_status );
4006: END IF;
4007:
4008: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
4027: p_encoded => FND_API.g_false,
4028: x_data => x_message_list
4029: );
4030:
4031: IF g_debug <= gme_debug.g_log_procedure THEN
4032: gme_debug.put_line ('Completed '|| l_api_name|| ' at '|| TO_CHAR
4033: (SYSDATE, 'MM/DD/YYYY HH24:MI:SS'));
4034: END IF;
4035:
4028: x_data => x_message_list
4029: );
4030:
4031: IF g_debug <= gme_debug.g_log_procedure THEN
4032: gme_debug.put_line ('Completed '|| l_api_name|| ' at '|| TO_CHAR
4033: (SYSDATE, 'MM/DD/YYYY HH24:MI:SS'));
4034: END IF;
4035:
4036: EXCEPTION
4095:
4096: step_revert_failure EXCEPTION;
4097: BEGIN
4098: IF (g_debug <> -1) THEN
4099: gme_debug.log_initialize('RevertStep');
4100: END IF;
4101:
4102: IF g_debug <= gme_debug.g_log_procedure THEN
4103: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4098: IF (g_debug <> -1) THEN
4099: gme_debug.log_initialize('RevertStep');
4100: END IF;
4101:
4102: IF g_debug <= gme_debug.g_log_procedure THEN
4103: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4104: END IF;
4105:
4106: /* Set the return status to success initially */
4099: gme_debug.log_initialize('RevertStep');
4100: END IF;
4101:
4102: IF g_debug <= gme_debug.g_log_procedure THEN
4103: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4104: END IF;
4105:
4106: /* Set the return status to success initially */
4107: x_return_status := FND_API.G_RET_STS_SUCCESS;
4129: ,x_message_list => x_message_list
4130: ,x_return_status => x_return_status );
4131:
4132: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4133: IF (g_debug = gme_debug.g_log_statement) THEN
4134: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4135: || ': batch step validate error ');
4136: END IF;
4137: RAISE fnd_api.g_exc_error;
4130: ,x_return_status => x_return_status );
4131:
4132: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4133: IF (g_debug = gme_debug.g_log_statement) THEN
4134: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4135: || ': batch step validate error ');
4136: END IF;
4137: RAISE fnd_api.g_exc_error;
4138: END IF;
4159: p_batch_header_rec => l_batch_header_rec,
4160: x_batch_step_rec => x_batch_step_rec
4161: );
4162:
4163: IF g_debug <= gme_debug.g_log_statement THEN
4164: gme_debug.put_line(g_pkg_name|| '.'|| l_api_name|| ':'||'return_status from main'||x_return_status );
4165: END IF;
4166:
4167: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
4160: x_batch_step_rec => x_batch_step_rec
4161: );
4162:
4163: IF g_debug <= gme_debug.g_log_statement THEN
4164: gme_debug.put_line(g_pkg_name|| '.'|| l_api_name|| ':'||'return_status from main'||x_return_status );
4165: END IF;
4166:
4167: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
4168: IF p_commit = FND_API.G_TRUE THEN
4185: p_encoded => FND_API.g_false,
4186: x_data => x_message_list
4187: );
4188:
4189: IF g_debug <= gme_debug.g_log_procedure THEN
4190: gme_debug.put_line ('Completed '|| l_api_name|| ' at '|| TO_CHAR
4191: (SYSDATE, 'MM/DD/YYYY HH24:MI:SS'));
4192: END IF;
4193: EXCEPTION
4186: x_data => x_message_list
4187: );
4188:
4189: IF g_debug <= gme_debug.g_log_procedure THEN
4190: gme_debug.put_line ('Completed '|| l_api_name|| ' at '|| TO_CHAR
4191: (SYSDATE, 'MM/DD/YYYY HH24:MI:SS'));
4192: END IF;
4193: EXCEPTION
4194: WHEN step_revert_failure THEN
4229: l_batch_header_rec gme_batch_header%ROWTYPE;
4230:
4231: batch_close_failure EXCEPTION;
4232: BEGIN
4233: IF g_debug <= gme_debug.g_log_procedure THEN
4234: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4235: || l_api_name);
4236: END IF;
4237:
4230:
4231: batch_close_failure EXCEPTION;
4232: BEGIN
4233: IF g_debug <= gme_debug.g_log_procedure THEN
4234: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4235: || l_api_name);
4236: END IF;
4237:
4238: /* Set the return status to success initially */
4264: ,x_message_list => x_message_list
4265: ,x_return_status => x_return_status );
4266:
4267: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4268: IF (g_debug = gme_debug.g_log_statement) THEN
4269: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4270: || ': batch validate error ');
4271: END IF;
4272: RAISE fnd_api.g_exc_error;
4265: ,x_return_status => x_return_status );
4266:
4267: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4268: IF (g_debug = gme_debug.g_log_statement) THEN
4269: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4270: || ': batch validate error ');
4271: END IF;
4272: RAISE fnd_api.g_exc_error;
4273: END IF;
4293: l_batch_header_rec.batch_close_date :=
4294: p_batch_header_rec.batch_close_date;
4295: END IF;
4296:
4297: IF g_debug <= gme_debug.g_log_procedure THEN
4298: gme_debug.put_line ('Calling gme_api_main.close_batch.');
4299: END IF;
4300:
4301: gme_api_main.close_batch (p_validation_level => p_validation_level
4294: p_batch_header_rec.batch_close_date;
4295: END IF;
4296:
4297: IF g_debug <= gme_debug.g_log_procedure THEN
4298: gme_debug.put_line ('Calling gme_api_main.close_batch.');
4299: END IF;
4300:
4301: gme_api_main.close_batch (p_validation_level => p_validation_level
4302: ,p_init_msg_list => fnd_api.g_false
4305: ,x_return_status => x_return_status
4306: ,p_batch_header_rec => l_batch_header_rec
4307: ,x_batch_header_rec => x_batch_header_rec);
4308:
4309: IF (g_debug = gme_debug.g_log_statement) THEN
4310: gme_debug.put_line('Came back from Main Close Batch with status '
4311: || x_return_status);
4312: END IF;
4313:
4306: ,p_batch_header_rec => l_batch_header_rec
4307: ,x_batch_header_rec => x_batch_header_rec);
4308:
4309: IF (g_debug = gme_debug.g_log_statement) THEN
4310: gme_debug.put_line('Came back from Main Close Batch with status '
4311: || x_return_status);
4312: END IF;
4313:
4314: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4313:
4314: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4315: RAISE batch_close_failure;
4316: ELSE
4317: IF (g_debug = gme_debug.g_log_statement) THEN
4318: gme_debug.put_line ('Calling save_batch.');
4319: END IF;
4320:
4321: gme_api_pub.save_batch (p_header_id => null
4314: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4315: RAISE batch_close_failure;
4316: ELSE
4317: IF (g_debug = gme_debug.g_log_statement) THEN
4318: gme_debug.put_line ('Calling save_batch.');
4319: END IF;
4320:
4321: gme_api_pub.save_batch (p_header_id => null
4322: ,p_table => 1
4322: ,p_table => 1
4323: ,p_commit => fnd_api.g_false
4324: ,x_return_status => x_return_status);
4325:
4326: IF (g_debug = gme_debug.g_log_statement) THEN
4327: gme_debug.put_line ( 'Came back from save_batch with status '
4328: || x_return_status);
4329: END IF;
4330:
4323: ,p_commit => fnd_api.g_false
4324: ,x_return_status => x_return_status);
4325:
4326: IF (g_debug = gme_debug.g_log_statement) THEN
4327: gme_debug.put_line ( 'Came back from save_batch with status '
4328: || x_return_status);
4329: END IF;
4330:
4331: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4336: COMMIT;
4337: END IF;
4338: END IF;
4339:
4340: IF g_debug <= gme_debug.g_log_procedure THEN
4341: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
4342: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4343: END IF;
4344: EXCEPTION
4337: END IF;
4338: END IF;
4339:
4340: IF g_debug <= gme_debug.g_log_procedure THEN
4341: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
4342: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4343: END IF;
4344: EXCEPTION
4345: WHEN batch_close_failure THEN
4385: l_batch_step_rec gme_batch_steps%ROWTYPE;
4386:
4387: step_close_failed EXCEPTION;
4388: BEGIN
4389: IF g_debug <= gme_debug.g_log_procedure THEN
4390: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4391: || l_api_name);
4392: END IF;
4393: /* Set the return status to success initially */
4386:
4387: step_close_failed EXCEPTION;
4388: BEGIN
4389: IF g_debug <= gme_debug.g_log_procedure THEN
4390: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4391: || l_api_name);
4392: END IF;
4393: /* Set the return status to success initially */
4394: x_return_status := fnd_api.g_ret_sts_success;
4422: ,x_message_list => x_message_list
4423: ,x_return_status => x_return_status );
4424:
4425: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4426: IF (g_debug = gme_debug.g_log_statement) THEN
4427: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4428: || ': batch step validate error ');
4429: END IF;
4430: RAISE fnd_api.g_exc_error;
4423: ,x_return_status => x_return_status );
4424:
4425: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4426: IF (g_debug = gme_debug.g_log_statement) THEN
4427: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4428: || ': batch step validate error ');
4429: END IF;
4430: RAISE fnd_api.g_exc_error;
4431: END IF;
4481: END IF;
4482: END IF;
4483: END IF;
4484:
4485: IF g_debug <= gme_debug.g_log_procedure THEN
4486: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
4487: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4488: END IF;
4489: EXCEPTION
4482: END IF;
4483: END IF;
4484:
4485: IF g_debug <= gme_debug.g_log_procedure THEN
4486: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
4487: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4488: END IF;
4489: EXCEPTION
4490: WHEN step_close_failed THEN
4527: l_api_name CONSTANT VARCHAR2 (30) := 'REOPEN_BATCH';
4528: l_batch_header_rec gme_batch_header%ROWTYPE;
4529: batch_reopen_failure EXCEPTION;
4530: BEGIN
4531: IF g_debug <= gme_debug.g_log_procedure THEN
4532: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4533: || l_api_name);
4534: END IF;
4535: /* Set the success staus to success inititally*/
4528: l_batch_header_rec gme_batch_header%ROWTYPE;
4529: batch_reopen_failure EXCEPTION;
4530: BEGIN
4531: IF g_debug <= gme_debug.g_log_procedure THEN
4532: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4533: || l_api_name);
4534: END IF;
4535: /* Set the success staus to success inititally*/
4536: x_return_status := fnd_api.g_ret_sts_success;
4556: ,x_message_list => x_message_list
4557: ,x_return_status => x_return_status );
4558:
4559: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4560: IF (g_debug = gme_debug.g_log_statement) THEN
4561: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4562: || ': batch validate error ');
4563: END IF;
4564: RAISE fnd_api.g_exc_error;
4557: ,x_return_status => x_return_status );
4558:
4559: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4560: IF (g_debug = gme_debug.g_log_statement) THEN
4561: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4562: || ': batch validate error ');
4563: END IF;
4564: RAISE fnd_api.g_exc_error;
4565: END IF;
4589: END IF;
4590: END IF;
4591: END IF;
4592:
4593: IF g_debug <= gme_debug.g_log_procedure THEN
4594: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
4595: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4596: END IF;
4597: EXCEPTION
4590: END IF;
4591: END IF;
4592:
4593: IF g_debug <= gme_debug.g_log_procedure THEN
4594: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
4595: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4596: END IF;
4597: EXCEPTION
4598: WHEN batch_reopen_failure THEN
4633: l_batch_header_rec gme_batch_header%ROWTYPE;
4634: l_batch_step_rec gme_batch_steps%ROWTYPE;
4635: step_reopen_failure EXCEPTION;
4636: BEGIN
4637: IF g_debug <= gme_debug.g_log_procedure THEN
4638: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4639: || l_api_name);
4640: END IF;
4641: /* Initialize message list and count if needed*/
4634: l_batch_step_rec gme_batch_steps%ROWTYPE;
4635: step_reopen_failure EXCEPTION;
4636: BEGIN
4637: IF g_debug <= gme_debug.g_log_procedure THEN
4638: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4639: || l_api_name);
4640: END IF;
4641: /* Initialize message list and count if needed*/
4642: IF p_init_msg_list = fnd_api.g_true THEN
4664: ,x_message_list => x_message_list
4665: ,x_return_status => x_return_status );
4666:
4667: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4668: IF (g_debug = gme_debug.g_log_statement) THEN
4669: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4670: || ': batch step validate error ');
4671: END IF;
4672: RAISE fnd_api.g_exc_error;
4665: ,x_return_status => x_return_status );
4666:
4667: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4668: IF (g_debug = gme_debug.g_log_statement) THEN
4669: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4670: || ': batch step validate error ');
4671: END IF;
4672: RAISE fnd_api.g_exc_error;
4673: END IF;
4695: END IF;
4696: END IF;
4697: END IF;
4698:
4699: IF g_debug <= gme_debug.g_log_procedure THEN
4700: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
4701: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4702: END IF;
4703: EXCEPTION
4696: END IF;
4697: END IF;
4698:
4699: IF g_debug <= gme_debug.g_log_procedure THEN
4700: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
4701: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4702: END IF;
4703: EXCEPTION
4704: WHEN step_reopen_failure THEN
4747:
4748: error_incr_backflush EXCEPTION;
4749: BEGIN
4750: IF (g_debug <> -1) THEN
4751: gme_debug.log_initialize ('IncrementalBackflush');
4752: END IF;
4753:
4754: IF g_debug <= gme_debug.g_log_procedure THEN
4755: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4750: IF (g_debug <> -1) THEN
4751: gme_debug.log_initialize ('IncrementalBackflush');
4752: END IF;
4753:
4754: IF g_debug <= gme_debug.g_log_procedure THEN
4755: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4756: || l_api_name);
4757: END IF;
4758:
4751: gme_debug.log_initialize ('IncrementalBackflush');
4752: END IF;
4753:
4754: IF g_debug <= gme_debug.g_log_procedure THEN
4755: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4756: || l_api_name);
4757: END IF;
4758:
4759: /* Set the return status to success initially */
4781: ,x_message_count => x_message_count
4782: ,x_message_list => x_message_list
4783: ,x_return_status => x_return_status );
4784: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4785: IF (g_debug = gme_debug.g_log_statement) THEN
4786: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4787: || ': batch mateiral validate error ');
4788: END IF;
4789: RAISE fnd_api.g_exc_error;
4782: ,x_message_list => x_message_list
4783: ,x_return_status => x_return_status );
4784: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4785: IF (g_debug = gme_debug.g_log_statement) THEN
4786: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4787: || ': batch mateiral validate error ');
4788: END IF;
4789: RAISE fnd_api.g_exc_error;
4790: END IF;
4866: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4867: RAISE fnd_api.g_exc_error;
4868: END IF;
4869:
4870: IF g_debug <= gme_debug.g_log_procedure THEN
4871: gme_debug.put_line ( ' Completed '
4872: || l_api_name
4873: || ' at '
4874: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4867: RAISE fnd_api.g_exc_error;
4868: END IF;
4869:
4870: IF g_debug <= gme_debug.g_log_procedure THEN
4871: gme_debug.put_line ( ' Completed '
4872: || l_api_name
4873: || ' at '
4874: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4875: END IF;
4948:
4949: create_txn_fail EXCEPTION;
4950: BEGIN
4951: IF (g_debug <> -1) THEN
4952: gme_debug.log_initialize ('CreateTxn');
4953: END IF;
4954:
4955: IF g_debug <= gme_debug.g_log_procedure THEN
4956: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4951: IF (g_debug <> -1) THEN
4952: gme_debug.log_initialize ('CreateTxn');
4953: END IF;
4954:
4955: IF g_debug <= gme_debug.g_log_procedure THEN
4956: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4957: || l_api_name);
4958: END IF;
4959:
4952: gme_debug.log_initialize ('CreateTxn');
4953: END IF;
4954:
4955: IF g_debug <= gme_debug.g_log_procedure THEN
4956: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4957: || l_api_name);
4958: END IF;
4959:
4960: /* Set the return status to success initially */
5009: ,x_message_count => x_message_count
5010: ,x_message_list => x_message_list
5011: ,x_return_status => x_return_status );
5012: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5013: IF (g_debug = gme_debug.g_log_statement) THEN
5014: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
5015: || ': batch mateiral validate error ');
5016: END IF;
5017: RAISE fnd_api.g_exc_error;
5010: ,x_message_list => x_message_list
5011: ,x_return_status => x_return_status );
5012: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5013: IF (g_debug = gme_debug.g_log_statement) THEN
5014: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
5015: || ': batch mateiral validate error ');
5016: END IF;
5017: RAISE fnd_api.g_exc_error;
5018: ELSE
5025: FETCH cur_get_item_rec INTO l_item_rec;
5026: IF cur_get_item_rec%NOTFOUND THEN
5027: CLOSE cur_get_item_rec;
5028: gme_common_pvt.log_message ('PM_INVALID_ITEM');
5029: IF (g_debug = gme_debug.g_log_statement) THEN
5030: gme_debug.put_line('Item cursor fetch no record in mtl_system_items_b: ');
5031: gme_debug.put_line('inventory_item_id = '|| TO_CHAR (l_mmti_rec.inventory_item_id) );
5032: gme_debug.put_line('organization_id = '|| TO_CHAR (l_mmti_rec.organization_id) );
5033: END IF;
5026: IF cur_get_item_rec%NOTFOUND THEN
5027: CLOSE cur_get_item_rec;
5028: gme_common_pvt.log_message ('PM_INVALID_ITEM');
5029: IF (g_debug = gme_debug.g_log_statement) THEN
5030: gme_debug.put_line('Item cursor fetch no record in mtl_system_items_b: ');
5031: gme_debug.put_line('inventory_item_id = '|| TO_CHAR (l_mmti_rec.inventory_item_id) );
5032: gme_debug.put_line('organization_id = '|| TO_CHAR (l_mmti_rec.organization_id) );
5033: END IF;
5034: RAISE fnd_api.g_exc_error;
5027: CLOSE cur_get_item_rec;
5028: gme_common_pvt.log_message ('PM_INVALID_ITEM');
5029: IF (g_debug = gme_debug.g_log_statement) THEN
5030: gme_debug.put_line('Item cursor fetch no record in mtl_system_items_b: ');
5031: gme_debug.put_line('inventory_item_id = '|| TO_CHAR (l_mmti_rec.inventory_item_id) );
5032: gme_debug.put_line('organization_id = '|| TO_CHAR (l_mmti_rec.organization_id) );
5033: END IF;
5034: RAISE fnd_api.g_exc_error;
5035: END IF;
5028: gme_common_pvt.log_message ('PM_INVALID_ITEM');
5029: IF (g_debug = gme_debug.g_log_statement) THEN
5030: gme_debug.put_line('Item cursor fetch no record in mtl_system_items_b: ');
5031: gme_debug.put_line('inventory_item_id = '|| TO_CHAR (l_mmti_rec.inventory_item_id) );
5032: gme_debug.put_line('organization_id = '|| TO_CHAR (l_mmti_rec.organization_id) );
5033: END IF;
5034: RAISE fnd_api.g_exc_error;
5035: END IF;
5036: CLOSE cur_get_item_rec;
5098: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5099: RAISE fnd_api.g_exc_error;
5100: END IF;
5101:
5102: IF (g_debug = gme_debug.g_log_statement) THEN
5103: gme_debug.put_line ( 'lot_gen'
5104: || ':'
5105: || 'l_parent_gen_lot '
5106: || l_return_status);
5099: RAISE fnd_api.g_exc_error;
5100: END IF;
5101:
5102: IF (g_debug = gme_debug.g_log_statement) THEN
5103: gme_debug.put_line ( 'lot_gen'
5104: || ':'
5105: || 'l_parent_gen_lot '
5106: || l_return_status);
5107: END IF;
5140: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5141: RAISE fnd_api.g_exc_error;
5142: END IF;
5143:
5144: IF (g_debug = gme_debug.g_log_statement) THEN
5145: gme_debug.put_line ( 'lot_gen'
5146: || ':'
5147: || 'l_parent_gen_lot '
5148: || l_return_status);
5141: RAISE fnd_api.g_exc_error;
5142: END IF;
5143:
5144: IF (g_debug = gme_debug.g_log_statement) THEN
5145: gme_debug.put_line ( 'lot_gen'
5146: || ':'
5147: || 'l_parent_gen_lot '
5148: || l_return_status);
5149: END IF;
5185: ,p_mmli_tbl => l_mmli_tbl
5186: ,x_return_status => l_return_status);
5187:
5188: IF l_return_status = fnd_api.g_ret_sts_success THEN
5189: IF g_debug <= gme_debug.g_log_procedure THEN
5190: gme_debug.put_line ( 'before save batch'
5191: || gme_common_pvt.g_transaction_header_id);
5192: END IF;
5193: l_header_id := gme_common_pvt.g_transaction_header_id;
5186: ,x_return_status => l_return_status);
5187:
5188: IF l_return_status = fnd_api.g_ret_sts_success THEN
5189: IF g_debug <= gme_debug.g_log_procedure THEN
5190: gme_debug.put_line ( 'before save batch'
5191: || gme_common_pvt.g_transaction_header_id);
5192: END IF;
5193: l_header_id := gme_common_pvt.g_transaction_header_id;
5194: gme_api_pub.save_batch
5196: ,p_table => 1
5197: ,p_commit => p_commit
5198: ,x_return_status => x_return_status);
5199:
5200: IF g_debug <= gme_debug.g_log_procedure THEN
5201: gme_debug.put_line ( 'return from save batch with'
5202: || x_return_status);
5203: END IF;
5204:
5197: ,p_commit => p_commit
5198: ,x_return_status => x_return_status);
5199:
5200: IF g_debug <= gme_debug.g_log_procedure THEN
5201: gme_debug.put_line ( 'return from save batch with'
5202: || x_return_status);
5203: END IF;
5204:
5205: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5207: END IF;
5208: ELSE
5209: RAISE create_txn_fail;
5210: END IF;
5211: IF g_debug <= gme_debug.g_log_procedure THEN
5212: gme_debug.put_line ( 'l_header_id'
5213: || l_header_id);
5214: END IF;
5215: -- get all the transactions from the mmt
5208: ELSE
5209: RAISE create_txn_fail;
5210: END IF;
5211: IF g_debug <= gme_debug.g_log_procedure THEN
5212: gme_debug.put_line ( 'l_header_id'
5213: || l_header_id);
5214: END IF;
5215: -- get all the transactions from the mmt
5216: OPEN cur_get_trans (l_header_id);
5225: (p_transaction_id => x_mmt_rec.transaction_id
5226: ,x_mmln_tbl => x_mmln_tbl
5227: ,x_return_status => x_return_status);
5228:
5229: IF g_debug <= gme_debug.g_log_procedure THEN
5230: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
5231: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
5232: END IF;
5233: EXCEPTION
5226: ,x_mmln_tbl => x_mmln_tbl
5227: ,x_return_status => x_return_status);
5228:
5229: IF g_debug <= gme_debug.g_log_procedure THEN
5230: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
5231: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
5232: END IF;
5233: EXCEPTION
5234: WHEN create_txn_fail THEN
5317: update_txn_fail EXCEPTION;
5318: update_txn_mismatch EXCEPTION;
5319: BEGIN
5320: IF (g_debug <> -1) THEN
5321: gme_debug.log_initialize ('UpdateTxn');
5322: END IF;
5323:
5324: IF g_debug <= gme_debug.g_log_procedure THEN
5325: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
5320: IF (g_debug <> -1) THEN
5321: gme_debug.log_initialize ('UpdateTxn');
5322: END IF;
5323:
5324: IF g_debug <= gme_debug.g_log_procedure THEN
5325: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
5326: || l_api_name);
5327: END IF;
5328:
5321: gme_debug.log_initialize ('UpdateTxn');
5322: END IF;
5323:
5324: IF g_debug <= gme_debug.g_log_procedure THEN
5325: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
5326: || l_api_name);
5327: END IF;
5328:
5329: /* Set the savepoint */
5389: IF cur_get_item_rec%NOTFOUND THEN
5390: CLOSE cur_get_item_rec;
5391: gme_common_pvt.log_message ('PM_INVALID_ITEM');
5392:
5393: IF (g_debug = gme_debug.g_log_statement) THEN
5394: gme_debug.put_line
5395: ('Item cursor fetch no record in mtl_system_items_b: ');
5396: gme_debug.put_line ( 'inventory_item_id = '
5397: || TO_CHAR (l_mmti_rec.inventory_item_id) );
5390: CLOSE cur_get_item_rec;
5391: gme_common_pvt.log_message ('PM_INVALID_ITEM');
5392:
5393: IF (g_debug = gme_debug.g_log_statement) THEN
5394: gme_debug.put_line
5395: ('Item cursor fetch no record in mtl_system_items_b: ');
5396: gme_debug.put_line ( 'inventory_item_id = '
5397: || TO_CHAR (l_mmti_rec.inventory_item_id) );
5398: gme_debug.put_line ( 'organization_id = '
5392:
5393: IF (g_debug = gme_debug.g_log_statement) THEN
5394: gme_debug.put_line
5395: ('Item cursor fetch no record in mtl_system_items_b: ');
5396: gme_debug.put_line ( 'inventory_item_id = '
5397: || TO_CHAR (l_mmti_rec.inventory_item_id) );
5398: gme_debug.put_line ( 'organization_id = '
5399: || TO_CHAR (l_mmti_rec.organization_id) );
5400: END IF;
5394: gme_debug.put_line
5395: ('Item cursor fetch no record in mtl_system_items_b: ');
5396: gme_debug.put_line ( 'inventory_item_id = '
5397: || TO_CHAR (l_mmti_rec.inventory_item_id) );
5398: gme_debug.put_line ( 'organization_id = '
5399: || TO_CHAR (l_mmti_rec.organization_id) );
5400: END IF;
5401: RAISE fnd_api.g_exc_error;
5402: END IF;
5439: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5440: RAISE fnd_api.g_exc_error;
5441: END IF;
5442:
5443: IF (g_debug = gme_debug.g_log_statement) THEN
5444: gme_debug.put_line ( 'lot_gen'
5445: || ':'
5446: || 'l_parent_gen_lot '
5447: || l_return_status);
5440: RAISE fnd_api.g_exc_error;
5441: END IF;
5442:
5443: IF (g_debug = gme_debug.g_log_statement) THEN
5444: gme_debug.put_line ( 'lot_gen'
5445: || ':'
5446: || 'l_parent_gen_lot '
5447: || l_return_status);
5448: END IF;
5481: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5482: RAISE fnd_api.g_exc_error;
5483: END IF;
5484:
5485: IF (g_debug = gme_debug.g_log_statement) THEN
5486: gme_debug.put_line ( 'lot_gen'
5487: || ':'
5488: || 'l_parent_gen_lot '
5489: || l_return_status);
5482: RAISE fnd_api.g_exc_error;
5483: END IF;
5484:
5485: IF (g_debug = gme_debug.g_log_statement) THEN
5486: gme_debug.put_line ( 'lot_gen'
5487: || ':'
5488: || 'l_parent_gen_lot '
5489: || l_return_status);
5490: END IF;
5526: ,p_mmli_tbl => l_mmli_tbl
5527: ,x_return_status => l_return_status);
5528:
5529: IF l_return_status = fnd_api.g_ret_sts_success THEN
5530: IF g_debug <= gme_debug.g_log_procedure THEN
5531: gme_debug.put_line ( 'before save batch'
5532: || gme_common_pvt.g_transaction_header_id);
5533: END IF;
5534: l_header_id:= gme_common_pvt.g_transaction_header_id;
5527: ,x_return_status => l_return_status);
5528:
5529: IF l_return_status = fnd_api.g_ret_sts_success THEN
5530: IF g_debug <= gme_debug.g_log_procedure THEN
5531: gme_debug.put_line ( 'before save batch'
5532: || gme_common_pvt.g_transaction_header_id);
5533: END IF;
5534: l_header_id:= gme_common_pvt.g_transaction_header_id;
5535: gme_api_pub.save_batch
5537: ,p_table => 1
5538: ,p_commit => p_commit
5539: ,x_return_status => x_return_status);
5540:
5541: IF g_debug <= gme_debug.g_log_procedure THEN
5542: gme_debug.put_line ( 'return from save batch with'
5543: || x_return_status);
5544: END IF;
5545:
5538: ,p_commit => p_commit
5539: ,x_return_status => x_return_status);
5540:
5541: IF g_debug <= gme_debug.g_log_procedure THEN
5542: gme_debug.put_line ( 'return from save batch with'
5543: || x_return_status);
5544: END IF;
5545:
5546: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5549: ELSE
5550: RAISE update_txn_fail;
5551: END IF;
5552:
5553: IF g_debug <= gme_debug.g_log_procedure THEN
5554: gme_debug.put_line ( 'l_header_id'
5555: || l_header_id);
5556: END IF;
5557: -- get all the transactions from the mmt
5550: RAISE update_txn_fail;
5551: END IF;
5552:
5553: IF g_debug <= gme_debug.g_log_procedure THEN
5554: gme_debug.put_line ( 'l_header_id'
5555: || l_header_id);
5556: END IF;
5557: -- get all the transactions from the mmt
5558: OPEN cur_get_trans (l_header_id);
5567: (p_transaction_id => x_mmt_rec.transaction_id
5568: ,x_mmln_tbl => x_mmln_tbl
5569: ,x_return_status => x_return_status);
5570:
5571: IF g_debug <= gme_debug.g_log_procedure THEN
5572: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
5573: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
5574: END IF;
5575: EXCEPTION
5568: ,x_mmln_tbl => x_mmln_tbl
5569: ,x_return_status => x_return_status);
5570:
5571: IF g_debug <= gme_debug.g_log_procedure THEN
5572: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
5573: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
5574: END IF;
5575: EXCEPTION
5576: WHEN update_txn_mismatch THEN
5632: FROM mtl_material_transactions
5633: WHERE transaction_id = v_transaction_id;
5634: BEGIN
5635: IF (g_debug <> -1) THEN
5636: gme_debug.log_initialize ('DeleteTxn');
5637: END IF;
5638:
5639: IF g_debug <= gme_debug.g_log_procedure THEN
5640: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
5635: IF (g_debug <> -1) THEN
5636: gme_debug.log_initialize ('DeleteTxn');
5637: END IF;
5638:
5639: IF g_debug <= gme_debug.g_log_procedure THEN
5640: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
5641: || l_api_name);
5642: END IF;
5643:
5636: gme_debug.log_initialize ('DeleteTxn');
5637: END IF;
5638:
5639: IF g_debug <= gme_debug.g_log_procedure THEN
5640: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
5641: || l_api_name);
5642: END IF;
5643:
5644: /* Set the savepoint */
5706: ELSE
5707: RAISE delete_txn_fail;
5708: END IF;
5709:
5710: IF g_debug <= gme_debug.g_log_procedure THEN
5711: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
5712: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
5713: END IF;
5714: EXCEPTION
5707: RAISE delete_txn_fail;
5708: END IF;
5709:
5710: IF g_debug <= gme_debug.g_log_procedure THEN
5711: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
5712: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
5713: END IF;
5714: EXCEPTION
5715: WHEN delete_txn_fail THEN
5769:
5770: reroute_batch_failed EXCEPTION;
5771: BEGIN
5772: IF (g_debug <> -1) THEN
5773: gme_debug.log_initialize ('RerouteBatch');
5774: END IF;
5775:
5776: IF g_debug <= gme_debug.g_log_procedure THEN
5777: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
5772: IF (g_debug <> -1) THEN
5773: gme_debug.log_initialize ('RerouteBatch');
5774: END IF;
5775:
5776: IF g_debug <= gme_debug.g_log_procedure THEN
5777: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
5778: || l_api_name);
5779: END IF;
5780: /* Set the return status to success initially */
5773: gme_debug.log_initialize ('RerouteBatch');
5774: END IF;
5775:
5776: IF g_debug <= gme_debug.g_log_procedure THEN
5777: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
5778: || l_api_name);
5779: END IF;
5780: /* Set the return status to success initially */
5781: x_return_status := fnd_api.g_ret_sts_success;
5828: ,x_message_list => x_message_list
5829: ,x_return_status => x_return_status );
5830:
5831: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5832: IF (g_debug = gme_debug.g_log_statement) THEN
5833: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
5834: || ': batch validate error ');
5835: END IF;
5836: RAISE fnd_api.g_exc_error;
5829: ,x_return_status => x_return_status );
5830:
5831: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5832: IF (g_debug = gme_debug.g_log_statement) THEN
5833: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
5834: || ': batch validate error ');
5835: END IF;
5836: RAISE fnd_api.g_exc_error;
5837: END IF;
5885: gme_common_pvt.count_and_get (x_count => x_message_count
5886: ,p_encoded => fnd_api.g_false
5887: ,x_data => x_message_list);
5888:
5889: IF g_debug <= gme_debug.g_log_procedure THEN
5890: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
5891: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
5892: END IF;
5893: EXCEPTION
5886: ,p_encoded => fnd_api.g_false
5887: ,x_data => x_message_list);
5888:
5889: IF g_debug <= gme_debug.g_log_procedure THEN
5890: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
5891: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
5892: END IF;
5893: EXCEPTION
5894: WHEN reroute_batch_failed THEN
5908: ROLLBACK TO SAVEPOINT reroute_batch_pub;
5909: x_batch_header_rec := NULL;
5910: x_return_status := fnd_api.g_ret_sts_unexp_error;
5911:
5912: IF (g_debug > 0) THEN gme_debug.put_line ( g_pkg_name || '.' ||
5913: l_api_name || ':' || 'UNEXPECTED:' || SQLERRM);
5914: END IF;
5915: gme_common_pvt.count_and_get (x_count => x_message_count
5916: ,p_encoded => fnd_api.g_false
5960:
5961: batch_cancel_failure EXCEPTION;
5962: BEGIN
5963: IF (g_debug <> -1) THEN
5964: gme_debug.log_initialize ('CancelBatch');
5965: END IF;
5966:
5967: IF g_debug <= gme_debug.g_log_procedure THEN
5968: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
5963: IF (g_debug <> -1) THEN
5964: gme_debug.log_initialize ('CancelBatch');
5965: END IF;
5966:
5967: IF g_debug <= gme_debug.g_log_procedure THEN
5968: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
5969: || 'Entering');
5970: END IF;
5971:
5964: gme_debug.log_initialize ('CancelBatch');
5965: END IF;
5966:
5967: IF g_debug <= gme_debug.g_log_procedure THEN
5968: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
5969: || 'Entering');
5970: END IF;
5971:
5972: /* Set the return status to success initially */
5997: ,x_message_list => x_message_list
5998: ,x_return_status => x_return_status );
5999:
6000: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6001: IF (g_debug = gme_debug.g_log_statement) THEN
6002: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
6003: || ': batch validate error ');
6004: END IF;
6005: RAISE fnd_api.g_exc_error;
5998: ,x_return_status => x_return_status );
5999:
6000: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6001: IF (g_debug = gme_debug.g_log_statement) THEN
6002: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
6003: || ': batch validate error ');
6004: END IF;
6005: RAISE fnd_api.g_exc_error;
6006: END IF;
6018: gme_common_pvt.log_message ('GME_API_INVALID_BATCH_CANCEL');
6019: RAISE fnd_api.g_exc_error;
6020: END IF;
6021:
6022: IF g_debug <= gme_debug.g_log_statement THEN
6023: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':'
6024: || 'calling main cancel');
6025: END IF;
6026:
6019: RAISE fnd_api.g_exc_error;
6020: END IF;
6021:
6022: IF g_debug <= gme_debug.g_log_statement THEN
6023: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':'
6024: || 'calling main cancel');
6025: END IF;
6026:
6027: gme_api_main.cancel_batch (p_validation_level => p_validation_level
6031: ,x_return_status => x_return_status
6032: ,p_batch_header_rec => l_batch_header_rec
6033: ,x_batch_header_rec => x_batch_header_rec);
6034:
6035: IF g_debug <= gme_debug.g_log_statement THEN
6036: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':' ||
6037: 'return_status from main'|| x_return_status);
6038: END IF;
6039:
6032: ,p_batch_header_rec => l_batch_header_rec
6033: ,x_batch_header_rec => x_batch_header_rec);
6034:
6035: IF g_debug <= gme_debug.g_log_statement THEN
6036: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':' ||
6037: 'return_status from main'|| x_return_status);
6038: END IF;
6039:
6040: IF x_return_status = fnd_api.g_ret_sts_success THEN
6058: gme_common_pvt.count_and_get (x_count => x_message_count
6059: ,p_encoded => fnd_api.g_false
6060: ,x_data => x_message_list);
6061:
6062: IF g_debug <= gme_debug.g_log_procedure THEN
6063: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
6064: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
6065: END IF;
6066: EXCEPTION
6059: ,p_encoded => fnd_api.g_false
6060: ,x_data => x_message_list);
6061:
6062: IF g_debug <= gme_debug.g_log_procedure THEN
6063: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
6064: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
6065: END IF;
6066: EXCEPTION
6067: WHEN batch_cancel_failure THEN
6141:
6142: batch_terminate_failure EXCEPTION;
6143: BEGIN
6144: IF (g_debug <> -1) THEN
6145: gme_debug.log_initialize ('TerminateBatch');
6146: END IF;
6147:
6148: IF g_debug <= gme_debug.g_log_procedure THEN
6149: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
6144: IF (g_debug <> -1) THEN
6145: gme_debug.log_initialize ('TerminateBatch');
6146: END IF;
6147:
6148: IF g_debug <= gme_debug.g_log_procedure THEN
6149: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
6150: || 'Entering');
6151: END IF;
6152:
6145: gme_debug.log_initialize ('TerminateBatch');
6146: END IF;
6147:
6148: IF g_debug <= gme_debug.g_log_procedure THEN
6149: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
6150: || 'Entering');
6151: END IF;
6152:
6153: /* Set the return status to success initially */
6178: ,x_message_list => x_message_list
6179: ,x_return_status => x_return_status );
6180:
6181: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6182: IF (g_debug = gme_debug.g_log_statement) THEN
6183: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
6184: || ': batch validate error ');
6185: END IF;
6186: RAISE fnd_api.g_exc_error;
6179: ,x_return_status => x_return_status );
6180:
6181: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6182: IF (g_debug = gme_debug.g_log_statement) THEN
6183: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
6184: || ': batch validate error ');
6185: END IF;
6186: RAISE fnd_api.g_exc_error;
6187: END IF;
6230: /* Check for batch status */
6231: IF l_batch_header_rec.batch_status <> gme_common_pvt.g_batch_wip THEN
6232: gme_common_pvt.log_message ('GME_INVALID_BSTAT_TERM');
6233:
6234: IF (g_debug <= gme_debug.g_log_statement) THEN
6235: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':'
6236: || 'INVALID_BATCH_STATUS');
6237: END IF;
6238:
6231: IF l_batch_header_rec.batch_status <> gme_common_pvt.g_batch_wip THEN
6232: gme_common_pvt.log_message ('GME_INVALID_BSTAT_TERM');
6233:
6234: IF (g_debug <= gme_debug.g_log_statement) THEN
6235: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':'
6236: || 'INVALID_BATCH_STATUS');
6237: END IF;
6238:
6239: RAISE fnd_api.g_exc_error;
6258: l_batch_header_rec.actual_cmplt_date :=
6259: p_batch_header_rec.actual_cmplt_date;
6260: END IF;
6261:
6262: IF g_debug <= gme_debug.g_log_statement THEN
6263: gme_debug.put_line ('calling main terminate');
6264: END IF;
6265:
6266: gme_api_main.terminate_batch (p_validation_level => p_validation_level
6259: p_batch_header_rec.actual_cmplt_date;
6260: END IF;
6261:
6262: IF g_debug <= gme_debug.g_log_statement THEN
6263: gme_debug.put_line ('calling main terminate');
6264: END IF;
6265:
6266: gme_api_main.terminate_batch (p_validation_level => p_validation_level
6267: ,p_init_msg_list => fnd_api.g_false
6270: ,x_return_status => x_return_status
6271: ,p_batch_header_rec => l_batch_header_rec
6272: ,x_batch_header_rec => x_batch_header_rec);
6273:
6274: IF g_debug <= gme_debug.g_log_statement THEN
6275: gme_debug.put_line ( g_pkg_name
6276: || '.'
6277: || l_api_name
6278: || ':'
6271: ,p_batch_header_rec => l_batch_header_rec
6272: ,x_batch_header_rec => x_batch_header_rec);
6273:
6274: IF g_debug <= gme_debug.g_log_statement THEN
6275: gme_debug.put_line ( g_pkg_name
6276: || '.'
6277: || l_api_name
6278: || ':'
6279: || 'return_status from main'
6301: gme_common_pvt.count_and_get (x_count => x_message_count
6302: ,p_encoded => fnd_api.g_false
6303: ,x_data => x_message_list);
6304:
6305: IF g_debug <= gme_debug.g_log_procedure THEN
6306: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
6307: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
6308: END IF;
6309: EXCEPTION
6302: ,p_encoded => fnd_api.g_false
6303: ,x_data => x_message_list);
6304:
6305: IF g_debug <= gme_debug.g_log_procedure THEN
6306: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
6307: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
6308: END IF;
6309: EXCEPTION
6310: WHEN batch_terminate_failure THEN
6321: ,p_encoded => fnd_api.g_false
6322: ,x_data => x_message_list);
6323: WHEN OTHERS THEN
6324: ROLLBACK TO SAVEPOINT terminate_batch;
6325: IF g_debug <= gme_debug.g_log_unexpected THEN
6326: gme_debug.put_line ( g_pkg_name
6327: || '.'
6328: || l_api_name
6329: || ':'
6322: ,x_data => x_message_list);
6323: WHEN OTHERS THEN
6324: ROLLBACK TO SAVEPOINT terminate_batch;
6325: IF g_debug <= gme_debug.g_log_unexpected THEN
6326: gme_debug.put_line ( g_pkg_name
6327: || '.'
6328: || l_api_name
6329: || ':'
6330: || 'When others exception:'
6363: FROM mtl_reservations
6364: WHERE reservation_id = v_reservation_id;
6365: BEGIN
6366: IF (g_debug <> -1) THEN
6367: gme_debug.log_initialize ('ConvertDtlReservation');
6368: END IF;
6369:
6370: IF g_debug <= gme_debug.g_log_procedure THEN
6371: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
6366: IF (g_debug <> -1) THEN
6367: gme_debug.log_initialize ('ConvertDtlReservation');
6368: END IF;
6369:
6370: IF g_debug <= gme_debug.g_log_procedure THEN
6371: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
6372: || l_api_name);
6373: END IF;
6374:
6367: gme_debug.log_initialize ('ConvertDtlReservation');
6368: END IF;
6369:
6370: IF g_debug <= gme_debug.g_log_procedure THEN
6371: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
6372: || l_api_name);
6373: END IF;
6374:
6375: /* Set the savepoint */
6389: gme_common_pvt.log_message ('GME_INVALID_API_VERSION');
6390: RAISE fnd_api.g_exc_error;
6391: END IF;
6392:
6393: IF g_debug <= gme_debug.g_log_statement THEN
6394: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' Input
6395: reservation_id is '|| p_reservation_rec.reservation_id);
6396: END IF;
6397:
6390: RAISE fnd_api.g_exc_error;
6391: END IF;
6392:
6393: IF g_debug <= gme_debug.g_log_statement THEN
6394: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' Input
6395: reservation_id is '|| p_reservation_rec.reservation_id);
6396: END IF;
6397:
6398: /* Verify that the reservation exists */
6407: gme_common_pvt.log_message ('GME_NO_DATA_FOUND'
6408: ,'TABLE_NAME'
6409: ,'MTL_RESERVATIONS');
6410:
6411: IF g_debug <= gme_debug.g_log_statement THEN gme_debug.put_line (
6412: g_pkg_name || '.' || l_api_name || ' Retrieval failure against
6413: mtl_reservations using id of ' || p_reservation_rec.reservation_id);
6414: END IF;
6415:
6436: RAISE fnd_api.g_exc_error;
6437: END IF;
6438:
6439: /* Validate the demand source - it must be a valid ingredient line */
6440: IF g_debug <= gme_debug.g_log_statement THEN
6441: gme_debug.put_line
6442: ( g_pkg_name
6443: || '.'
6444: || l_api_name
6437: END IF;
6438:
6439: /* Validate the demand source - it must be a valid ingredient line */
6440: IF g_debug <= gme_debug.g_log_statement THEN
6441: gme_debug.put_line
6442: ( g_pkg_name
6443: || '.'
6444: || l_api_name
6445: || ' Invoke validate_supply_demand for demand line of '
6462: p_expected_receipt_date => NULL,
6463: p_api_version_number => 1.0,
6464: p_init_msg_lst => FND_API.G_FALSE );
6465:
6466: IF g_debug <= gme_debug.g_log_statement THEN
6467: gme_debug.put_line
6468: ( g_pkg_name
6469: || '.'
6470: || l_api_name
6463: p_api_version_number => 1.0,
6464: p_init_msg_lst => FND_API.G_FALSE );
6465:
6466: IF g_debug <= gme_debug.g_log_statement THEN
6467: gme_debug.put_line
6468: ( g_pkg_name
6469: || '.'
6470: || l_api_name
6471: || ' Return status from gme_api_grp.validate_supply_demand is '
6485: ,x_message_count => x_message_count
6486: ,x_message_list => x_message_list
6487: ,x_return_status => x_return_status);
6488:
6489: IF g_debug <= gme_debug.g_log_statement THEN
6490: gme_debug.put_line
6491: ( g_pkg_name
6492: || '.'
6493: || l_api_name
6486: ,x_message_list => x_message_list
6487: ,x_return_status => x_return_status);
6488:
6489: IF g_debug <= gme_debug.g_log_statement THEN
6490: gme_debug.put_line
6491: ( g_pkg_name
6492: || '.'
6493: || l_api_name
6494: || ' Return status from gme_reservations_pvt.convert_dtl_reservation is '
6503: ,p_table => 1
6504: ,p_commit => p_commit
6505: ,x_return_status => x_return_status);
6506:
6507: IF g_debug <= gme_debug.g_log_statement THEN
6508: gme_debug.put_line
6509: ( g_pkg_name
6510: || '.'
6511: || l_api_name
6504: ,p_commit => p_commit
6505: ,x_return_status => x_return_status);
6506:
6507: IF g_debug <= gme_debug.g_log_statement THEN
6508: gme_debug.put_line
6509: ( g_pkg_name
6510: || '.'
6511: || l_api_name
6512: || ' return status from gme_api_pub.save_batch is '
6516: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6517: RAISE fnd_api.g_exc_error;
6518: END IF;
6519:
6520: IF g_debug <= gme_debug.g_log_procedure THEN
6521: gme_debug.put_line ( ' Completed '
6522: || l_api_name
6523: || ' at '
6524: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
6517: RAISE fnd_api.g_exc_error;
6518: END IF;
6519:
6520: IF g_debug <= gme_debug.g_log_procedure THEN
6521: gme_debug.put_line ( ' Completed '
6522: || l_api_name
6523: || ' at '
6524: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
6525: END IF;
6615: FROM gme_batch_steps
6616: WHERE batch_id = v_batch_id AND batchstep_id = v_batchstep_id;
6617: BEGIN
6618: IF (g_debug <> -1) THEN
6619: gme_debug.log_initialize ('InsertBatchstepResource');
6620: END IF;
6621:
6622: IF g_debug <= gme_debug.g_log_procedure THEN
6623: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
6618: IF (g_debug <> -1) THEN
6619: gme_debug.log_initialize ('InsertBatchstepResource');
6620: END IF;
6621:
6622: IF g_debug <= gme_debug.g_log_procedure THEN
6623: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
6624: || l_api_name);
6625: END IF;
6626:
6619: gme_debug.log_initialize ('InsertBatchstepResource');
6620: END IF;
6621:
6622: IF g_debug <= gme_debug.g_log_procedure THEN
6623: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
6624: || l_api_name);
6625: END IF;
6626:
6627: /* Set the savepoint */
6646: END IF;
6647:
6648: /* Setup the common constants used across the apis */
6649: /* This will raise an error if both organization_id and org_code are null values */
6650: IF g_debug <= gme_debug.g_log_statement THEN
6651: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6652: 'Invoking setup for org_id ' ||
6653: p_batchstep_resource_rec.organization_id ||
6654: ' org_code ' || p_org_code);
6647:
6648: /* Setup the common constants used across the apis */
6649: /* This will raise an error if both organization_id and org_code are null values */
6650: IF g_debug <= gme_debug.g_log_statement THEN
6651: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6652: 'Invoking setup for org_id ' ||
6653: p_batchstep_resource_rec.organization_id ||
6654: ' org_code ' || p_org_code);
6655: END IF;
6677: END IF;
6678:
6679: IF l_batchstep_resource_rec.batchstep_activity_id IS NOT NULL THEN
6680: -- validate the key provided
6681: IF g_debug <= gme_debug.g_log_statement THEN
6682: gme_debug.put_line
6683: ( g_pkg_name
6684: || '.'
6685: || l_api_name
6678:
6679: IF l_batchstep_resource_rec.batchstep_activity_id IS NOT NULL THEN
6680: -- validate the key provided
6681: IF g_debug <= gme_debug.g_log_statement THEN
6682: gme_debug.put_line
6683: ( g_pkg_name
6684: || '.'
6685: || l_api_name
6686: || ' validate batchstep activity id'
6705:
6706: CLOSE cur_validate_activity;
6707:
6708: -- make sure activity id does not belong to an FPO
6709: IF g_debug <= gme_debug.g_log_statement THEN
6710: gme_debug.put_line ( g_pkg_name
6711: || '.'
6712: || l_api_name
6713: || ' validate for FPO');
6706: CLOSE cur_validate_activity;
6707:
6708: -- make sure activity id does not belong to an FPO
6709: IF g_debug <= gme_debug.g_log_statement THEN
6710: gme_debug.put_line ( g_pkg_name
6711: || '.'
6712: || l_api_name
6713: || ' validate for FPO');
6714: END IF;
6730: ELSE
6731: /* User supplies EITHER internal identifiers via p_batchstep_resource_rec OR a
6732: series of keys. In the case of the latter, these must be validated and converted to
6733: internal identifiers for ongoing processing */
6734: IF g_debug <= gme_debug.g_log_statement THEN
6735: gme_debug.put_line ( g_pkg_name
6736: || '.'
6737: || l_api_name
6738: || ' Invoke validate_param');
6731: /* User supplies EITHER internal identifiers via p_batchstep_resource_rec OR a
6732: series of keys. In the case of the latter, these must be validated and converted to
6733: internal identifiers for ongoing processing */
6734: IF g_debug <= gme_debug.g_log_statement THEN
6735: gme_debug.put_line ( g_pkg_name
6736: || '.'
6737: || l_api_name
6738: || ' Invoke validate_param');
6739: END IF;
6751: ,x_rsrc_id => l_rsrc_id
6752: ,x_step_status => l_step_status
6753: ,x_return_status => l_return_status);
6754:
6755: IF g_debug <= gme_debug.g_log_statement THEN
6756: gme_debug.put_line ( g_pkg_name
6757: || '.'
6758: || l_api_name
6759: || ' validate_param returns '
6752: ,x_step_status => l_step_status
6753: ,x_return_status => l_return_status);
6754:
6755: IF g_debug <= gme_debug.g_log_statement THEN
6756: gme_debug.put_line ( g_pkg_name
6757: || '.'
6758: || l_api_name
6759: || ' validate_param returns '
6760: || l_return_status);
6763: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6764: RAISE fnd_api.g_exc_error;
6765: END IF;
6766:
6767: IF g_debug <= gme_debug.g_log_statement THEN
6768: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' batch_id
6769: => ' || l_batchstep_resource_rec.batch_id);
6770: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' batchstep_id => ' ||
6771: l_batchstep_resource_rec.batchstep_id);
6764: RAISE fnd_api.g_exc_error;
6765: END IF;
6766:
6767: IF g_debug <= gme_debug.g_log_statement THEN
6768: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' batch_id
6769: => ' || l_batchstep_resource_rec.batch_id);
6770: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' batchstep_id => ' ||
6771: l_batchstep_resource_rec.batchstep_id);
6772: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' batchstep_activity_id => '
6766:
6767: IF g_debug <= gme_debug.g_log_statement THEN
6768: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' batch_id
6769: => ' || l_batchstep_resource_rec.batch_id);
6770: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' batchstep_id => ' ||
6771: l_batchstep_resource_rec.batchstep_id);
6772: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' batchstep_activity_id => '
6773: || l_batchstep_resource_rec.batchstep_activity_id);
6774: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' rsrc_id => ' || l_rsrc_id);
6768: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' batch_id
6769: => ' || l_batchstep_resource_rec.batch_id);
6770: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' batchstep_id => ' ||
6771: l_batchstep_resource_rec.batchstep_id);
6772: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' batchstep_activity_id => '
6773: || l_batchstep_resource_rec.batchstep_activity_id);
6774: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' rsrc_id => ' || l_rsrc_id);
6775: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' step_status => '
6776: || l_step_status);
6770: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' batchstep_id => ' ||
6771: l_batchstep_resource_rec.batchstep_id);
6772: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' batchstep_activity_id => '
6773: || l_batchstep_resource_rec.batchstep_activity_id);
6774: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' rsrc_id => ' || l_rsrc_id);
6775: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' step_status => '
6776: || l_step_status);
6777: END IF;
6778: END IF;
6771: l_batchstep_resource_rec.batchstep_id);
6772: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' batchstep_activity_id => '
6773: || l_batchstep_resource_rec.batchstep_activity_id);
6774: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' rsrc_id => ' || l_rsrc_id);
6775: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' step_status => '
6776: || l_step_status);
6777: END IF;
6778: END IF;
6779:
6776: || l_step_status);
6777: END IF;
6778: END IF;
6779:
6780: IF g_debug <= gme_debug.g_log_statement THEN
6781: gme_debug.put_line ( g_pkg_name
6782: || '.'
6783: || l_api_name
6784: || ' proceed with resource validation for '
6777: END IF;
6778: END IF;
6779:
6780: IF g_debug <= gme_debug.g_log_statement THEN
6781: gme_debug.put_line ( g_pkg_name
6782: || '.'
6783: || l_api_name
6784: || ' proceed with resource validation for '
6785: || l_batchstep_resource_rec.resources);
6799: INTO l_min_capacity, l_max_capacity, l_capacity_constraint
6800: ,l_capacity_um, l_usage_uom, l_delete_mark
6801: ,l_capacity_tolerance;
6802:
6803: IF g_debug <= gme_debug.g_log_procedure THEN
6804: gme_debug.put_line ('after rsrc hdr fetch ');
6805: END IF;
6806:
6807: IF cur_get_rsrc_hdr%NOTFOUND OR l_delete_mark = 1 THEN
6800: ,l_capacity_um, l_usage_uom, l_delete_mark
6801: ,l_capacity_tolerance;
6802:
6803: IF g_debug <= gme_debug.g_log_procedure THEN
6804: gme_debug.put_line ('after rsrc hdr fetch ');
6805: END IF;
6806:
6807: IF cur_get_rsrc_hdr%NOTFOUND OR l_delete_mark = 1 THEN
6808: CLOSE cur_get_rsrc_dtl;
6817: END IF;
6818:
6819: CLOSE cur_get_rsrc_dtl;
6820:
6821: IF g_debug <= gme_debug.g_log_statement THEN
6822: gme_debug.put_line ( g_pkg_name
6823: || '.'
6824: || l_api_name
6825: || ' retrieve step status for batchstep_id'
6818:
6819: CLOSE cur_get_rsrc_dtl;
6820:
6821: IF g_debug <= gme_debug.g_log_statement THEN
6822: gme_debug.put_line ( g_pkg_name
6823: || '.'
6824: || l_api_name
6825: || ' retrieve step status for batchstep_id'
6826: || l_batchstep_resource_rec.batchstep_id);
6840: ,'GME_BATCH_STEPS');
6841: RAISE fnd_api.g_exc_error;
6842: END IF;
6843:
6844: IF g_debug <= gme_debug.g_log_statement THEN
6845: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' step_status
6846: is ' || l_step_status);
6847: END IF;
6848:
6841: RAISE fnd_api.g_exc_error;
6842: END IF;
6843:
6844: IF g_debug <= gme_debug.g_log_statement THEN
6845: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' step_status
6846: is ' || l_step_status);
6847: END IF;
6848:
6849: CLOSE cur_get_step_status;
6847: END IF;
6848:
6849: CLOSE cur_get_step_status;
6850:
6851: IF g_debug <= gme_debug.g_log_statement THEN
6852: gme_debug.put_line ( g_pkg_name
6853: || '.'
6854: || l_api_name
6855: || ' Invoke validate_rsrc_param');
6848:
6849: CLOSE cur_get_step_status;
6850:
6851: IF g_debug <= gme_debug.g_log_statement THEN
6852: gme_debug.put_line ( g_pkg_name
6853: || '.'
6854: || l_api_name
6855: || ' Invoke validate_rsrc_param');
6856: END IF;
6872: ,x_batchstep_resource_rec => l_batchstep_resource_rec_out
6873: ,x_step_status => l_step_status
6874: ,x_return_status => l_return_status);
6875:
6876: IF g_debug <= gme_debug.g_log_statement THEN
6877: gme_debug.put_line ( g_pkg_name
6878: || '.'
6879: || l_api_name
6880: || ' validate_rsrc_param returns '
6873: ,x_step_status => l_step_status
6874: ,x_return_status => l_return_status);
6875:
6876: IF g_debug <= gme_debug.g_log_statement THEN
6877: gme_debug.put_line ( g_pkg_name
6878: || '.'
6879: || l_api_name
6880: || ' validate_rsrc_param returns '
6881: || l_return_status);
6888: RAISE fnd_api.g_exc_error;
6889: END IF;
6890:
6891: -- Set capacity data
6892: IF g_debug <= gme_debug.g_log_statement THEN
6893: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6894: ' set capacity data as follows ');
6895: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6896: ' usage_um => ' || l_usage_uom);
6889: END IF;
6890:
6891: -- Set capacity data
6892: IF g_debug <= gme_debug.g_log_statement THEN
6893: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6894: ' set capacity data as follows ');
6895: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6896: ' usage_um => ' || l_usage_uom);
6897: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6891: -- Set capacity data
6892: IF g_debug <= gme_debug.g_log_statement THEN
6893: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6894: ' set capacity data as follows ');
6895: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6896: ' usage_um => ' || l_usage_uom);
6897: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6898: ' capacity_um => ' || l_capacity_um);
6899: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6893: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6894: ' set capacity data as follows ');
6895: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6896: ' usage_um => ' || l_usage_uom);
6897: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6898: ' capacity_um => ' || l_capacity_um);
6899: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6900: ' min_capacity => ' || l_min_capacity);
6901: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || '
6895: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6896: ' usage_um => ' || l_usage_uom);
6897: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6898: ' capacity_um => ' || l_capacity_um);
6899: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6900: ' min_capacity => ' || l_min_capacity);
6901: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || '
6902: max_capacity => ' || l_max_capacity);
6903: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6897: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6898: ' capacity_um => ' || l_capacity_um);
6899: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6900: ' min_capacity => ' || l_min_capacity);
6901: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || '
6902: max_capacity => ' || l_max_capacity);
6903: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6904: ' capacity tolerance => '|| l_capacity_tolerance);
6905: END IF;
6899: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6900: ' min_capacity => ' || l_min_capacity);
6901: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || '
6902: max_capacity => ' || l_max_capacity);
6903: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
6904: ' capacity tolerance => '|| l_capacity_tolerance);
6905: END IF;
6906:
6907: l_batchstep_resource_rec := l_batchstep_resource_rec_out;
6914: IF l_batchstep_resource_rec.offset_interval IS NULL THEN
6915: l_batchstep_resource_rec.offset_interval := 0;
6916: END IF;
6917:
6918: IF g_debug <= gme_debug.g_log_statement THEN
6919: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
6920: || ' invoke private layer insert_batchstep_rsrc');
6921: END IF;
6922:
6915: l_batchstep_resource_rec.offset_interval := 0;
6916: END IF;
6917:
6918: IF g_debug <= gme_debug.g_log_statement THEN
6919: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
6920: || ' invoke private layer insert_batchstep_rsrc');
6921: END IF;
6922:
6923: gme_batchstep_rsrc_pvt.insert_batchstep_rsrc
6924: (p_batchstep_resource_rec => l_batchstep_resource_rec
6925: ,x_batchstep_resource_rec => x_batchstep_resource_rec
6926: ,x_return_status => x_return_status);
6927:
6928: IF g_debug <= gme_debug.g_log_statement THEN
6929: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || '
6930: insert_batchstep_rsrc returns '|| x_return_status);
6931: END IF;
6932:
6925: ,x_batchstep_resource_rec => x_batchstep_resource_rec
6926: ,x_return_status => x_return_status);
6927:
6928: IF g_debug <= gme_debug.g_log_statement THEN
6929: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || '
6930: insert_batchstep_rsrc returns '|| x_return_status);
6931: END IF;
6932:
6933: IF x_return_status = fnd_api.g_ret_sts_success THEN
6930: insert_batchstep_rsrc returns '|| x_return_status);
6931: END IF;
6932:
6933: IF x_return_status = fnd_api.g_ret_sts_success THEN
6934: IF g_debug <= gme_debug.g_log_statement THEN
6935: gme_debug.put_line ( g_pkg_name
6936: || '.'
6937: || l_api_name
6938: || ' invoke save_batch');
6931: END IF;
6932:
6933: IF x_return_status = fnd_api.g_ret_sts_success THEN
6934: IF g_debug <= gme_debug.g_log_statement THEN
6935: gme_debug.put_line ( g_pkg_name
6936: || '.'
6937: || l_api_name
6938: || ' invoke save_batch');
6939: END IF;
6942: ,p_table => NULL
6943: ,p_commit => p_commit
6944: ,x_return_status => x_return_status);
6945:
6946: IF g_debug <= gme_debug.g_log_statement THEN
6947: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || '
6948: save_batch returns '|| x_return_status);
6949: END IF;
6950:
6943: ,p_commit => p_commit
6944: ,x_return_status => x_return_status);
6945:
6946: IF g_debug <= gme_debug.g_log_statement THEN
6947: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || '
6948: save_batch returns '|| x_return_status);
6949: END IF;
6950:
6951: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6954: ELSE
6955: RAISE insert_rsrc_failed;
6956: END IF;
6957:
6958: IF g_debug <= gme_debug.g_log_procedure THEN
6959: gme_debug.put_line ( ' Completed ' || g_pkg_name || '.' || l_api_name
6960: || ' at ' || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
6961: END IF;
6962:
6955: RAISE insert_rsrc_failed;
6956: END IF;
6957:
6958: IF g_debug <= gme_debug.g_log_procedure THEN
6959: gme_debug.put_line ( ' Completed ' || g_pkg_name || '.' || l_api_name
6960: || ' at ' || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
6961: END IF;
6962:
6963: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
7024: /* Set the savepoint */
7025: SAVEPOINT update_batchstep_rsrc;
7026:
7027: IF (g_debug <> -1) THEN
7028: gme_debug.log_initialize ('UpdateBatchstepResource');
7029: END IF;
7030:
7031: IF g_debug <= gme_debug.g_log_procedure THEN
7032: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
7027: IF (g_debug <> -1) THEN
7028: gme_debug.log_initialize ('UpdateBatchstepResource');
7029: END IF;
7030:
7031: IF g_debug <= gme_debug.g_log_procedure THEN
7032: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
7033: || l_api_name);
7034: END IF;
7035:
7028: gme_debug.log_initialize ('UpdateBatchstepResource');
7029: END IF;
7030:
7031: IF g_debug <= gme_debug.g_log_procedure THEN
7032: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
7033: || l_api_name);
7034: END IF;
7035:
7036: /* Set the return status to success initially */
7056: l_batchstep_resource_rec := p_batchstep_resource_rec;
7057: gme_common_pvt.g_check_primary_rsrc := 1;
7058:
7059: /* Retrieve the row to be updated */
7060: IF g_debug <= gme_debug.g_log_statement THEN
7061: gme_debug.put_line ( g_pkg_name
7062: || '.'
7063: || l_api_name
7064: || 'Invoke get_batchstep_rsrc');
7057: gme_common_pvt.g_check_primary_rsrc := 1;
7058:
7059: /* Retrieve the row to be updated */
7060: IF g_debug <= gme_debug.g_log_statement THEN
7061: gme_debug.put_line ( g_pkg_name
7062: || '.'
7063: || l_api_name
7064: || 'Invoke get_batchstep_rsrc');
7065: END IF;
7071: ,p_batchstep_no => p_batchstep_no
7072: ,p_activity => p_activity
7073: ,p_resource => l_batchstep_resource_rec.resources
7074: ,x_batchstep_rsrc_rec => l_batchstep_resource_rec_out) THEN
7075: IF g_debug <= gme_debug.g_log_statement THEN
7076: gme_debug.put_line ( g_pkg_name
7077: || '.'
7078: || l_api_name
7079: || ' get_batchstep_rsrc failed to retrieve row');
7072: ,p_activity => p_activity
7073: ,p_resource => l_batchstep_resource_rec.resources
7074: ,x_batchstep_rsrc_rec => l_batchstep_resource_rec_out) THEN
7075: IF g_debug <= gme_debug.g_log_statement THEN
7076: gme_debug.put_line ( g_pkg_name
7077: || '.'
7078: || l_api_name
7079: || ' get_batchstep_rsrc failed to retrieve row');
7080: END IF;
7096: l_batchstep_resource_rec_out.batchstep_activity_id;
7097: l_batchstep_resource_rec.resources :=
7098: l_batchstep_resource_rec_out.resources;
7099:
7100: IF g_debug <= gme_debug.g_log_statement THEN
7101: gme_debug.put_line ( g_pkg_name
7102: || '.'
7103: || l_api_name
7104: || ' batchstep_resource_id is '
7097: l_batchstep_resource_rec.resources :=
7098: l_batchstep_resource_rec_out.resources;
7099:
7100: IF g_debug <= gme_debug.g_log_statement THEN
7101: gme_debug.put_line ( g_pkg_name
7102: || '.'
7103: || l_api_name
7104: || ' batchstep_resource_id is '
7105: || l_batchstep_resource_rec.batchstep_resource_id);
7106: END IF;
7107:
7108: /* Setup the common constants used accross the apis */
7109: /* This will raise an error if both organization_id and org_code are null values */
7110: IF g_debug <= gme_debug.g_log_statement THEN
7111: gme_debug.put_line ( g_pkg_name
7112: || '.'
7113: || l_api_name
7114: || ' Invoking setup for org_id '
7107:
7108: /* Setup the common constants used accross the apis */
7109: /* This will raise an error if both organization_id and org_code are null values */
7110: IF g_debug <= gme_debug.g_log_statement THEN
7111: gme_debug.put_line ( g_pkg_name
7112: || '.'
7113: || l_api_name
7114: || ' Invoking setup for org_id '
7115: || p_batchstep_resource_rec.organization_id
7122: (p_org_id => l_batchstep_resource_rec.organization_id
7123: ,p_org_code => p_org_code);
7124:
7125: IF NOT gme_common_pvt.g_setup_done THEN
7126: IF g_debug <= gme_debug.g_log_statement THEN
7127: gme_debug.put_line ( g_pkg_name
7128: || '.'
7129: || l_api_name
7130: || ' setup failure ');
7123: ,p_org_code => p_org_code);
7124:
7125: IF NOT gme_common_pvt.g_setup_done THEN
7126: IF g_debug <= gme_debug.g_log_statement THEN
7127: gme_debug.put_line ( g_pkg_name
7128: || '.'
7129: || l_api_name
7130: || ' setup failure ');
7131: END IF;
7133: RAISE fnd_api.g_exc_error;
7134: END IF;
7135:
7136: /* Establish the step_status of the batchstep */
7137: IF g_debug <= gme_debug.g_log_statement THEN
7138: gme_debug.put_line ( g_pkg_name
7139: || '.'
7140: || l_api_name
7141: || ' retrieve step status for batchstep_id '
7134: END IF;
7135:
7136: /* Establish the step_status of the batchstep */
7137: IF g_debug <= gme_debug.g_log_statement THEN
7138: gme_debug.put_line ( g_pkg_name
7139: || '.'
7140: || l_api_name
7141: || ' retrieve step status for batchstep_id '
7142: || l_batchstep_resource_rec.batchstep_id);
7156: ,l_batchstep_resource_rec.batchstep_id);
7157: RAISE fnd_api.g_exc_error;
7158: END IF;
7159:
7160: IF g_debug <= gme_debug.g_log_statement THEN
7161: gme_debug.put_line ( g_pkg_name
7162: || '.'
7163: || l_api_name
7164: || ' step_status is '
7157: RAISE fnd_api.g_exc_error;
7158: END IF;
7159:
7160: IF g_debug <= gme_debug.g_log_statement THEN
7161: gme_debug.put_line ( g_pkg_name
7162: || '.'
7163: || l_api_name
7164: || ' step_status is '
7165: || l_step_status);
7184: ,x_batchstep_resource_rec => l_batchstep_resource_rec_out
7185: ,x_step_status => l_step_status
7186: ,x_return_status => l_return_status);
7187:
7188: IF g_debug <= gme_debug.g_log_statement THEN
7189: gme_debug.put_line ('val rsrc param returns ' || l_return_status);
7190: END IF;
7191:
7192: --FPBug#4395561 resetting global flex field validate
7185: ,x_step_status => l_step_status
7186: ,x_return_status => l_return_status);
7187:
7188: IF g_debug <= gme_debug.g_log_statement THEN
7189: gme_debug.put_line ('val rsrc param returns ' || l_return_status);
7190: END IF;
7191:
7192: --FPBug#4395561 resetting global flex field validate
7193: gme_common_pvt.g_flex_validate_prof := 0;
7197: END IF;
7198:
7199: l_batchstep_resource_rec := l_batchstep_resource_rec_out;
7200:
7201: IF g_debug <= gme_debug.g_log_statement THEN
7202: gme_debug.put_line
7203: ( g_pkg_name
7204: || '.'
7205: || l_api_name
7198:
7199: l_batchstep_resource_rec := l_batchstep_resource_rec_out;
7200:
7201: IF g_debug <= gme_debug.g_log_statement THEN
7202: gme_debug.put_line
7203: ( g_pkg_name
7204: || '.'
7205: || l_api_name
7206: || ' Invoke gme_batchstep_rsrc_pvt.update_batchstep_rsrc');
7210: (p_batchstep_resource_rec => l_batchstep_resource_rec
7211: ,x_batchstep_resource_rec => x_batchstep_resource_rec
7212: ,x_return_status => x_return_status);
7213:
7214: IF g_debug <= gme_debug.g_log_statement THEN
7215: gme_debug.put_line ( g_pkg_name
7216: || '.'
7217: || l_api_name
7218: || ' update_batchstep_rsrc returns '
7211: ,x_batchstep_resource_rec => x_batchstep_resource_rec
7212: ,x_return_status => x_return_status);
7213:
7214: IF g_debug <= gme_debug.g_log_statement THEN
7215: gme_debug.put_line ( g_pkg_name
7216: || '.'
7217: || l_api_name
7218: || ' update_batchstep_rsrc returns '
7219: || x_return_status);
7219: || x_return_status);
7220: END IF;
7221:
7222: IF x_return_status = fnd_api.g_ret_sts_success THEN
7223: IF g_debug <= gme_debug.g_log_statement THEN
7224: gme_debug.put_line ( g_pkg_name
7225: || '.'
7226: || l_api_name
7227: || ' invoke save_batch with commit ='
7220: END IF;
7221:
7222: IF x_return_status = fnd_api.g_ret_sts_success THEN
7223: IF g_debug <= gme_debug.g_log_statement THEN
7224: gme_debug.put_line ( g_pkg_name
7225: || '.'
7226: || l_api_name
7227: || ' invoke save_batch with commit ='
7228: || p_commit);
7233: ,p_table => null
7234: ,p_commit => p_commit
7235: ,x_return_status => x_return_status);
7236:
7237: IF g_debug <= gme_debug.g_log_statement THEN
7238: gme_debug.put_line ( g_pkg_name
7239: || '.'
7240: || l_api_name
7241: || ' save_batch return_status is '
7234: ,p_commit => p_commit
7235: ,x_return_status => x_return_status);
7236:
7237: IF g_debug <= gme_debug.g_log_statement THEN
7238: gme_debug.put_line ( g_pkg_name
7239: || '.'
7240: || l_api_name
7241: || ' save_batch return_status is '
7242: || x_return_status);
7253: gme_common_pvt.count_and_get(x_count => x_message_count
7254: ,p_encoded => fnd_api.g_false
7255: ,x_data => x_message_list);
7256:
7257: IF g_debug <= gme_debug.g_log_procedure THEN
7258: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
7259: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
7260: END IF;
7261: EXCEPTION
7254: ,p_encoded => fnd_api.g_false
7255: ,x_data => x_message_list);
7256:
7257: IF g_debug <= gme_debug.g_log_procedure THEN
7258: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
7259: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
7260: END IF;
7261: EXCEPTION
7262: WHEN update_rsrc_failed THEN
7332: /* Set the savepoint */
7333: SAVEPOINT delete_batchstep_rsrc;
7334:
7335: IF g_debug <> -1 THEN
7336: gme_debug.log_initialize ('DeleteBatchstepResource');
7337: END IF;
7338:
7339: IF g_debug <= gme_debug.g_log_procedure THEN
7340: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
7335: IF g_debug <> -1 THEN
7336: gme_debug.log_initialize ('DeleteBatchstepResource');
7337: END IF;
7338:
7339: IF g_debug <= gme_debug.g_log_procedure THEN
7340: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
7341: || l_api_name);
7342: END IF;
7343:
7336: gme_debug.log_initialize ('DeleteBatchstepResource');
7337: END IF;
7338:
7339: IF g_debug <= gme_debug.g_log_procedure THEN
7340: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
7341: || l_api_name);
7342: END IF;
7343:
7344: /* Set the return status to success initially */
7362: END IF;
7363:
7364: gme_common_pvt.g_check_primary_rsrc := 1;
7365:
7366: IF (g_debug <= gme_debug.g_log_statement) THEN
7367: gme_debug.put_line ( g_pkg_name
7368: || '.'
7369: || l_api_name
7370: || ':'
7363:
7364: gme_common_pvt.g_check_primary_rsrc := 1;
7365:
7366: IF (g_debug <= gme_debug.g_log_statement) THEN
7367: gme_debug.put_line ( g_pkg_name
7368: || '.'
7369: || l_api_name
7370: || ':'
7371: || 'input data - p_batchstep_resource_id is : '
7383: END IF;
7384:
7385: /* validate key values where no internal ID provided */
7386: IF p_batchstep_resource_id IS NULL THEN
7387: IF g_debug <= gme_debug.g_log_statement THEN
7388: gme_debug.put_line ( g_pkg_name
7389: || '.'
7390: || l_api_name
7391: || ' Invoke validate param ');
7384:
7385: /* validate key values where no internal ID provided */
7386: IF p_batchstep_resource_id IS NULL THEN
7387: IF g_debug <= gme_debug.g_log_statement THEN
7388: gme_debug.put_line ( g_pkg_name
7389: || '.'
7390: || l_api_name
7391: || ' Invoke validate param ');
7392: END IF;
7404: ,x_rsrc_id => l_rsrc_id
7405: ,x_step_status => l_step_status
7406: ,x_return_status => l_return_status);
7407:
7408: IF g_debug <= gme_debug.g_log_statement THEN
7409: gme_debug.put_line ( g_pkg_name
7410: || '.'
7411: || l_api_name
7412: || ':'
7405: ,x_step_status => l_step_status
7406: ,x_return_status => l_return_status);
7407:
7408: IF g_debug <= gme_debug.g_log_statement THEN
7409: gme_debug.put_line ( g_pkg_name
7410: || '.'
7411: || l_api_name
7412: || ':'
7413: || 'validate_param returns status : '
7419: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7420: RAISE fnd_api.g_exc_error;
7421: END IF;
7422: ELSE
7423: IF g_debug <= gme_debug.g_log_statement THEN
7424: gme_debug.put_line ( g_pkg_name
7425: || '.'
7426: || l_api_name
7427: || 'Working with Input batchstep resource id : '
7420: RAISE fnd_api.g_exc_error;
7421: END IF;
7422: ELSE
7423: IF g_debug <= gme_debug.g_log_statement THEN
7424: gme_debug.put_line ( g_pkg_name
7425: || '.'
7426: || l_api_name
7427: || 'Working with Input batchstep resource id : '
7428: || p_batchstep_resource_id);
7430:
7431: l_rsrc_id := p_batchstep_resource_id;
7432: END IF;
7433:
7434: IF g_debug <= gme_debug.g_log_statement THEN
7435: gme_debug.put_line ( g_pkg_name
7436: || '.'
7437: || l_api_name
7438: || ' retrieve batch step detail using id => '
7431: l_rsrc_id := p_batchstep_resource_id;
7432: END IF;
7433:
7434: IF g_debug <= gme_debug.g_log_statement THEN
7435: gme_debug.put_line ( g_pkg_name
7436: || '.'
7437: || l_api_name
7438: || ' retrieve batch step detail using id => '
7439: || l_rsrc_id);
7455: CLOSE cur_get_step_dtl;
7456:
7457: /* Setup the common constants used across the apis */
7458: /* This will raise an error if both organization_id and org_code are null values */
7459: IF g_debug <= gme_debug.g_log_statement THEN
7460: gme_debug.put_line ( g_pkg_name
7461: || '.'
7462: || l_api_name
7463: || ' invoke setup using org_id => '
7456:
7457: /* Setup the common constants used across the apis */
7458: /* This will raise an error if both organization_id and org_code are null values */
7459: IF g_debug <= gme_debug.g_log_statement THEN
7460: gme_debug.put_line ( g_pkg_name
7461: || '.'
7462: || l_api_name
7463: || ' invoke setup using org_id => '
7464: || l_organization_id
7474: RAISE fnd_api.g_exc_error;
7475: END IF;
7476:
7477: /* Validations prior to deletion */
7478: IF g_debug <= gme_debug.g_log_statement THEN
7479: gme_debug.put_line ( g_pkg_name
7480: || '.'
7481: || l_api_name
7482: || ' start of validations');
7475: END IF;
7476:
7477: /* Validations prior to deletion */
7478: IF g_debug <= gme_debug.g_log_statement THEN
7479: gme_debug.put_line ( g_pkg_name
7480: || '.'
7481: || l_api_name
7482: || ' start of validations');
7483: END IF;
7495: END IF;
7496:
7497: CLOSE cur_validate_batch_type;
7498:
7499: IF g_debug <= gme_debug.g_log_statement THEN
7500: gme_debug.put_line ( g_pkg_name
7501: || '.'
7502: || l_api_name
7503: || ' validate batch_status of '
7496:
7497: CLOSE cur_validate_batch_type;
7498:
7499: IF g_debug <= gme_debug.g_log_statement THEN
7500: gme_debug.put_line ( g_pkg_name
7501: || '.'
7502: || l_api_name
7503: || ' validate batch_status of '
7504: || l_batch_status);
7501: || '.'
7502: || l_api_name
7503: || ' validate batch_status of '
7504: || l_batch_status);
7505: gme_debug.put_line ( g_pkg_name
7506: || '.'
7507: || l_api_name
7508: || ' validate step_status of '
7509: || l_step_status);
7523: l_batchstep_resource_rec.batchstep_id := l_batchstep_id;
7524: l_batchstep_resource_rec.batchstep_activity_id := l_activity_id;
7525: l_batchstep_resource_rec.batchstep_resource_id := l_rsrc_id;
7526:
7527: IF g_debug <= gme_debug.g_log_statement THEN
7528: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7529: ' invoke gme_batchstep_rsrc_pvt.delete_batchstep_rsrc ');
7530: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7531: 'organization_id => ' || l_organization_id);
7524: l_batchstep_resource_rec.batchstep_activity_id := l_activity_id;
7525: l_batchstep_resource_rec.batchstep_resource_id := l_rsrc_id;
7526:
7527: IF g_debug <= gme_debug.g_log_statement THEN
7528: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7529: ' invoke gme_batchstep_rsrc_pvt.delete_batchstep_rsrc ');
7530: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7531: 'organization_id => ' || l_organization_id);
7532: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7526:
7527: IF g_debug <= gme_debug.g_log_statement THEN
7528: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7529: ' invoke gme_batchstep_rsrc_pvt.delete_batchstep_rsrc ');
7530: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7531: 'organization_id => ' || l_organization_id);
7532: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7533: ' batch_id => ' || l_batch_id);
7534: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7528: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7529: ' invoke gme_batchstep_rsrc_pvt.delete_batchstep_rsrc ');
7530: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7531: 'organization_id => ' || l_organization_id);
7532: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7533: ' batch_id => ' || l_batch_id);
7534: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7535: 'batchstep_id => ' || l_batchstep_id);
7536: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7530: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7531: 'organization_id => ' || l_organization_id);
7532: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7533: ' batch_id => ' || l_batch_id);
7534: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7535: 'batchstep_id => ' || l_batchstep_id);
7536: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7537: ' activity_id => ' || l_activity_id);
7538: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7532: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7533: ' batch_id => ' || l_batch_id);
7534: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7535: 'batchstep_id => ' || l_batchstep_id);
7536: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7537: ' activity_id => ' || l_activity_id);
7538: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7539: 'batchstep_resource_id => ' || l_rsrc_id);
7540: END IF;
7534: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7535: 'batchstep_id => ' || l_batchstep_id);
7536: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7537: ' activity_id => ' || l_activity_id);
7538: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7539: 'batchstep_resource_id => ' || l_rsrc_id);
7540: END IF;
7541:
7542: gme_batchstep_rsrc_pvt.delete_batchstep_rsrc
7542: gme_batchstep_rsrc_pvt.delete_batchstep_rsrc
7543: (p_batchstep_resource_rec => l_batchstep_resource_rec
7544: ,x_return_status => x_return_status);
7545:
7546: IF g_debug <= gme_debug.g_log_statement THEN
7547: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' return
7548: status from delete is ' || x_return_status);
7549: END IF;
7550:
7543: (p_batchstep_resource_rec => l_batchstep_resource_rec
7544: ,x_return_status => x_return_status);
7545:
7546: IF g_debug <= gme_debug.g_log_statement THEN
7547: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' return
7548: status from delete is ' || x_return_status);
7549: END IF;
7550:
7551: IF x_return_status = fnd_api.g_ret_sts_success THEN
7548: status from delete is ' || x_return_status);
7549: END IF;
7550:
7551: IF x_return_status = fnd_api.g_ret_sts_success THEN
7552: IF g_debug <= gme_debug.g_log_statement THEN
7553: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' invoke
7554: save_batch tith commit set ' || p_commit);
7555: END IF;
7556:
7549: END IF;
7550:
7551: IF x_return_status = fnd_api.g_ret_sts_success THEN
7552: IF g_debug <= gme_debug.g_log_statement THEN
7553: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' invoke
7554: save_batch tith commit set ' || p_commit);
7555: END IF;
7556:
7557: gme_api_pub.save_batch
7559: ,p_table => null
7560: ,p_commit => p_commit
7561: ,x_return_status => x_return_status);
7562:
7563: IF g_debug <= gme_debug.g_log_statement THEN
7564: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' return
7565: status from save_batch is '
7566: || x_return_status);
7567: END IF;
7560: ,p_commit => p_commit
7561: ,x_return_status => x_return_status);
7562:
7563: IF g_debug <= gme_debug.g_log_statement THEN
7564: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' return
7565: status from save_batch is '
7566: || x_return_status);
7567: END IF;
7568:
7572: ELSE
7573: RAISE delete_rsrc_failed;
7574: END IF;
7575:
7576: IF g_debug <= gme_debug.g_log_procedure THEN
7577: gme_debug.put_line ( ' Completed ' || l_api_name || ' at '
7578: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
7579: END IF;
7580: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
7573: RAISE delete_rsrc_failed;
7574: END IF;
7575:
7576: IF g_debug <= gme_debug.g_log_procedure THEN
7577: gme_debug.put_line ( ' Completed ' || l_api_name || ' at '
7578: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
7579: END IF;
7580: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
7581: gme_common_pvt.count_and_get(x_count => x_message_count
7631:
7632: auto_detail_error EXCEPTION;
7633: BEGIN
7634: IF (g_debug <> -1) THEN
7635: gme_debug.log_initialize ('AutoDetailLine');
7636: END IF;
7637:
7638: IF g_debug <= gme_debug.g_log_procedure THEN
7639: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
7634: IF (g_debug <> -1) THEN
7635: gme_debug.log_initialize ('AutoDetailLine');
7636: END IF;
7637:
7638: IF g_debug <= gme_debug.g_log_procedure THEN
7639: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
7640: || l_api_name);
7641: END IF;
7642:
7635: gme_debug.log_initialize ('AutoDetailLine');
7636: END IF;
7637:
7638: IF g_debug <= gme_debug.g_log_procedure THEN
7639: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
7640: || l_api_name);
7641: END IF;
7642:
7643: /* Set the savepoint */
7656: gme_common_pvt.log_message ('GME_INVALID_API_VERSION');
7657: RAISE fnd_api.g_exc_error;
7658: END IF;
7659:
7660: IF g_debug <= gme_debug.g_log_statement THEN
7661: gme_debug.put_line (
7662: g_pkg_name || '.' || l_api_name ||
7663: ' input material_detail_id is ' || p_material_detail_id ||
7664: ' input batch_no is ' || p_batch_no ||
7657: RAISE fnd_api.g_exc_error;
7658: END IF;
7659:
7660: IF g_debug <= gme_debug.g_log_statement THEN
7661: gme_debug.put_line (
7662: g_pkg_name || '.' || l_api_name ||
7663: ' input material_detail_id is ' || p_material_detail_id ||
7664: ' input batch_no is ' || p_batch_no ||
7665: ' input org_code is ' || p_org_code ||
7680: ,x_message_count => x_message_count
7681: ,x_message_list => x_message_list
7682: ,x_return_status => x_return_status );
7683: IF x_return_status <> fnd_api.g_ret_sts_success THEN
7684: IF (g_debug = gme_debug.g_log_statement) THEN
7685: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
7686: || ': batch mateiral validate error ');
7687: END IF;
7688: RAISE fnd_api.g_exc_error;
7681: ,x_message_list => x_message_list
7682: ,x_return_status => x_return_status );
7683: IF x_return_status <> fnd_api.g_ret_sts_success THEN
7684: IF (g_debug = gme_debug.g_log_statement) THEN
7685: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
7686: || ': batch mateiral validate error ');
7687: END IF;
7688: RAISE fnd_api.g_exc_error;
7689: ELSE
7691: END IF;
7692: gme_common_pvt.set_timestamp;
7693:
7694: /* Validate the demand source - it must be a valid ingredient line */
7695: IF g_debug <= gme_debug.g_log_statement THEN
7696: gme_debug.put_line
7697: ( g_pkg_name
7698: || '.'
7699: || l_api_name
7692: gme_common_pvt.set_timestamp;
7693:
7694: /* Validate the demand source - it must be a valid ingredient line */
7695: IF g_debug <= gme_debug.g_log_statement THEN
7696: gme_debug.put_line
7697: ( g_pkg_name
7698: || '.'
7699: || l_api_name
7700: || ' Invoke validate_supply_demand for demand line of '
7717: p_expected_receipt_date => NULL,
7718: p_api_version_number => 1.0,
7719: p_init_msg_lst => FND_API.G_FALSE );
7720:
7721: IF g_debug <= gme_debug.g_log_statement THEN
7722: gme_debug.put_line
7723: ( g_pkg_name
7724: || '.'
7725: || l_api_name
7718: p_api_version_number => 1.0,
7719: p_init_msg_lst => FND_API.G_FALSE );
7720:
7721: IF g_debug <= gme_debug.g_log_statement THEN
7722: gme_debug.put_line
7723: ( g_pkg_name
7724: || '.'
7725: || l_api_name
7726: || ' Return status from gme_api_grp.validate_supply_demand is '
7724: || '.'
7725: || l_api_name
7726: || ' Return status from gme_api_grp.validate_supply_demand is '
7727: || x_return_status);
7728: gme_debug.put_line(g_pkg_name
7729: ||'.'
7730: ||l_api_name
7731: || ' valid status is '
7732: || l_valid_status);
7744: ,x_message_count => x_message_count
7745: ,x_message_list => x_message_list
7746: ,x_return_status => x_return_status);
7747:
7748: IF g_debug <= gme_debug.g_log_statement THEN
7749: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7750: ' Return status from GME_API_MAIN.Auto_Detail_Line is '
7751: || x_return_status);
7752: END IF;
7745: ,x_message_list => x_message_list
7746: ,x_return_status => x_return_status);
7747:
7748: IF g_debug <= gme_debug.g_log_statement THEN
7749: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7750: ' Return status from GME_API_MAIN.Auto_Detail_Line is '
7751: || x_return_status);
7752: END IF;
7753:
7759: IF p_commit = fnd_api.g_true THEN
7760: COMMIT;
7761: END IF;
7762:
7763: IF g_debug <= gme_debug.g_log_procedure THEN
7764: gme_debug.put_line ( ' Completed '
7765: || g_pkg_name
7766: || '.'
7767: || l_api_name
7760: COMMIT;
7761: END IF;
7762:
7763: IF g_debug <= gme_debug.g_log_procedure THEN
7764: gme_debug.put_line ( ' Completed '
7765: || g_pkg_name
7766: || '.'
7767: || l_api_name
7768: || ' at '
7804:
7805: auto_detail_error EXCEPTION;
7806: BEGIN
7807: IF (g_debug <> -1) THEN
7808: gme_debug.log_initialize ('AutoDetailBatch');
7809: END IF;
7810:
7811: IF g_debug <= gme_debug.g_log_procedure THEN
7812: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
7807: IF (g_debug <> -1) THEN
7808: gme_debug.log_initialize ('AutoDetailBatch');
7809: END IF;
7810:
7811: IF g_debug <= gme_debug.g_log_procedure THEN
7812: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
7813: END IF;
7814:
7815: /* Set the savepoint */
7808: gme_debug.log_initialize ('AutoDetailBatch');
7809: END IF;
7810:
7811: IF g_debug <= gme_debug.g_log_procedure THEN
7812: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
7813: END IF;
7814:
7815: /* Set the savepoint */
7816: SAVEPOINT auto_detail_batch;
7829: gme_common_pvt.log_message ('GME_INVALID_API_VERSION');
7830: RAISE fnd_api.g_exc_error;
7831: END IF;
7832:
7833: IF g_debug <= gme_debug.g_log_statement THEN
7834: gme_debug.put_line( g_pkg_name
7835: ||'.'
7836: ||l_api_name
7837: || 'Retrieve batch header row'
7830: RAISE fnd_api.g_exc_error;
7831: END IF;
7832:
7833: IF g_debug <= gme_debug.g_log_statement THEN
7834: gme_debug.put_line( g_pkg_name
7835: ||'.'
7836: ||l_api_name
7837: || 'Retrieve batch header row'
7838: || ' Input org_code is '
7855: IF NOT gme_common_pvt.g_setup_done THEN
7856: RAISE fnd_api.g_exc_error;
7857: ELSE
7858: l_batch_rec.organization_id := gme_common_pvt.g_organization_id;
7859: IF g_debug <= gme_debug.g_log_statement THEN
7860: gme_debug.put_line( g_pkg_name
7861: ||'.'
7862: ||l_api_name
7863: || ' Organization_id set to '
7856: RAISE fnd_api.g_exc_error;
7857: ELSE
7858: l_batch_rec.organization_id := gme_common_pvt.g_organization_id;
7859: IF g_debug <= gme_debug.g_log_statement THEN
7860: gme_debug.put_line( g_pkg_name
7861: ||'.'
7862: ||l_api_name
7863: || ' Organization_id set to '
7864: ||gme_common_pvt.g_organization_id);
7918: ,x_message_list => x_message_list
7919: ,x_return_status => x_return_status
7920: ,p_batch_rec => l_batch_header_rec);
7921:
7922: IF g_debug <= gme_debug.g_log_statement THEN
7923: gme_debug.put_line( g_pkg_name
7924: ||'.'
7925: ||l_api_name
7926: ||' Return status from GME_API_MAIN.Auto_Detail_Batch is '
7919: ,x_return_status => x_return_status
7920: ,p_batch_rec => l_batch_header_rec);
7921:
7922: IF g_debug <= gme_debug.g_log_statement THEN
7923: gme_debug.put_line( g_pkg_name
7924: ||'.'
7925: ||l_api_name
7926: ||' Return status from GME_API_MAIN.Auto_Detail_Batch is '
7927: ||x_return_status);
7935: IF p_commit = FND_API.G_TRUE THEN
7936: COMMIT;
7937: END IF;
7938:
7939: IF g_debug <= gme_debug.g_log_procedure THEN
7940: gme_debug.put_line ( ' Completed '
7941: ||g_pkg_name
7942: ||'.'
7943: || l_api_name
7936: COMMIT;
7937: END IF;
7938:
7939: IF g_debug <= gme_debug.g_log_procedure THEN
7940: gme_debug.put_line ( ' Completed '
7941: ||g_pkg_name
7942: ||'.'
7943: || l_api_name
7944: || ' at '
8019: SAVEPOINT insert_activity_pub;
8020:
8021: IF (g_debug <> -1)
8022: THEN
8023: gme_debug.log_initialize ('InsertBatchstepActivity');
8024: END IF;
8025:
8026: IF g_debug <= gme_debug.g_log_procedure THEN
8027: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8022: THEN
8023: gme_debug.log_initialize ('InsertBatchstepActivity');
8024: END IF;
8025:
8026: IF g_debug <= gme_debug.g_log_procedure THEN
8027: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8028: || l_api_name);
8029: END IF;
8030:
8023: gme_debug.log_initialize ('InsertBatchstepActivity');
8024: END IF;
8025:
8026: IF g_debug <= gme_debug.g_log_procedure THEN
8027: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8028: || l_api_name);
8029: END IF;
8030:
8031: IF (fnd_api.to_boolean (p_init_msg_list))
8092: p_encoded => fnd_api.g_false,
8093: x_data => x_message_list
8094: );
8095:
8096: IF g_debug <= gme_debug.g_log_procedure THEN
8097: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
8098: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
8099: END IF;
8100: EXCEPTION
8093: x_data => x_message_list
8094: );
8095:
8096: IF g_debug <= gme_debug.g_log_procedure THEN
8097: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
8098: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
8099: END IF;
8100: EXCEPTION
8101: WHEN insert_activity_failed THEN
8166: /* Set savepoint here */
8167: SAVEPOINT update_activity_pub;
8168:
8169: IF (g_debug <> -1) THEN
8170: gme_debug.log_initialize ('UpdateBatchstepActivity');
8171: END IF;
8172: IF g_debug <= gme_debug.g_log_procedure THEN
8173: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8174: || l_api_name);
8168:
8169: IF (g_debug <> -1) THEN
8170: gme_debug.log_initialize ('UpdateBatchstepActivity');
8171: END IF;
8172: IF g_debug <= gme_debug.g_log_procedure THEN
8173: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8174: || l_api_name);
8175: END IF;
8176:
8169: IF (g_debug <> -1) THEN
8170: gme_debug.log_initialize ('UpdateBatchstepActivity');
8171: END IF;
8172: IF g_debug <= gme_debug.g_log_procedure THEN
8173: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8174: || l_api_name);
8175: END IF;
8176:
8177: IF (fnd_api.to_boolean (p_init_msg_list)) THEN
8233: gme_common_pvt.count_and_get (x_count => x_message_count,
8234: p_encoded => fnd_api.g_false,
8235: x_data => x_message_list
8236: );
8237: IF g_debug <= gme_debug.g_log_procedure THEN
8238: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
8239: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
8240: END IF;
8241: EXCEPTION
8234: p_encoded => fnd_api.g_false,
8235: x_data => x_message_list
8236: );
8237: IF g_debug <= gme_debug.g_log_procedure THEN
8238: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
8239: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
8240: END IF;
8241: EXCEPTION
8242: WHEN update_activity_failed THEN
8304: /* Set savepoint here */
8305: SAVEPOINT delete_activity_pub;
8306:
8307: IF (g_debug <> -1) THEN
8308: gme_debug.log_initialize ('CreatePhantom');
8309: END IF;
8310:
8311: IF g_debug <= gme_debug.g_log_procedure THEN
8312: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8307: IF (g_debug <> -1) THEN
8308: gme_debug.log_initialize ('CreatePhantom');
8309: END IF;
8310:
8311: IF g_debug <= gme_debug.g_log_procedure THEN
8312: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8313: || l_api_name);
8314: END IF;
8315:
8308: gme_debug.log_initialize ('CreatePhantom');
8309: END IF;
8310:
8311: IF g_debug <= gme_debug.g_log_procedure THEN
8312: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8313: || l_api_name);
8314: END IF;
8315:
8316: IF (fnd_api.to_boolean (p_init_msg_list))
8361: p_encoded => fnd_api.g_false,
8362: x_data => x_message_list
8363: );
8364:
8365: IF g_debug <= gme_debug.g_log_procedure THEN
8366: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
8367: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
8368: END IF;
8369: EXCEPTION
8362: x_data => x_message_list
8363: );
8364:
8365: IF g_debug <= gme_debug.g_log_procedure THEN
8366: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
8367: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
8368: END IF;
8369: EXCEPTION
8370: WHEN delete_activity_failed THEN
8422: /* Set the savepoint before proceeding */
8423: SAVEPOINT convert_fpo;
8424:
8425: IF (g_debug <> -1) THEN
8426: gme_debug.log_initialize ('ConvertFPO');
8427: END IF;
8428:
8429: IF g_debug <= gme_debug.g_log_procedure THEN
8430: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8425: IF (g_debug <> -1) THEN
8426: gme_debug.log_initialize ('ConvertFPO');
8427: END IF;
8428:
8429: IF g_debug <= gme_debug.g_log_procedure THEN
8430: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8431: || l_api_name);
8432: END IF;
8433:
8426: gme_debug.log_initialize ('ConvertFPO');
8427: END IF;
8428:
8429: IF g_debug <= gme_debug.g_log_procedure THEN
8430: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8431: || l_api_name);
8432: END IF;
8433:
8434: /* Set the return status to success initially */
8467: ELSIF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8468: RAISE fnd_api.g_exc_error;
8469: END IF;
8470:
8471: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
8472: gme_debug.put_line (g_pkg_name ||
8473: '.' ||
8474: l_api_name ||
8475: ' Do setup for org using org_code of '||
8468: RAISE fnd_api.g_exc_error;
8469: END IF;
8470:
8471: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
8472: gme_debug.put_line (g_pkg_name ||
8473: '.' ||
8474: l_api_name ||
8475: ' Do setup for org using org_code of '||
8476: p_org_code ||
8529:
8530: gme_common_pvt.count_and_get (x_count => x_message_count,
8531: p_encoded => FND_API.g_false,
8532: x_data => x_message_list);
8533: IF g_debug <= gme_debug.g_log_procedure THEN
8534: gme_debug.put_line ( 'Completed ' || l_api_name || ' at ' || TO_CHAR
8535: (SYSDATE, 'MM/DD/YYYY HH24:MI:SS'));
8536: END IF;
8537: EXCEPTION
8530: gme_common_pvt.count_and_get (x_count => x_message_count,
8531: p_encoded => FND_API.g_false,
8532: x_data => x_message_list);
8533: IF g_debug <= gme_debug.g_log_procedure THEN
8534: gme_debug.put_line ( 'Completed ' || l_api_name || ' at ' || TO_CHAR
8535: (SYSDATE, 'MM/DD/YYYY HH24:MI:SS'));
8536: END IF;
8537: EXCEPTION
8538: WHEN convert_fpo_failed THEN
8623:
8624: error_create_pp_lot EXCEPTION;
8625: BEGIN
8626: IF (g_debug <> -1) THEN
8627: gme_debug.log_initialize ('CreatePendingProdLot');
8628: END IF;
8629:
8630: IF g_debug <= gme_debug.g_log_procedure THEN
8631: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8626: IF (g_debug <> -1) THEN
8627: gme_debug.log_initialize ('CreatePendingProdLot');
8628: END IF;
8629:
8630: IF g_debug <= gme_debug.g_log_procedure THEN
8631: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8632: || l_api_name);
8633: END IF;
8634:
8627: gme_debug.log_initialize ('CreatePendingProdLot');
8628: END IF;
8629:
8630: IF g_debug <= gme_debug.g_log_procedure THEN
8631: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8632: || l_api_name);
8633: END IF;
8634:
8635: /* Set the return status to success initially */
8669: ,x_message_count => x_message_count
8670: ,x_message_list => x_message_list
8671: ,x_return_status => x_return_status );
8672: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8673: IF (g_debug = gme_debug.g_log_statement) THEN
8674: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
8675: || ': batch mateiral validate error ');
8676: END IF;
8677: RAISE fnd_api.g_exc_error;
8670: ,x_message_list => x_message_list
8671: ,x_return_status => x_return_status );
8672: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8673: IF (g_debug = gme_debug.g_log_statement) THEN
8674: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
8675: || ': batch mateiral validate error ');
8676: END IF;
8677: RAISE fnd_api.g_exc_error;
8678: END IF;
8713: ,p_pending_product_lots_rec => l_pending_product_lots_rec
8714: ,x_pending_product_lots_rec => x_pending_product_lots_rec);
8715:
8716:
8717: IF g_debug <= gme_debug.g_log_statement THEN
8718: gme_debug.put_line
8719: ( g_pkg_name
8720: || '.'
8721: || l_api_name
8714: ,x_pending_product_lots_rec => x_pending_product_lots_rec);
8715:
8716:
8717: IF g_debug <= gme_debug.g_log_statement THEN
8718: gme_debug.put_line
8719: ( g_pkg_name
8720: || '.'
8721: || l_api_name
8722: || ' Return status from gme_api_main.create_pending_product_lot is '
8732: ,p_table => 1
8733: ,p_commit => p_commit
8734: ,x_return_status => x_return_status);
8735:
8736: IF g_debug <= gme_debug.g_log_statement THEN
8737: gme_debug.put_line
8738: ( g_pkg_name
8739: || '.'
8740: || l_api_name
8733: ,p_commit => p_commit
8734: ,x_return_status => x_return_status);
8735:
8736: IF g_debug <= gme_debug.g_log_statement THEN
8737: gme_debug.put_line
8738: ( g_pkg_name
8739: || '.'
8740: || l_api_name
8741: || ' Return status from gme_api_pub.save_batch is '
8745: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8746: RAISE fnd_api.g_exc_error;
8747: END IF;
8748:
8749: IF g_debug <= gme_debug.g_log_procedure THEN
8750: gme_debug.put_line ( ' Completed '
8751: || l_api_name
8752: || ' at '
8753: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
8746: RAISE fnd_api.g_exc_error;
8747: END IF;
8748:
8749: IF g_debug <= gme_debug.g_log_procedure THEN
8750: gme_debug.put_line ( ' Completed '
8751: || l_api_name
8752: || ' at '
8753: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
8754: END IF;
8823:
8824: error_update_pp_lot EXCEPTION;
8825: BEGIN
8826: IF (g_debug <> -1) THEN
8827: gme_debug.log_initialize ('UpdatePendingProdLot');
8828: END IF;
8829:
8830: IF g_debug <= gme_debug.g_log_procedure THEN
8831: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8826: IF (g_debug <> -1) THEN
8827: gme_debug.log_initialize ('UpdatePendingProdLot');
8828: END IF;
8829:
8830: IF g_debug <= gme_debug.g_log_procedure THEN
8831: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8832: || l_api_name);
8833: END IF;
8834:
8827: gme_debug.log_initialize ('UpdatePendingProdLot');
8828: END IF;
8829:
8830: IF g_debug <= gme_debug.g_log_procedure THEN
8831: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8832: || l_api_name);
8833: END IF;
8834:
8835: /* Set the return status to success initially */
8870: ,x_message_count => x_message_count
8871: ,x_message_list => x_message_list
8872: ,x_return_status => x_return_status );
8873: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8874: IF (g_debug = gme_debug.g_log_statement) THEN
8875: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
8876: || ': batch mateiral validate error ');
8877: END IF;
8878: RAISE fnd_api.g_exc_error;
8871: ,x_message_list => x_message_list
8872: ,x_return_status => x_return_status );
8873: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8874: IF (g_debug = gme_debug.g_log_statement) THEN
8875: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
8876: || ': batch mateiral validate error ');
8877: END IF;
8878: RAISE fnd_api.g_exc_error;
8879: END IF;
8898: ,x_message_count => x_message_count
8899: ,x_message_list => x_message_list
8900: ,x_return_status => x_return_status );
8901: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8902: IF (g_debug = gme_debug.g_log_statement) THEN
8903: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
8904: || ': batch mateiral validate error ');
8905: END IF;
8906: RAISE fnd_api.g_exc_error;
8899: ,x_message_list => x_message_list
8900: ,x_return_status => x_return_status );
8901: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8902: IF (g_debug = gme_debug.g_log_statement) THEN
8903: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
8904: || ': batch mateiral validate error ');
8905: END IF;
8906: RAISE fnd_api.g_exc_error;
8907: END IF;
8939: ,p_pending_product_lots_rec => l_pending_product_lots_rec
8940: ,x_pending_product_lots_rec => x_pending_product_lots_rec);
8941:
8942:
8943: IF g_debug <= gme_debug.g_log_statement THEN
8944: gme_debug.put_line
8945: ( g_pkg_name
8946: || '.'
8947: || l_api_name
8940: ,x_pending_product_lots_rec => x_pending_product_lots_rec);
8941:
8942:
8943: IF g_debug <= gme_debug.g_log_statement THEN
8944: gme_debug.put_line
8945: ( g_pkg_name
8946: || '.'
8947: || l_api_name
8948: || ' Return status from gme_api_main.update_pending_product_lot is '
8953: RAISE error_update_pp_lot;
8954: END IF;
8955:
8956: /* Invoke save_batch */
8957: IF g_debug <= gme_debug.g_log_statement THEN
8958: gme_debug.put_line
8959: ( g_pkg_name
8960: || '.'
8961: || l_api_name
8954: END IF;
8955:
8956: /* Invoke save_batch */
8957: IF g_debug <= gme_debug.g_log_statement THEN
8958: gme_debug.put_line
8959: ( g_pkg_name
8960: || '.'
8961: || l_api_name
8962: || ' About to invoke save_batch with header_id of '
8968: ,p_table => 1
8969: ,p_commit => p_commit
8970: ,x_return_status => x_return_status);
8971:
8972: IF g_debug <= gme_debug.g_log_statement THEN
8973: gme_debug.put_line
8974: ( g_pkg_name
8975: || '.'
8976: || l_api_name
8969: ,p_commit => p_commit
8970: ,x_return_status => x_return_status);
8971:
8972: IF g_debug <= gme_debug.g_log_statement THEN
8973: gme_debug.put_line
8974: ( g_pkg_name
8975: || '.'
8976: || l_api_name
8977: || ' Return status from gme_api_pub.save_batch is '
8981: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8982: RAISE fnd_api.g_exc_error;
8983: END IF;
8984:
8985: IF g_debug <= gme_debug.g_log_procedure THEN
8986: gme_debug.put_line ( ' Completed '
8987: || l_api_name
8988: || ' at '
8989: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
8982: RAISE fnd_api.g_exc_error;
8983: END IF;
8984:
8985: IF g_debug <= gme_debug.g_log_procedure THEN
8986: gme_debug.put_line ( ' Completed '
8987: || l_api_name
8988: || ' at '
8989: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
8990: END IF;
9066: error_delete_pp_lot EXCEPTION;
9067:
9068: BEGIN
9069: IF (g_debug <> -1) THEN
9070: gme_debug.log_initialize ('DeletePendingProdLot');
9071: END IF;
9072:
9073: IF g_debug <= gme_debug.g_log_procedure THEN
9074: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9069: IF (g_debug <> -1) THEN
9070: gme_debug.log_initialize ('DeletePendingProdLot');
9071: END IF;
9072:
9073: IF g_debug <= gme_debug.g_log_procedure THEN
9074: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9075: || l_api_name);
9076: END IF;
9077:
9070: gme_debug.log_initialize ('DeletePendingProdLot');
9071: END IF;
9072:
9073: IF g_debug <= gme_debug.g_log_procedure THEN
9074: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9075: || l_api_name);
9076: END IF;
9077:
9078: /* Set the return status to success initially */
9113: ,x_message_count => x_message_count
9114: ,x_message_list => x_message_list
9115: ,x_return_status => x_return_status );
9116: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9117: IF (g_debug = gme_debug.g_log_statement) THEN
9118: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9119: || ': batch mateiral validate error ');
9120: END IF;
9121: RAISE fnd_api.g_exc_error;
9114: ,x_message_list => x_message_list
9115: ,x_return_status => x_return_status );
9116: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9117: IF (g_debug = gme_debug.g_log_statement) THEN
9118: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9119: || ': batch mateiral validate error ');
9120: END IF;
9121: RAISE fnd_api.g_exc_error;
9122: END IF;
9140: ,x_message_count => x_message_count
9141: ,x_message_list => x_message_list
9142: ,x_return_status => x_return_status );
9143: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9144: IF (g_debug = gme_debug.g_log_statement) THEN
9145: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9146: || ': batch mateiral validate error ');
9147: END IF;
9148: RAISE fnd_api.g_exc_error;
9141: ,x_message_list => x_message_list
9142: ,x_return_status => x_return_status );
9143: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9144: IF (g_debug = gme_debug.g_log_statement) THEN
9145: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9146: || ': batch mateiral validate error ');
9147: END IF;
9148: RAISE fnd_api.g_exc_error;
9149: END IF;
9179: ,p_org_id => l_batch_header_rec.organization_id
9180: ,p_pending_product_lots_rec => l_pending_product_lots_rec);
9181:
9182:
9183: IF g_debug <= gme_debug.g_log_statement THEN
9184: gme_debug.put_line
9185: ( g_pkg_name
9186: || '.'
9187: || l_api_name
9180: ,p_pending_product_lots_rec => l_pending_product_lots_rec);
9181:
9182:
9183: IF g_debug <= gme_debug.g_log_statement THEN
9184: gme_debug.put_line
9185: ( g_pkg_name
9186: || '.'
9187: || l_api_name
9188: || ' Return status from gme_api_main.delete_pending_product_lot is '
9193: RAISE error_delete_pp_lot;
9194: END IF;
9195:
9196: /* Invoke save_batch */
9197: IF g_debug <= gme_debug.g_log_statement THEN
9198: gme_debug.put_line
9199: ( g_pkg_name
9200: || '.'
9201: || l_api_name
9194: END IF;
9195:
9196: /* Invoke save_batch */
9197: IF g_debug <= gme_debug.g_log_statement THEN
9198: gme_debug.put_line
9199: ( g_pkg_name
9200: || '.'
9201: || l_api_name
9202: || ' About to invoke save_batch with header_id of '
9208: ,p_table => 1
9209: ,p_commit => p_commit
9210: ,x_return_status => x_return_status);
9211:
9212: IF g_debug <= gme_debug.g_log_statement THEN
9213: gme_debug.put_line
9214: ( g_pkg_name
9215: || '.'
9216: || l_api_name
9209: ,p_commit => p_commit
9210: ,x_return_status => x_return_status);
9211:
9212: IF g_debug <= gme_debug.g_log_statement THEN
9213: gme_debug.put_line
9214: ( g_pkg_name
9215: || '.'
9216: || l_api_name
9217: || ' Return status from gme_api_pub.save_batch is '
9221: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9222: RAISE fnd_api.g_exc_error;
9223: END IF;
9224:
9225: IF g_debug <= gme_debug.g_log_procedure THEN
9226: gme_debug.put_line ( ' Completed '
9227: || l_api_name
9228: || ' at '
9229: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
9222: RAISE fnd_api.g_exc_error;
9223: END IF;
9224:
9225: IF g_debug <= gme_debug.g_log_procedure THEN
9226: gme_debug.put_line ( ' Completed '
9227: || l_api_name
9228: || ' at '
9229: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
9230: END IF;
9291:
9292: error_unrelease_batch EXCEPTION;
9293: BEGIN
9294: IF (g_debug <> -1) THEN
9295: gme_debug.log_initialize ('UnreleaseBatch');
9296: END IF;
9297:
9298: IF g_debug <= gme_debug.g_log_procedure THEN
9299: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9294: IF (g_debug <> -1) THEN
9295: gme_debug.log_initialize ('UnreleaseBatch');
9296: END IF;
9297:
9298: IF g_debug <= gme_debug.g_log_procedure THEN
9299: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9300: || l_api_name);
9301: END IF;
9302:
9295: gme_debug.log_initialize ('UnreleaseBatch');
9296: END IF;
9297:
9298: IF g_debug <= gme_debug.g_log_procedure THEN
9299: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9300: || l_api_name);
9301: END IF;
9302:
9303: /* Set the return status to success initially */
9329: ,x_message_list => x_message_list
9330: ,x_return_status => x_return_status );
9331:
9332: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9333: IF (g_debug = gme_debug.g_log_statement) THEN
9334: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9335: || ': batch validate error ');
9336: END IF;
9337: RAISE fnd_api.g_exc_error;
9330: ,x_return_status => x_return_status );
9331:
9332: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9333: IF (g_debug = gme_debug.g_log_statement) THEN
9334: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9335: || ': batch validate error ');
9336: END IF;
9337: RAISE fnd_api.g_exc_error;
9338: END IF;
9359: ,p_batch_header_rec => l_batch_header_rec
9360: ,x_batch_header_rec => x_batch_header_rec
9361: ,p_create_resv_pend_lots => p_create_resv_pend_lots);
9362:
9363: IF g_debug <= gme_debug.g_log_statement THEN
9364: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
9365: ' Return status from main.unrelease_batch is '|| x_return_status);
9366: END IF;
9367:
9360: ,x_batch_header_rec => x_batch_header_rec
9361: ,p_create_resv_pend_lots => p_create_resv_pend_lots);
9362:
9363: IF g_debug <= gme_debug.g_log_statement THEN
9364: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
9365: ' Return status from main.unrelease_batch is '|| x_return_status);
9366: END IF;
9367:
9368: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9375: ,p_table => 1
9376: ,p_commit => p_commit
9377: ,x_return_status => x_return_status);
9378:
9379: IF g_debug <= gme_debug.g_log_statement THEN
9380: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
9381: ' Return status from gme_api_pub.save_batch is '
9382: || x_return_status);
9383: END IF;
9376: ,p_commit => p_commit
9377: ,x_return_status => x_return_status);
9378:
9379: IF g_debug <= gme_debug.g_log_statement THEN
9380: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
9381: ' Return status from gme_api_pub.save_batch is '
9382: || x_return_status);
9383: END IF;
9384:
9385: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9386: RAISE fnd_api.g_exc_error;
9387: END IF;
9388:
9389: IF g_debug <= gme_debug.g_log_procedure THEN
9390: gme_debug.put_line ( ' Completed ' || l_api_name || ' at '
9391: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
9392: END IF;
9393:
9386: RAISE fnd_api.g_exc_error;
9387: END IF;
9388:
9389: IF g_debug <= gme_debug.g_log_procedure THEN
9390: gme_debug.put_line ( ' Completed ' || l_api_name || ' at '
9391: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
9392: END IF;
9393:
9394: EXCEPTION
9462:
9463: error_unrelease_step EXCEPTION;
9464: BEGIN
9465: IF (g_debug <> -1) THEN
9466: gme_debug.log_initialize ('UnreleaseStep');
9467: END IF;
9468:
9469: IF g_debug <= gme_debug.g_log_procedure THEN
9470: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9465: IF (g_debug <> -1) THEN
9466: gme_debug.log_initialize ('UnreleaseStep');
9467: END IF;
9468:
9469: IF g_debug <= gme_debug.g_log_procedure THEN
9470: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9471: || l_api_name);
9472: END IF;
9473:
9466: gme_debug.log_initialize ('UnreleaseStep');
9467: END IF;
9468:
9469: IF g_debug <= gme_debug.g_log_procedure THEN
9470: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9471: || l_api_name);
9472: END IF;
9473:
9474: /* Set the return status to success initially */
9500: ,x_message_list => x_message_list
9501: ,x_return_status => x_return_status) ;
9502:
9503: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9504: IF (g_debug = gme_debug.g_log_statement) THEN
9505: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9506: || ': batch step validate error ');
9507: END IF;
9508: RAISE fnd_api.g_exc_error;
9501: ,x_return_status => x_return_status) ;
9502:
9503: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9504: IF (g_debug = gme_debug.g_log_statement) THEN
9505: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9506: || ': batch step validate error ');
9507: END IF;
9508: RAISE fnd_api.g_exc_error;
9509: END IF;
9531: ,p_batch_header_rec => l_batch_header_rec
9532: ,x_batch_step_rec => x_batch_step_rec
9533: ,p_create_resv_pend_lots => p_create_resv_pend_lots);
9534:
9535: IF g_debug <= gme_debug.g_log_statement THEN
9536: gme_debug.put_line
9537: ( g_pkg_name
9538: || '.'
9539: || l_api_name
9532: ,x_batch_step_rec => x_batch_step_rec
9533: ,p_create_resv_pend_lots => p_create_resv_pend_lots);
9534:
9535: IF g_debug <= gme_debug.g_log_statement THEN
9536: gme_debug.put_line
9537: ( g_pkg_name
9538: || '.'
9539: || l_api_name
9540: || ' Return status from gme_api_main.unrelease_step is '
9545: RAISE error_unrelease_step;
9546: END IF;
9547:
9548: /* Invoke save_batch */
9549: IF g_debug <= gme_debug.g_log_statement THEN
9550: gme_debug.put_line
9551: ( g_pkg_name
9552: || '.'
9553: || l_api_name
9546: END IF;
9547:
9548: /* Invoke save_batch */
9549: IF g_debug <= gme_debug.g_log_statement THEN
9550: gme_debug.put_line
9551: ( g_pkg_name
9552: || '.'
9553: || l_api_name
9554: || ' About to invoke save_batch with header_id of '
9560: ,p_table => 1
9561: ,p_commit => p_commit
9562: ,x_return_status => x_return_status);
9563:
9564: IF g_debug <= gme_debug.g_log_statement THEN
9565: gme_debug.put_line
9566: ( g_pkg_name
9567: || '.'
9568: || l_api_name
9561: ,p_commit => p_commit
9562: ,x_return_status => x_return_status);
9563:
9564: IF g_debug <= gme_debug.g_log_statement THEN
9565: gme_debug.put_line
9566: ( g_pkg_name
9567: || '.'
9568: || l_api_name
9569: || ' Return status from gme_api_pub.save_batch is '
9573: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9574: RAISE fnd_api.g_exc_error;
9575: END IF;
9576:
9577: IF g_debug <= gme_debug.g_log_procedure THEN
9578: gme_debug.put_line ( ' Completed '
9579: || l_api_name
9580: || ' at '
9581: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
9574: RAISE fnd_api.g_exc_error;
9575: END IF;
9576:
9577: IF g_debug <= gme_debug.g_log_procedure THEN
9578: gme_debug.put_line ( ' Completed '
9579: || l_api_name
9580: || ' at '
9581: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
9582: END IF;
9652:
9653: error_complete_batch EXCEPTION;
9654: BEGIN
9655: IF (g_debug <> -1) THEN
9656: gme_debug.log_initialize ('CompleteBatch');
9657: END IF;
9658:
9659: IF g_debug <= gme_debug.g_log_procedure THEN
9660: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9655: IF (g_debug <> -1) THEN
9656: gme_debug.log_initialize ('CompleteBatch');
9657: END IF;
9658:
9659: IF g_debug <= gme_debug.g_log_procedure THEN
9660: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9661: || l_api_name);
9662: END IF;
9663:
9656: gme_debug.log_initialize ('CompleteBatch');
9657: END IF;
9658:
9659: IF g_debug <= gme_debug.g_log_procedure THEN
9660: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9661: || l_api_name);
9662: END IF;
9663:
9664: /* Set the return status to success initially */
9690: ,x_message_list => x_message_list
9691: ,x_return_status => x_return_status );
9692:
9693: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9694: IF (g_debug = gme_debug.g_log_statement) THEN
9695: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9696: || ': batch validate error ');
9697: END IF;
9698: RAISE fnd_api.g_exc_error;
9691: ,x_return_status => x_return_status );
9692:
9693: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9694: IF (g_debug = gme_debug.g_log_statement) THEN
9695: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9696: || ': batch validate error ');
9697: END IF;
9698: RAISE fnd_api.g_exc_error;
9699: END IF;
9747: ,x_batch_header_rec => x_batch_header_rec
9748: ,x_exception_material_tbl => l_exception_material_tbl
9749: ,p_ignore_exception => p_ignore_exception); --Bug#5186328
9750:
9751: IF g_debug <= gme_debug.g_log_statement THEN
9752: gme_debug.put_line
9753: ( g_pkg_name
9754: || '.'
9755: || l_api_name
9748: ,x_exception_material_tbl => l_exception_material_tbl
9749: ,p_ignore_exception => p_ignore_exception); --Bug#5186328
9750:
9751: IF g_debug <= gme_debug.g_log_statement THEN
9752: gme_debug.put_line
9753: ( g_pkg_name
9754: || '.'
9755: || l_api_name
9756: || ' Return status from gme_api_main.complete_batch is '
9767: RAISE error_complete_batch;
9768: END IF;
9769:
9770: /* Invoke save_batch */
9771: IF g_debug <= gme_debug.g_log_statement THEN
9772: gme_debug.put_line
9773: ( g_pkg_name
9774: || '.'
9775: || l_api_name
9768: END IF;
9769:
9770: /* Invoke save_batch */
9771: IF g_debug <= gme_debug.g_log_statement THEN
9772: gme_debug.put_line
9773: ( g_pkg_name
9774: || '.'
9775: || l_api_name
9776: || ' About to invoke save_batch with header_id of '
9782: ,p_table => 1
9783: ,p_commit => p_commit
9784: ,x_return_status => x_return_status);
9785:
9786: IF g_debug <= gme_debug.g_log_statement THEN
9787: gme_debug.put_line
9788: ( g_pkg_name
9789: || '.'
9790: || l_api_name
9783: ,p_commit => p_commit
9784: ,x_return_status => x_return_status);
9785:
9786: IF g_debug <= gme_debug.g_log_statement THEN
9787: gme_debug.put_line
9788: ( g_pkg_name
9789: || '.'
9790: || l_api_name
9791: || ' Return status from gme_api_pub.save_batch is '
9795: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9796: RAISE fnd_api.g_exc_error;
9797: END IF;
9798:
9799: IF g_debug <= gme_debug.g_log_procedure THEN
9800: gme_debug.put_line ( ' Completed '
9801: || l_api_name
9802: || ' at '
9803: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
9796: RAISE fnd_api.g_exc_error;
9797: END IF;
9798:
9799: IF g_debug <= gme_debug.g_log_procedure THEN
9800: gme_debug.put_line ( ' Completed '
9801: || l_api_name
9802: || ' at '
9803: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
9804: END IF;
9882:
9883: error_complete_step EXCEPTION;
9884: BEGIN
9885: IF (g_debug <> -1) THEN
9886: gme_debug.log_initialize ('CompleteStep');
9887: END IF;
9888:
9889: IF g_debug <= gme_debug.g_log_procedure THEN
9890: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9885: IF (g_debug <> -1) THEN
9886: gme_debug.log_initialize ('CompleteStep');
9887: END IF;
9888:
9889: IF g_debug <= gme_debug.g_log_procedure THEN
9890: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9891: || l_api_name);
9892: END IF;
9893:
9886: gme_debug.log_initialize ('CompleteStep');
9887: END IF;
9888:
9889: IF g_debug <= gme_debug.g_log_procedure THEN
9890: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9891: || l_api_name);
9892: END IF;
9893:
9894: /* Set the return status to success initially */
9920: ,x_message_list => x_message_list
9921: ,x_return_status => x_return_status) ;
9922:
9923: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9924: IF (g_debug = gme_debug.g_log_statement) THEN
9925: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9926: || ': batch step validate error ');
9927: END IF;
9928: RAISE fnd_api.g_exc_error;
9921: ,x_return_status => x_return_status) ;
9922:
9923: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9924: IF (g_debug = gme_debug.g_log_statement) THEN
9925: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9926: || ': batch step validate error ');
9927: END IF;
9928: RAISE fnd_api.g_exc_error;
9929: END IF;
10016: ,x_batch_step_rec => x_batch_step_rec
10017: ,x_exception_material_tbl => l_exception_material_tbl
10018: ,p_ignore_exception => p_ignore_exception); --Bug#5186328
10019:
10020: IF g_debug <= gme_debug.g_log_statement THEN
10021: gme_debug.put_line
10022: ( g_pkg_name
10023: || '.'
10024: || l_api_name
10017: ,x_exception_material_tbl => l_exception_material_tbl
10018: ,p_ignore_exception => p_ignore_exception); --Bug#5186328
10019:
10020: IF g_debug <= gme_debug.g_log_statement THEN
10021: gme_debug.put_line
10022: ( g_pkg_name
10023: || '.'
10024: || l_api_name
10025: || ' Return status from gme_api_main.complete_step is '
10044: ,p_table => 1
10045: ,p_commit => p_commit
10046: ,x_return_status => x_return_status);
10047:
10048: IF g_debug <= gme_debug.g_log_statement THEN
10049: gme_debug.put_line
10050: ( g_pkg_name
10051: || '.'
10052: || l_api_name
10045: ,p_commit => p_commit
10046: ,x_return_status => x_return_status);
10047:
10048: IF g_debug <= gme_debug.g_log_statement THEN
10049: gme_debug.put_line
10050: ( g_pkg_name
10051: || '.'
10052: || l_api_name
10053: || ' Return status from gme_api_pub.save_batch is '
10057: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10058: RAISE fnd_api.g_exc_error;
10059: END IF;
10060:
10061: IF g_debug <= gme_debug.g_log_procedure THEN
10062: gme_debug.put_line ( ' Completed '
10063: || l_api_name
10064: || ' at '
10065: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
10058: RAISE fnd_api.g_exc_error;
10059: END IF;
10060:
10061: IF g_debug <= gme_debug.g_log_procedure THEN
10062: gme_debug.put_line ( ' Completed '
10063: || l_api_name
10064: || ' at '
10065: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
10066: END IF;
10134:
10135: error_release_batch EXCEPTION;
10136: BEGIN
10137: IF (g_debug <> -1) THEN
10138: gme_debug.log_initialize ('ReleaseBatch');
10139: END IF;
10140:
10141: IF g_debug <= gme_debug.g_log_procedure THEN
10142: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10137: IF (g_debug <> -1) THEN
10138: gme_debug.log_initialize ('ReleaseBatch');
10139: END IF;
10140:
10141: IF g_debug <= gme_debug.g_log_procedure THEN
10142: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10143: || l_api_name);
10144: END IF;
10145:
10138: gme_debug.log_initialize ('ReleaseBatch');
10139: END IF;
10140:
10141: IF g_debug <= gme_debug.g_log_procedure THEN
10142: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10143: || l_api_name);
10144: END IF;
10145:
10146: /* Set the return status to success initially */
10170: ,x_message_list => x_message_list
10171: ,x_return_status => x_return_status );
10172:
10173: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10174: IF (g_debug = gme_debug.g_log_statement) THEN
10175: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
10176: || ': batch validate error ');
10177: END IF;
10178: RAISE fnd_api.g_exc_error;
10171: ,x_return_status => x_return_status );
10172:
10173: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10174: IF (g_debug = gme_debug.g_log_statement) THEN
10175: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
10176: || ': batch validate error ');
10177: END IF;
10178: RAISE fnd_api.g_exc_error;
10179: END IF;
10200: -- reset flex global
10201: gme_common_pvt.g_flex_validate_prof := 0;
10202:
10203: gme_common_pvt.g_move_to_temp := fnd_api.g_false;
10204: IF g_debug <= gme_debug.g_log_statement THEN
10205: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
10206: || 'batch_id '||l_batch_header_rec.batch_id);
10207: END IF;
10208: /* Invoke main */
10201: gme_common_pvt.g_flex_validate_prof := 0;
10202:
10203: gme_common_pvt.g_move_to_temp := fnd_api.g_false;
10204: IF g_debug <= gme_debug.g_log_statement THEN
10205: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
10206: || 'batch_id '||l_batch_header_rec.batch_id);
10207: END IF;
10208: /* Invoke main */
10209: gme_api_main.release_batch
10216: ,p_ignore_exception => p_ignore_exception --Bug#5186328
10217: ,x_batch_header_rec => x_batch_header_rec
10218: ,x_exception_material_tbl => l_exception_material_tbl);
10219:
10220: IF g_debug <= gme_debug.g_log_statement THEN
10221: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
10222: ' Return status from gme_api_main.release_batch is '
10223: || x_return_status);
10224: END IF;
10217: ,x_batch_header_rec => x_batch_header_rec
10218: ,x_exception_material_tbl => l_exception_material_tbl);
10219:
10220: IF g_debug <= gme_debug.g_log_statement THEN
10221: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
10222: ' Return status from gme_api_main.release_batch is '
10223: || x_return_status);
10224: END IF;
10225:
10233: RAISE error_release_batch;
10234: END IF;
10235:
10236: /* Invoke save_batch */
10237: IF g_debug <= gme_debug.g_log_statement THEN
10238: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' About to
10239: invoke save_batch with header_id of ' || gme_common_pvt.g_transaction_header_id);
10240: END IF;
10241:
10234: END IF;
10235:
10236: /* Invoke save_batch */
10237: IF g_debug <= gme_debug.g_log_statement THEN
10238: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' About to
10239: invoke save_batch with header_id of ' || gme_common_pvt.g_transaction_header_id);
10240: END IF;
10241:
10242: gme_api_pub.save_batch
10244: ,p_table => 1
10245: ,p_commit => p_commit
10246: ,x_return_status => x_return_status);
10247:
10248: IF g_debug <= gme_debug.g_log_statement THEN
10249: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
10250: ' Return status from gme_api_pub.save_batch is ' || x_return_status);
10251: END IF;
10252:
10245: ,p_commit => p_commit
10246: ,x_return_status => x_return_status);
10247:
10248: IF g_debug <= gme_debug.g_log_statement THEN
10249: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
10250: ' Return status from gme_api_pub.save_batch is ' || x_return_status);
10251: END IF;
10252:
10253: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10253: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10254: RAISE fnd_api.g_exc_error;
10255: END IF;
10256:
10257: IF g_debug <= gme_debug.g_log_procedure THEN
10258: gme_debug.put_line ( ' Completed ' || l_api_name || ' at '
10259: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
10260: END IF;
10261: EXCEPTION
10254: RAISE fnd_api.g_exc_error;
10255: END IF;
10256:
10257: IF g_debug <= gme_debug.g_log_procedure THEN
10258: gme_debug.put_line ( ' Completed ' || l_api_name || ' at '
10259: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
10260: END IF;
10261: EXCEPTION
10262: WHEN error_release_batch THEN
10334:
10335: error_release_step EXCEPTION;
10336: BEGIN
10337: IF (g_debug <> -1) THEN
10338: gme_debug.log_initialize ('ReleaseStep');
10339: END IF;
10340:
10341: IF g_debug <= gme_debug.g_log_procedure THEN
10342: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10337: IF (g_debug <> -1) THEN
10338: gme_debug.log_initialize ('ReleaseStep');
10339: END IF;
10340:
10341: IF g_debug <= gme_debug.g_log_procedure THEN
10342: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10343: || l_api_name);
10344: END IF;
10345:
10338: gme_debug.log_initialize ('ReleaseStep');
10339: END IF;
10340:
10341: IF g_debug <= gme_debug.g_log_procedure THEN
10342: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10343: || l_api_name);
10344: END IF;
10345:
10346: /* Set the return status to success initially */
10371: ,x_message_list => x_message_list
10372: ,x_return_status => x_return_status );
10373:
10374: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10375: IF (g_debug = gme_debug.g_log_statement) THEN
10376: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
10377: || ': batch step validate error ');
10378: END IF;
10379: RAISE fnd_api.g_exc_error;
10372: ,x_return_status => x_return_status );
10373:
10374: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10375: IF (g_debug = gme_debug.g_log_statement) THEN
10376: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
10377: || ': batch step validate error ');
10378: END IF;
10379: RAISE fnd_api.g_exc_error;
10380: END IF;
10452: ,p_ignore_exception => p_ignore_exception --Bug#5186328
10453: ,x_batch_step_rec => x_batch_step_rec
10454: ,x_exception_material_tbl => l_exception_material_tbl);
10455:
10456: IF g_debug <= gme_debug.g_log_statement THEN
10457: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' Return
10458: status from gme_api_main.release_step is ' || x_return_status);
10459: END IF;
10460:
10453: ,x_batch_step_rec => x_batch_step_rec
10454: ,x_exception_material_tbl => l_exception_material_tbl);
10455:
10456: IF g_debug <= gme_debug.g_log_statement THEN
10457: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' Return
10458: status from gme_api_main.release_step is ' || x_return_status);
10459: END IF;
10460:
10461: -- reset flex global
10471: RAISE error_release_step;
10472: END IF;
10473:
10474: /* Invoke save_batch */
10475: IF g_debug <= gme_debug.g_log_statement THEN
10476: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' About to
10477: invoke save_batch with header_id of ' || gme_common_pvt.g_transaction_header_id);
10478: END IF;
10479:
10472: END IF;
10473:
10474: /* Invoke save_batch */
10475: IF g_debug <= gme_debug.g_log_statement THEN
10476: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' About to
10477: invoke save_batch with header_id of ' || gme_common_pvt.g_transaction_header_id);
10478: END IF;
10479:
10480: gme_api_pub.save_batch
10482: ,p_table => 1
10483: ,p_commit => p_commit
10484: ,x_return_status => x_return_status);
10485:
10486: IF g_debug <= gme_debug.g_log_statement THEN
10487: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' Return
10488: status from gme_api_pub.save_batch is ' || x_return_status);
10489: END IF;
10490:
10483: ,p_commit => p_commit
10484: ,x_return_status => x_return_status);
10485:
10486: IF g_debug <= gme_debug.g_log_statement THEN
10487: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' Return
10488: status from gme_api_pub.save_batch is ' || x_return_status);
10489: END IF;
10490:
10491: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10491: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10492: RAISE fnd_api.g_exc_error;
10493: END IF;
10494:
10495: IF g_debug <= gme_debug.g_log_procedure THEN
10496: gme_debug.put_line ( ' Completed ' || l_api_name || ' at '
10497: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
10498: END IF;
10499:
10492: RAISE fnd_api.g_exc_error;
10493: END IF;
10494:
10495: IF g_debug <= gme_debug.g_log_procedure THEN
10496: gme_debug.put_line ( ' Completed ' || l_api_name || ' at '
10497: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
10498: END IF;
10499:
10500: EXCEPTION
10602: and organization_id = l_org_id;
10603:
10604: BEGIN
10605: IF (g_debug <> -1) THEN
10606: gme_debug.log_initialize ('ProcessGroup');
10607: END IF;
10608:
10609: IF g_debug <= gme_debug.g_log_procedure THEN
10610: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10605: IF (g_debug <> -1) THEN
10606: gme_debug.log_initialize ('ProcessGroup');
10607: END IF;
10608:
10609: IF g_debug <= gme_debug.g_log_procedure THEN
10610: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10611: || l_api_name);
10612: END IF;
10613:
10606: gme_debug.log_initialize ('ProcessGroup');
10607: END IF;
10608:
10609: IF g_debug <= gme_debug.g_log_procedure THEN
10610: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10611: || l_api_name);
10612: END IF;
10613:
10614: /* Set the return status to success initially */