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
41: ================================================================================*/
42: PROCEDURE reset_txn_header_id IS
43: l_api_name CONSTANT VARCHAR2 (30) := 'reset_txn_header_id';
44: BEGIN
45: IF g_debug <= gme_debug.g_log_procedure THEN
46: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
47: || l_api_name);
48: END IF;
49: gme_common_pvt.reset_txn_header_id;
42: PROCEDURE reset_txn_header_id IS
43: l_api_name CONSTANT VARCHAR2 (30) := 'reset_txn_header_id';
44: BEGIN
45: IF g_debug <= gme_debug.g_log_procedure THEN
46: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
47: || l_api_name);
48: END IF;
49: gme_common_pvt.reset_txn_header_id;
50:
74: SELECT DISTINCT doc_id batch_id
75: FROM gme_resource_txns_gtmp
76: ORDER BY batch_id;
77: BEGIN
78: IF g_debug <= gme_debug.g_log_procedure THEN
79: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
80: || l_api_name);
81: END IF;
82:
75: FROM gme_resource_txns_gtmp
76: ORDER BY batch_id;
77: BEGIN
78: IF g_debug <= gme_debug.g_log_procedure THEN
79: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
80: || l_api_name);
81: END IF;
82:
83: IF g_debug <= gme_debug.g_log_statement THEN
79: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
80: || l_api_name);
81: END IF;
82:
83: IF g_debug <= gme_debug.g_log_statement THEN
84: gme_debug.put_line ('p_header_id = ' || p_header_id);
85: gme_debug.put_line ('p_table = ' || p_table);
86: END IF;
87:
80: || l_api_name);
81: END IF;
82:
83: IF g_debug <= gme_debug.g_log_statement THEN
84: gme_debug.put_line ('p_header_id = ' || p_header_id);
85: gme_debug.put_line ('p_table = ' || p_table);
86: END IF;
87:
88: x_return_status := fnd_api.g_ret_sts_success;
81: END IF;
82:
83: IF g_debug <= gme_debug.g_log_statement THEN
84: gme_debug.put_line ('p_header_id = ' || p_header_id);
85: gme_debug.put_line ('p_table = ' || p_table);
86: END IF;
87:
88: x_return_status := fnd_api.g_ret_sts_success;
89:
141: ,x_trans_count => l_trans_count
142: ,p_clear_qty_cache => p_clear_qty_cache);
143:
144: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
145: IF g_debug <= gme_debug.g_log_statement THEN
146: gme_debug.put_line( g_pkg_name
147: || '.'
148: || l_api_name
149: || ':'
142: ,p_clear_qty_cache => p_clear_qty_cache);
143:
144: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
145: IF g_debug <= gme_debug.g_log_statement THEN
146: gme_debug.put_line( g_pkg_name
147: || '.'
148: || l_api_name
149: || ':'
150: || 'Return status from process_transactions '
158: IF p_commit = fnd_api.g_true THEN
159: COMMIT;
160: END IF;
161:
162: IF g_debug <= gme_debug.g_log_procedure THEN
163: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
164: END IF;
165: EXCEPTION
166: WHEN error_save_batch THEN
159: COMMIT;
160: END IF;
161:
162: IF g_debug <= gme_debug.g_log_procedure THEN
163: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
164: END IF;
165: EXCEPTION
166: WHEN error_save_batch THEN
167: gme_common_pvt.count_and_get (x_count => l_msg_count
243: FROM mtl_units_of_measure
244: WHERE uom_code = v_uom_code);
245: BEGIN
246: IF (g_debug <> -1) THEN
247: gme_debug.log_initialize ('CreateBatch');
248: END IF;
249:
250: IF g_debug <= gme_debug.g_log_procedure THEN
251: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
246: IF (g_debug <> -1) THEN
247: gme_debug.log_initialize ('CreateBatch');
248: END IF;
249:
250: IF g_debug <= gme_debug.g_log_procedure THEN
251: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
252: || l_api_name);
253: END IF;
254:
247: gme_debug.log_initialize ('CreateBatch');
248: END IF;
249:
250: IF g_debug <= gme_debug.g_log_procedure THEN
251: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
252: || l_api_name);
253: END IF;
254:
255: /* Set the return status to success initially */
346: END IF;
347: END IF;
348: END IF;
349:
350: IF g_debug <= gme_debug.g_log_statement THEN
351: gme_debug.put_line ('Finished parameter validation');
352: END IF;
353:
354: gme_common_pvt.g_error_count := 0;
347: END IF;
348: END IF;
349:
350: IF g_debug <= gme_debug.g_log_statement THEN
351: gme_debug.put_line ('Finished parameter validation');
352: END IF;
353:
354: gme_common_pvt.g_error_count := 0;
355: gme_common_pvt.g_setup_done :=
361: ELSE
362: l_batch_header.organization_id := gme_common_pvt.g_organization_id;
363: END IF;
364:
365: IF g_debug <= gme_debug.g_log_statement THEN
366: gme_debug.put_line ('Finished setup');
367: END IF;
368:
369: IF (gme_common_pvt.g_lab_ind = 0 AND l_batch_header.laboratory_ind = 1) THEN
362: l_batch_header.organization_id := gme_common_pvt.g_organization_id;
363: END IF;
364:
365: IF g_debug <= gme_debug.g_log_statement THEN
366: gme_debug.put_line ('Finished setup');
367: END IF;
368:
369: IF (gme_common_pvt.g_lab_ind = 0 AND l_batch_header.laboratory_ind = 1) THEN
370: gme_common_pvt.log_message ('GME_NOT_LAB_ORG');
395: l_object_type := 'P';
396: END IF;
397: END IF;
398:
399: IF g_debug <= gme_debug.g_log_statement THEN
400: gme_debug.put_line ('Finished lab_ind plant_ind setup');
401: END IF;
402:
403: IF NVL (gme_common_pvt.g_validate_plan_dates_ind, 0) = 1 THEN
396: END IF;
397: END IF;
398:
399: IF g_debug <= gme_debug.g_log_statement THEN
400: gme_debug.put_line ('Finished lab_ind plant_ind setup');
401: END IF;
402:
403: IF NVL (gme_common_pvt.g_validate_plan_dates_ind, 0) = 1 THEN
404: l_cmplt_date := NULL;
501: RAISE fnd_api.g_exc_error;
502: END IF;
503: END IF;
504:
505: IF g_debug <= gme_debug.g_log_statement THEN
506: gme_debug.put_line ('Finished validity rule stuff');
507: END IF;
508:
509: IF p_use_workday_cal IS NOT NULL THEN
502: END IF;
503: END IF;
504:
505: IF g_debug <= gme_debug.g_log_statement THEN
506: gme_debug.put_line ('Finished validity rule stuff');
507: END IF;
508:
509: IF p_use_workday_cal IS NOT NULL THEN
510: l_use := p_use_workday_cal;
565: END IF;
566: END IF;
567: END IF;
568:
569: IF g_debug <= gme_debug.g_log_statement THEN
570: gme_debug.put_line ('calling main');
571: END IF;
572:
573: gme_api_main.create_batch
566: END IF;
567: END IF;
568:
569: IF g_debug <= gme_debug.g_log_statement THEN
570: gme_debug.put_line ('calling main');
571: END IF;
572:
573: gme_api_main.create_batch
574: (p_validation_level => p_validation_level
606: gme_common_pvt.count_and_get (x_count => x_message_count
607: ,p_encoded => fnd_api.g_false
608: ,x_data => x_message_list);
609:
610: IF g_debug <= gme_debug.g_log_procedure THEN
611: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
612: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
613: END IF;
614: EXCEPTION
607: ,p_encoded => fnd_api.g_false
608: ,x_data => x_message_list);
609:
610: IF g_debug <= gme_debug.g_log_procedure THEN
611: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
612: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
613: END IF;
614: EXCEPTION
615: WHEN fnd_api.g_exc_error THEN
652: l_batch_header gme_batch_header%ROWTYPE;
653: l_material_detail gme_material_details%ROWTYPE;
654: BEGIN
655: IF (g_debug <> -1) THEN
656: gme_debug.log_initialize ('CreatePhantom');
657: END IF;
658:
659: IF g_debug <= gme_debug.g_log_procedure THEN
660: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
655: IF (g_debug <> -1) THEN
656: gme_debug.log_initialize ('CreatePhantom');
657: END IF;
658:
659: IF g_debug <= gme_debug.g_log_procedure THEN
660: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
661: || l_api_name);
662: END IF;
663:
656: gme_debug.log_initialize ('CreatePhantom');
657: END IF;
658:
659: IF g_debug <= gme_debug.g_log_procedure THEN
660: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
661: || l_api_name);
662: END IF;
663:
664: x_return_status := fnd_api.g_ret_sts_success;
734: IF (p_commit = fnd_api.g_true) THEN
735: COMMIT;
736: END IF;
737:
738: IF g_debug <= gme_debug.g_log_procedure THEN
739: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
740: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
741: END IF;
742: EXCEPTION
735: COMMIT;
736: END IF;
737:
738: IF g_debug <= gme_debug.g_log_procedure THEN
739: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
740: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
741: END IF;
742: EXCEPTION
743: WHEN phantom_creation_failure THEN
789: l_return_status VARCHAR2(1);
790:
791: BEGIN
792: IF (g_debug <> -1) THEN
793: gme_debug.log_initialize ('ScaleBatch');
794: END IF;
795:
796: IF g_debug <= gme_debug.g_log_procedure THEN
797: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
792: IF (g_debug <> -1) THEN
793: gme_debug.log_initialize ('ScaleBatch');
794: END IF;
795:
796: IF g_debug <= gme_debug.g_log_procedure THEN
797: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
798: || l_api_name);
799: END IF;
800:
793: gme_debug.log_initialize ('ScaleBatch');
794: END IF;
795:
796: IF g_debug <= gme_debug.g_log_procedure THEN
797: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
798: || l_api_name);
799: END IF;
800:
801: /* Set the return status to success initially */
826: ,x_message_list => x_message_list
827: ,x_return_status => x_return_status );
828:
829: IF x_return_status <> fnd_api.g_ret_sts_success THEN
830: IF (g_debug = gme_debug.g_log_statement) THEN
831: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
832: || ': batch validate error ');
833: END IF;
834: RAISE fnd_api.g_exc_error;
827: ,x_return_status => x_return_status );
828:
829: IF x_return_status <> fnd_api.g_ret_sts_success THEN
830: IF (g_debug = gme_debug.g_log_statement) THEN
831: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
832: || ': batch validate error ');
833: END IF;
834: RAISE fnd_api.g_exc_error;
835: END IF;
905: gme_common_pvt.count_and_get (x_count => x_message_count
906: ,p_encoded => fnd_api.g_false
907: ,x_data => x_message_list);
908:
909: IF g_debug <= gme_debug.g_log_procedure THEN
910: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
911: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
912: END IF;
913: EXCEPTION
906: ,p_encoded => fnd_api.g_false
907: ,x_data => x_message_list);
908:
909: IF g_debug <= gme_debug.g_log_procedure THEN
910: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
911: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
912: END IF;
913: EXCEPTION
914: WHEN scale_batch_failed THEN
952: l_batch_header_rec gme_batch_header%ROWTYPE;
953: l_return_status VARCHAR2(1);
954: BEGIN
955: IF (g_debug <> -1) THEN
956: gme_debug.log_initialize ('TheoreticalYieldBatch');
957: END IF;
958:
959: IF g_debug <= gme_debug.g_log_procedure THEN
960: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
955: IF (g_debug <> -1) THEN
956: gme_debug.log_initialize ('TheoreticalYieldBatch');
957: END IF;
958:
959: IF g_debug <= gme_debug.g_log_procedure THEN
960: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
961: || l_api_name);
962: END IF;
963:
956: gme_debug.log_initialize ('TheoreticalYieldBatch');
957: END IF;
958:
959: IF g_debug <= gme_debug.g_log_procedure THEN
960: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
961: || l_api_name);
962: END IF;
963:
964: /* Set the return status to success initially */
989: ,x_message_list => x_message_list
990: ,x_return_status => x_return_status );
991:
992: IF x_return_status <> fnd_api.g_ret_sts_success THEN
993: IF (g_debug = gme_debug.g_log_statement) THEN
994: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
995: || ': batch validate error ');
996: END IF;
997: RAISE fnd_api.g_exc_error;
990: ,x_return_status => x_return_status );
991:
992: IF x_return_status <> fnd_api.g_ret_sts_success THEN
993: IF (g_debug = gme_debug.g_log_statement) THEN
994: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
995: || ': batch validate error ');
996: END IF;
997: RAISE fnd_api.g_exc_error;
998: END IF;
1023: RAISE theoretical_yield_failed;
1024: END IF;
1025: --Bug#5459105 End
1026:
1027: IF g_debug <= gme_debug.g_log_procedure THEN
1028: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
1029: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1030: END IF;
1031: EXCEPTION
1024: END IF;
1025: --Bug#5459105 End
1026:
1027: IF g_debug <= gme_debug.g_log_procedure THEN
1028: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
1029: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1030: END IF;
1031: EXCEPTION
1032: WHEN fnd_api.g_exc_error THEN
1098: BEGIN
1099: /* Set the savepoint */
1100: SAVEPOINT update_actual_rsrc_usage;
1101: IF g_debug <> -1 THEN
1102: gme_debug.log_initialize ('UpdateResource');
1103: END IF;
1104: /* Set the return status to success initially */
1105: x_return_status := fnd_api.g_ret_sts_success;
1106: /* Initialize message list and count if needed */
1141: gme_common_pvt.g_flex_validate_prof := 0;
1142: END IF;
1143: gme_common_pvt.set_timestamp;
1144:
1145: IF g_debug <= gme_debug.g_log_procedure THEN
1146: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1147: ||'BEFORE CALLING gme_resource_engine_pvt.update_actual_resource_usagep ' );
1148: END IF;
1149:
1142: END IF;
1143: gme_common_pvt.set_timestamp;
1144:
1145: IF g_debug <= gme_debug.g_log_procedure THEN
1146: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1147: ||'BEFORE CALLING gme_resource_engine_pvt.update_actual_resource_usagep ' );
1148: END IF;
1149:
1150: gme_resource_engine_pvt.update_actual_resource_usage
1200: FETCH cur_get_trans_id INTO x_rsrc_txn_rec;
1201: CLOSE cur_get_trans_id;
1202: END IF;
1203:
1204: IF g_debug <= gme_debug.g_log_procedure THEN
1205: gme_debug.put_line ( 'Actual rsrc usage at '
1206: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1207: END IF;
1208:
1201: CLOSE cur_get_trans_id;
1202: END IF;
1203:
1204: IF g_debug <= gme_debug.g_log_procedure THEN
1205: gme_debug.put_line ( 'Actual rsrc usage at '
1206: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1207: END IF;
1208:
1209: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
1264: /* Set the savepoint */
1265: SAVEPOINT insert_incr_actual_rsrc_txn;
1266:
1267: IF g_debug <> -1 THEN
1268: gme_debug.log_initialize ('InsertIncr');
1269: END IF;
1270: /* Set the return status to success initially */
1271: x_return_status := fnd_api.g_ret_sts_success;
1272: /* Initialize message list and count if needed */
1306: ELSE
1307: gme_common_pvt.g_flex_validate_prof := 0;
1308: END IF;
1309: gme_common_pvt.set_timestamp;
1310: IF g_debug <= gme_debug.g_log_procedure THEN
1311: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1312: ||'BEFORE CALLING gme_resource_engine_pvt.insert_incr_actual_rsrc_txnp ' );
1313: END IF;
1314: gme_resource_engine_pvt.insert_incr_actual_rsrc_txn
1307: gme_common_pvt.g_flex_validate_prof := 0;
1308: END IF;
1309: gme_common_pvt.set_timestamp;
1310: IF g_debug <= gme_debug.g_log_procedure THEN
1311: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1312: ||'BEFORE CALLING gme_resource_engine_pvt.insert_incr_actual_rsrc_txnp ' );
1313: END IF;
1314: gme_resource_engine_pvt.insert_incr_actual_rsrc_txn
1315: (p_org_code => p_org_code
1342: ELSE
1343: RAISE fnd_api.g_exc_error;
1344: END IF;
1345:
1346: IF g_debug <= gme_debug.g_log_procedure THEN
1347: gme_debug.put_line ( 'Insert Incr Actual rsrc usage at '
1348: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1349: END IF;
1350:
1343: RAISE fnd_api.g_exc_error;
1344: END IF;
1345:
1346: IF g_debug <= gme_debug.g_log_procedure THEN
1347: gme_debug.put_line ( 'Insert Incr Actual rsrc usage at '
1348: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1349: END IF;
1350:
1351: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
1405: SAVEPOINT insert_timed_actual_rsrc_txn;
1406: /* Set the return status to success initially */
1407: x_return_status := fnd_api.g_ret_sts_success;
1408: IF g_debug <> -1 THEN
1409: gme_debug.log_initialize ('InsertTimed');
1410: END IF;
1411:
1412: /* Initialize message list and count if needed */
1413: IF p_init_msg_list = fnd_api.g_true THEN
1447: ELSE
1448: gme_common_pvt.g_flex_validate_prof := 0;
1449: END IF;
1450:
1451: IF g_debug <= gme_debug.g_log_procedure THEN
1452: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1453: ||'BEFORE CALLING gme_resource_engine_pvt.insert_timed_actual_rsrc_txnp ');
1454: END IF;
1455:
1448: gme_common_pvt.g_flex_validate_prof := 0;
1449: END IF;
1450:
1451: IF g_debug <= gme_debug.g_log_procedure THEN
1452: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1453: ||'BEFORE CALLING gme_resource_engine_pvt.insert_timed_actual_rsrc_txnp ');
1454: END IF;
1455:
1456: gme_resource_engine_pvt.insert_timed_actual_rsrc_txn
1484: ELSE
1485: RAISE fnd_api.g_exc_error;
1486: END IF;
1487:
1488: IF g_debug <= gme_debug.g_log_procedure THEN
1489: gme_debug.put_line ( 'Insert timed Actual rsrc usage at '
1490: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1491: END IF;
1492:
1485: RAISE fnd_api.g_exc_error;
1486: END IF;
1487:
1488: IF g_debug <= gme_debug.g_log_procedure THEN
1489: gme_debug.put_line ( 'Insert timed Actual rsrc usage at '
1490: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1491: END IF;
1492:
1493: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
1553: SAVEPOINT start_cmplt_actual_rsrc_txn;
1554: /* Set the return status to success initially */
1555: x_return_status := fnd_api.g_ret_sts_success;
1556: IF g_debug <> -1 THEN
1557: gme_debug.log_initialize ('StartCmplt');
1558: END IF;
1559:
1560: /* Initialize message list and count if needed */
1561: IF p_init_msg_list = fnd_api.g_true THEN
1589: ELSE
1590: gme_common_pvt.g_flex_validate_prof := 0;
1591: END IF;
1592:
1593: IF g_debug <= gme_debug.g_log_procedure THEN
1594: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1595: ||'BEFORE CALLING gme_resource_engine_pvt.start_cmplt_actual_rsrc_txnp ' );
1596: END IF;
1597:
1590: gme_common_pvt.g_flex_validate_prof := 0;
1591: END IF;
1592:
1593: IF g_debug <= gme_debug.g_log_procedure THEN
1594: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1595: ||'BEFORE CALLING gme_resource_engine_pvt.start_cmplt_actual_rsrc_txnp ' );
1596: END IF;
1597:
1598: gme_resource_engine_pvt.start_cmplt_actual_rsrc_txn
1627: ELSE
1628: RAISE fnd_api.g_exc_error;
1629: END IF;
1630:
1631: IF g_debug <= gme_debug.g_log_procedure THEN
1632: gme_debug.put_line ( 'start Actual rsrc txn at '
1633: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1634: END IF;
1635:
1628: RAISE fnd_api.g_exc_error;
1629: END IF;
1630:
1631: IF g_debug <= gme_debug.g_log_procedure THEN
1632: gme_debug.put_line ( 'start Actual rsrc txn at '
1633: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1634: END IF;
1635:
1636: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
1684: /* Set the savepoint */
1685: SAVEPOINT end_cmplt_actual_rsrc_txn;
1686:
1687: IF g_debug <> -1 THEN
1688: gme_debug.log_initialize ('EndCmplt');
1689: END IF;
1690:
1691: /* Initialize message list and count if needed */
1692: IF p_init_msg_list = fnd_api.g_true THEN
1726: ELSE
1727: gme_common_pvt.g_flex_validate_prof := 0;
1728: END IF;
1729:
1730: IF g_debug <= gme_debug.g_log_procedure THEN
1731: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1732: ||'CALLING gme_resource_engine_pvt.end_cmplt_actual_rsrc_txnp ');
1733: END IF;
1734:
1727: gme_common_pvt.g_flex_validate_prof := 0;
1728: END IF;
1729:
1730: IF g_debug <= gme_debug.g_log_procedure THEN
1731: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1732: ||'CALLING gme_resource_engine_pvt.end_cmplt_actual_rsrc_txnp ');
1733: END IF;
1734:
1735: gme_resource_engine_pvt.end_cmplt_actual_rsrc_txn
1759: ELSE
1760: RAISE fnd_api.g_exc_error;
1761: END IF;
1762:
1763: IF g_debug <= gme_debug.g_log_procedure THEN
1764: gme_debug.put_line ( 'Insert Incr Actual rsrc usage at '
1765: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1766: END IF;
1767:
1760: RAISE fnd_api.g_exc_error;
1761: END IF;
1762:
1763: IF g_debug <= gme_debug.g_log_procedure THEN
1764: gme_debug.put_line ( 'Insert Incr Actual rsrc usage at '
1765: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
1766: END IF;
1767:
1768: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
1806: l_use VARCHAR2 (1);
1807: l_batch_header_rec gme_batch_header%ROWTYPE;
1808: BEGIN
1809: IF g_debug <> -1 THEN
1810: gme_debug.log_initialize ('RescheduleBatch');
1811: END IF;
1812:
1813: IF (g_debug IN (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1814: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1809: IF g_debug <> -1 THEN
1810: gme_debug.log_initialize ('RescheduleBatch');
1811: END IF;
1812:
1813: IF (g_debug IN (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1814: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1815: || 'Entering');
1816: END IF;
1817:
1810: gme_debug.log_initialize ('RescheduleBatch');
1811: END IF;
1812:
1813: IF (g_debug IN (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
1814: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
1815: || 'Entering');
1816: END IF;
1817:
1818: /* Set the return status to success initially */
1834: ,x_message_list => x_message_list
1835: ,x_return_status => x_return_status );
1836:
1837: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1838: IF (g_debug = gme_debug.g_log_statement) THEN
1839: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
1840: || ': batch validate error ');
1841: END IF;
1842: RAISE fnd_api.g_exc_error;
1835: ,x_return_status => x_return_status );
1836:
1837: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1838: IF (g_debug = gme_debug.g_log_statement) THEN
1839: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
1840: || ': batch validate error ');
1841: END IF;
1842: RAISE fnd_api.g_exc_error;
1843: END IF;
1852: END IF;
1853:
1854: -- Bug 8218955 - Note: l_batch_header_rec is the record stored in the database not what was passed in.
1855: -- Reworked debug logging messages so we can see all the values.
1856: IF g_debug <= gme_debug.g_log_procedure THEN
1857: gme_debug.put_line ('Batch_status is: '|| l_batch_header_rec.batch_status);
1858:
1859: gme_debug.put_line ('Value of Plan_start_date in DB : ' ||
1860: TO_CHAR(l_batch_header_rec.plan_start_date ,'DD-MON-YYYY HH24:MI:SS'));
1853:
1854: -- Bug 8218955 - Note: l_batch_header_rec is the record stored in the database not what was passed in.
1855: -- Reworked debug logging messages so we can see all the values.
1856: IF g_debug <= gme_debug.g_log_procedure THEN
1857: gme_debug.put_line ('Batch_status is: '|| l_batch_header_rec.batch_status);
1858:
1859: gme_debug.put_line ('Value of Plan_start_date in DB : ' ||
1860: TO_CHAR(l_batch_header_rec.plan_start_date ,'DD-MON-YYYY HH24:MI:SS'));
1861:
1855: -- Reworked debug logging messages so we can see all the values.
1856: IF g_debug <= gme_debug.g_log_procedure THEN
1857: gme_debug.put_line ('Batch_status is: '|| l_batch_header_rec.batch_status);
1858:
1859: gme_debug.put_line ('Value of Plan_start_date in DB : ' ||
1860: TO_CHAR(l_batch_header_rec.plan_start_date ,'DD-MON-YYYY HH24:MI:SS'));
1861:
1862: IF p_batch_header_rec.plan_start_date IS NOT NULL THEN
1863: gme_debug.put_line ('Value of Plan_start_date passed in: ' ||
1859: gme_debug.put_line ('Value of Plan_start_date in DB : ' ||
1860: TO_CHAR(l_batch_header_rec.plan_start_date ,'DD-MON-YYYY HH24:MI:SS'));
1861:
1862: IF p_batch_header_rec.plan_start_date IS NOT NULL THEN
1863: gme_debug.put_line ('Value of Plan_start_date passed in: ' ||
1864: TO_CHAR(p_batch_header_rec.plan_start_date ,'DD-MON-YYYY HH24:MI:SS'));
1865: ELSE
1866: gme_debug.put_line ('Value of Plan_start_date passed in is NULL');
1867: END IF;
1862: IF p_batch_header_rec.plan_start_date IS NOT NULL THEN
1863: gme_debug.put_line ('Value of Plan_start_date passed in: ' ||
1864: TO_CHAR(p_batch_header_rec.plan_start_date ,'DD-MON-YYYY HH24:MI:SS'));
1865: ELSE
1866: gme_debug.put_line ('Value of Plan_start_date passed in is NULL');
1867: END IF;
1868:
1869: gme_debug.put_line ('Value of Plan_cmplt_date in DB : ' ||
1870: TO_CHAR (l_batch_header_rec.plan_cmplt_date,'DD-MON-YYYY HH24:MI:SS'));
1865: ELSE
1866: gme_debug.put_line ('Value of Plan_start_date passed in is NULL');
1867: END IF;
1868:
1869: gme_debug.put_line ('Value of Plan_cmplt_date in DB : ' ||
1870: TO_CHAR (l_batch_header_rec.plan_cmplt_date,'DD-MON-YYYY HH24:MI:SS'));
1871:
1872: IF p_batch_header_rec.plan_cmplt_date IS NOT NULL THEN
1873: gme_debug.put_line ('Value of Plan_cmplt_date in passed in: ' ||
1869: gme_debug.put_line ('Value of Plan_cmplt_date in DB : ' ||
1870: TO_CHAR (l_batch_header_rec.plan_cmplt_date,'DD-MON-YYYY HH24:MI:SS'));
1871:
1872: IF p_batch_header_rec.plan_cmplt_date IS NOT NULL THEN
1873: gme_debug.put_line ('Value of Plan_cmplt_date in passed in: ' ||
1874: TO_CHAR (p_batch_header_rec.plan_cmplt_date,'DD-MON-YYYY HH24:MI:SS'));
1875: ELSE
1876: gme_debug.put_line ('Value of Plan_cmplt_date passed in is NULL');
1877: END IF;
1872: IF p_batch_header_rec.plan_cmplt_date IS NOT NULL THEN
1873: gme_debug.put_line ('Value of Plan_cmplt_date in passed in: ' ||
1874: TO_CHAR (p_batch_header_rec.plan_cmplt_date,'DD-MON-YYYY HH24:MI:SS'));
1875: ELSE
1876: gme_debug.put_line ('Value of Plan_cmplt_date passed in is NULL');
1877: END IF;
1878: END IF;
1879:
1880: -- Bug 8218955 - Change l_batch_header_rec to p_batch_header_rec so we can validate what was passed in.
2008: END IF; /* p_batch_header_rec.plan_cmplt_date IS NULL */
2009: END IF; /* (gme_common_pvt.g_calendar_code IS NOT NULL) */
2010: END IF; /* l_use = FND_API.G_TRUE */
2011:
2012: IF (g_debug = gme_debug.g_log_statement) THEN
2013: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':'
2014: || 'Calling Main Reschedule Batch');
2015: END IF;
2016:
2009: END IF; /* (gme_common_pvt.g_calendar_code IS NOT NULL) */
2010: END IF; /* l_use = FND_API.G_TRUE */
2011:
2012: IF (g_debug = gme_debug.g_log_statement) THEN
2013: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':'
2014: || 'Calling Main Reschedule Batch');
2015: END IF;
2016:
2017: -- 8218955 - Use the dates passed in by the user.
2028: ,x_message_list => x_message_list
2029: ,x_return_status => x_return_status
2030: ,x_batch_header_rec => x_batch_header_rec);
2031:
2032: IF (g_debug = gme_debug.g_log_statement) THEN
2033: gme_debug.put_line
2034: ( 'Came back from Main Reschedule Batch with status '
2035: || x_return_status);
2036: END IF;
2029: ,x_return_status => x_return_status
2030: ,x_batch_header_rec => x_batch_header_rec);
2031:
2032: IF (g_debug = gme_debug.g_log_statement) THEN
2033: gme_debug.put_line
2034: ( 'Came back from Main Reschedule Batch with status '
2035: || x_return_status);
2036: END IF;
2037:
2051: END IF;
2052: END IF;
2053: END IF;
2054:
2055: IF g_debug <= gme_debug.g_log_procedure THEN
2056: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':' ||
2057: 'Exiting with ' || x_return_status || ' at '
2058: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2059: END IF;
2052: END IF;
2053: END IF;
2054:
2055: IF g_debug <= gme_debug.g_log_procedure THEN
2056: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':' ||
2057: 'Exiting with ' || x_return_status || ' at '
2058: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2059: END IF;
2060: EXCEPTION
2110: l_reschedule_preceding VARCHAR2 (1);
2111: l_reschedule_succeeding VARCHAR2 (1);
2112: BEGIN
2113: IF g_debug <> -1 THEN
2114: gme_debug.log_initialize ('RescheduleStep');
2115: END IF;
2116:
2117: IF (g_debug IN
2118: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
2114: gme_debug.log_initialize ('RescheduleStep');
2115: END IF;
2116:
2117: IF (g_debug IN
2118: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
2119: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2120: || 'Entering');
2121: END IF;
2122:
2115: END IF;
2116:
2117: IF (g_debug IN
2118: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
2119: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2120: || 'Entering');
2121: END IF;
2122:
2123: /* Set the return status to success initially */
2142: ,x_message_list => x_message_list
2143: ,x_return_status => x_return_status) ;
2144:
2145: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2146: IF (g_debug = gme_debug.g_log_statement) THEN
2147: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
2148: || ': batch step validate error ');
2149: END IF;
2150: RAISE fnd_api.g_exc_error;
2143: ,x_return_status => x_return_status) ;
2144:
2145: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2146: IF (g_debug = gme_debug.g_log_statement) THEN
2147: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
2148: || ': batch step validate error ');
2149: END IF;
2150: RAISE fnd_api.g_exc_error;
2151: END IF;
2289: IF l_batch_step_rec.step_status IN
2290: (gme_common_pvt.g_step_pending
2291: ,gme_common_pvt.g_step_wip)
2292: AND l_batch_step_rec.plan_cmplt_date IS NOT NULL THEN
2293: gme_debug.put_line ('in cmplt');
2294:
2295: IF NOT gmp_calendar_api.is_working_daytime
2296: (1.0
2297: ,FALSE
2327: END IF; /* l_batch_step_rec.plan_cmplt_date IS NULL */
2328: END IF; /* (gme_common_pvt.g_calendar_code IS NOT NULL) */
2329: END IF; /* l_use = FND_API.G_TRUE */
2330:
2331: IF (g_debug = gme_debug.g_log_statement) THEN
2332: gme_debug.put_line ( g_pkg_name
2333: || '.'
2334: || l_api_name
2335: || ':'
2328: END IF; /* (gme_common_pvt.g_calendar_code IS NOT NULL) */
2329: END IF; /* l_use = FND_API.G_TRUE */
2330:
2331: IF (g_debug = gme_debug.g_log_statement) THEN
2332: gme_debug.put_line ( g_pkg_name
2333: || '.'
2334: || l_api_name
2335: || ':'
2336: || 'Calling Main Reschedule Step');
2349: ,x_message_list => x_message_list
2350: ,x_return_status => x_return_status
2351: ,x_batch_step_rec => x_batch_step_rec);
2352:
2353: IF (g_debug = gme_debug.g_log_statement) THEN
2354: gme_debug.put_line
2355: ( 'Came back from Main Reschedule Step with status '
2356: || x_return_status);
2357: END IF;
2350: ,x_return_status => x_return_status
2351: ,x_batch_step_rec => x_batch_step_rec);
2352:
2353: IF (g_debug = gme_debug.g_log_statement) THEN
2354: gme_debug.put_line
2355: ( 'Came back from Main Reschedule Step with status '
2356: || x_return_status);
2357: END IF;
2358:
2372: END IF;
2373: END IF;
2374: END IF;
2375:
2376: IF g_debug <= gme_debug.g_log_procedure THEN
2377: gme_debug.put_line ( g_pkg_name
2378: || '.'
2379: || l_api_name
2380: || ':'
2373: END IF;
2374: END IF;
2375:
2376: IF g_debug <= gme_debug.g_log_procedure THEN
2377: gme_debug.put_line ( g_pkg_name
2378: || '.'
2379: || l_api_name
2380: || ':'
2381: || 'Exiting with '
2420: IS
2421: l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_BATCH_RESERVATIONS';
2422: l_batch_header_rec gme_batch_header%ROWTYPE;
2423: BEGIN
2424: IF g_debug <= gme_debug.g_log_procedure THEN
2425: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2426: || l_api_name);
2427: END IF;
2428:
2421: l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_BATCH_RESERVATIONS';
2422: l_batch_header_rec gme_batch_header%ROWTYPE;
2423: BEGIN
2424: IF g_debug <= gme_debug.g_log_procedure THEN
2425: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2426: || l_api_name);
2427: END IF;
2428:
2429: /* Set the savepoint */
2431: /* Set the return status to success initially */
2432: x_return_status := fnd_api.g_ret_sts_success;
2433:
2434: IF g_debug <> -1 THEN
2435: gme_debug.log_initialize ('CreateBatchReservations');
2436: END IF;
2437:
2438: /* Make sure we are call compatible */
2439: IF NOT fnd_api.compatible_api_call (2.0
2464: ,x_message_list => x_message_list
2465: ,x_return_status => x_return_status );
2466:
2467: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2468: IF (g_debug = gme_debug.g_log_statement) THEN
2469: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
2470: || ': batch validate error ');
2471: END IF;
2472: RAISE fnd_api.g_exc_error;
2465: ,x_return_status => x_return_status );
2466:
2467: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2468: IF (g_debug = gme_debug.g_log_statement) THEN
2469: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
2470: || ': batch validate error ');
2471: END IF;
2472: RAISE fnd_api.g_exc_error;
2473: END IF;
2487: ,x_message_count => x_message_count
2488: ,x_message_list => x_message_list
2489: ,x_return_status => x_return_status);
2490:
2491: IF (g_debug = gme_debug.g_log_statement) THEN
2492: gme_debug.put_line ( 'create batch reservations returns '
2493: || x_return_status);
2494: END IF;
2495:
2488: ,x_message_list => x_message_list
2489: ,x_return_status => x_return_status);
2490:
2491: IF (g_debug = gme_debug.g_log_statement) THEN
2492: gme_debug.put_line ( 'create batch reservations returns '
2493: || x_return_status);
2494: END IF;
2495:
2496: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2500: IF p_commit = fnd_api.g_true THEN
2501: COMMIT;
2502: END IF;
2503:
2504: gme_debug.put_line ( 'End of Create_Batch_Reservations at '
2505: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2506: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
2507: EXCEPTION
2508: WHEN fnd_api.g_exc_error THEN
2538: l_material_details_rec gme_material_details%ROWTYPE;
2539: l_material_details_rec_out gme_material_details%ROWTYPE;
2540: l_batch_header_rec gme_batch_header%ROWTYPE;
2541: BEGIN
2542: IF g_debug <= gme_debug.g_log_procedure THEN
2543: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2544: || l_api_name);
2545: END IF;
2546:
2539: l_material_details_rec_out gme_material_details%ROWTYPE;
2540: l_batch_header_rec gme_batch_header%ROWTYPE;
2541: BEGIN
2542: IF g_debug <= gme_debug.g_log_procedure THEN
2543: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2544: || l_api_name);
2545: END IF;
2546:
2547: /* Set the savepoint */
2549: /* Set the return status to success initially */
2550: x_return_status := fnd_api.g_ret_sts_success;
2551:
2552: IF g_debug <> -1 THEN
2553: gme_debug.log_initialize ('CreateLineReservations');
2554: END IF;
2555:
2556: /* Make sure we are call compatible */
2557: IF NOT fnd_api.compatible_api_call (2.0
2584: ,x_message_count => x_message_count
2585: ,x_message_list => x_message_list
2586: ,x_return_status => x_return_status );
2587: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2588: IF (g_debug = gme_debug.g_log_statement) THEN
2589: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
2590: || ': batch mateiral validate error ');
2591: END IF;
2592: RAISE fnd_api.g_exc_error;
2585: ,x_message_list => x_message_list
2586: ,x_return_status => x_return_status );
2587: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2588: IF (g_debug = gme_debug.g_log_statement) THEN
2589: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
2590: || ': batch mateiral validate error ');
2591: END IF;
2592: RAISE fnd_api.g_exc_error;
2593: END IF;
2610: gme_common_pvt.log_message ('GME_INVENTORY_UPDATE_BLOCKED');
2611: RAISE fnd_api.g_exc_error;
2612: END IF;
2613:
2614: -- gme_debug.put_line(l_batch_header_rec.batch_status);
2615:
2616: /* Verify Batch to be in pending or WIP status */
2617: IF l_batch_header_rec.batch_status NOT IN
2618: (gme_common_pvt.g_batch_pending, gme_common_pvt.g_batch_wip) THEN
2632: ,x_message_count => x_message_count
2633: ,x_message_list => x_message_list
2634: ,x_return_status => x_return_status);
2635:
2636: IF (g_debug = gme_debug.g_log_statement) THEN
2637: gme_debug.put_line ( 'create line reservation returns '
2638: || x_return_status);
2639: END IF;
2640:
2633: ,x_message_list => x_message_list
2634: ,x_return_status => x_return_status);
2635:
2636: IF (g_debug = gme_debug.g_log_statement) THEN
2637: gme_debug.put_line ( 'create line reservation returns '
2638: || x_return_status);
2639: END IF;
2640:
2641: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2645: IF p_commit = fnd_api.g_true THEN
2646: COMMIT;
2647: END IF;
2648:
2649: gme_debug.put_line ( 'End of Create_Line_Reservations at '
2650: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2651: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
2652: EXCEPTION
2653: WHEN fnd_api.g_exc_error THEN
2685: insert_parameter_failed EXCEPTION;
2686: l_api_name CONSTANT VARCHAR2 (30) := 'INSERT_PROCESS_PARAMETER';
2687: BEGIN
2688: IF (g_debug IN
2689: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
2690: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2691: || 'Entering');
2692: END IF;
2693:
2686: l_api_name CONSTANT VARCHAR2 (30) := 'INSERT_PROCESS_PARAMETER';
2687: BEGIN
2688: IF (g_debug IN
2689: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
2690: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2691: || 'Entering');
2692: END IF;
2693:
2694: SAVEPOINT insert_process_parameter;
2693:
2694: SAVEPOINT insert_process_parameter;
2695:
2696: IF (g_debug <> -1) THEN
2697: gme_debug.log_initialize ('InsertProcessParameters');
2698: END IF;
2699:
2700: /* Set the return status to success initially */
2701: x_return_status := fnd_api.g_ret_sts_success;
2716: IF NVL(gme_common_pvt.g_bulk_validation_done, 'N') = 'N' THEN
2717: gme_common_pvt.g_setup_done := gme_common_pvt.setup (p_org_code => p_org_code);
2718:
2719: IF NOT gme_common_pvt.g_setup_done THEN
2720: IF (g_debug = gme_debug.g_log_statement) THEN
2721: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ':set up problem ');
2722: END IF;
2723: RAISE fnd_api.g_exc_error;
2724: END IF;
2717: gme_common_pvt.g_setup_done := gme_common_pvt.setup (p_org_code => p_org_code);
2718:
2719: IF NOT gme_common_pvt.g_setup_done THEN
2720: IF (g_debug = gme_debug.g_log_statement) THEN
2721: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ':set up problem ');
2722: END IF;
2723: RAISE fnd_api.g_exc_error;
2724: END IF;
2725: END IF;
2722: END IF;
2723: RAISE fnd_api.g_exc_error;
2724: END IF;
2725: END IF;
2726: IF (g_debug <= gme_debug.g_log_procedure) THEN
2727: gme_debug.put_line ('Calling Insert process parameters');
2728: END IF;
2729:
2730: gme_common_pvt.set_timestamp;
2723: RAISE fnd_api.g_exc_error;
2724: END IF;
2725: END IF;
2726: IF (g_debug <= gme_debug.g_log_procedure) THEN
2727: gme_debug.put_line ('Calling Insert process parameters');
2728: END IF;
2729:
2730: gme_common_pvt.set_timestamp;
2731: gme_process_parameters_pvt.insert_process_parameter
2738: ,p_process_param_rec => p_process_param_rec
2739: ,x_process_param_rec => x_process_param_rec
2740: ,x_return_status => x_return_status);
2741:
2742: IF (g_debug = gme_debug.g_log_statement) THEN
2743: gme_debug.put_line
2744: ( 'Came back from Pvt insert process parameter with status '
2745: || x_return_status);
2746: END IF;
2739: ,x_process_param_rec => x_process_param_rec
2740: ,x_return_status => x_return_status);
2741:
2742: IF (g_debug = gme_debug.g_log_statement) THEN
2743: gme_debug.put_line
2744: ( 'Came back from Pvt insert process parameter with status '
2745: || x_return_status);
2746: END IF;
2747:
2753: ELSE
2754: RAISE insert_parameter_failed;
2755: END IF;
2756:
2757: IF g_debug <= gme_debug.g_log_procedure THEN
2758: gme_debug.put_line ( g_pkg_name
2759: || '.'
2760: || l_api_name
2761: || ' : Exiting with '
2754: RAISE insert_parameter_failed;
2755: END IF;
2756:
2757: IF g_debug <= gme_debug.g_log_procedure THEN
2758: gme_debug.put_line ( g_pkg_name
2759: || '.'
2760: || l_api_name
2761: || ' : Exiting with '
2762: || x_return_status
2804: update_parameter_failed EXCEPTION;
2805: l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_PROCESS_PARAMETER';
2806: BEGIN
2807: IF (g_debug IN
2808: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
2809: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2810: || 'Entering');
2811: END IF;
2812:
2805: l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_PROCESS_PARAMETER';
2806: BEGIN
2807: IF (g_debug IN
2808: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
2809: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2810: || 'Entering');
2811: END IF;
2812:
2813: SAVEPOINT update_process_parameter;
2812:
2813: SAVEPOINT update_process_parameter;
2814:
2815: IF (g_debug <> -1) THEN
2816: gme_debug.log_initialize ('UpdateProcessParameter');
2817: END IF;
2818:
2819: /* Initially let us assign the return status to success */
2820: x_return_status := fnd_api.g_ret_sts_success;
2852: ,p_process_param_rec => p_process_param_rec
2853: ,x_process_param_rec => x_process_param_rec
2854: ,x_return_status => x_return_status);
2855:
2856: IF (g_debug = gme_debug.g_log_statement) THEN
2857: gme_debug.put_line
2858: ( 'Came back from Pvt update process parameter with status '
2859: || x_return_status);
2860: END IF;
2853: ,x_process_param_rec => x_process_param_rec
2854: ,x_return_status => x_return_status);
2855:
2856: IF (g_debug = gme_debug.g_log_statement) THEN
2857: gme_debug.put_line
2858: ( 'Came back from Pvt update process parameter with status '
2859: || x_return_status);
2860: END IF;
2861:
2867: ELSE
2868: RAISE update_parameter_failed;
2869: END IF;
2870:
2871: IF g_debug <= gme_debug.g_log_procedure THEN
2872: gme_debug.put_line ( g_pkg_name
2873: || '.'
2874: || l_api_name
2875: || ':'
2868: RAISE update_parameter_failed;
2869: END IF;
2870:
2871: IF g_debug <= gme_debug.g_log_procedure THEN
2872: gme_debug.put_line ( g_pkg_name
2873: || '.'
2874: || l_api_name
2875: || ':'
2876: || 'Exiting with '
2917: delete_parameter_failed EXCEPTION;
2918: l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_PROCESS_PARAMETER';
2919: BEGIN
2920: IF (g_debug IN
2921: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
2922: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2923: || 'Entering');
2924: END IF;
2925:
2918: l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_PROCESS_PARAMETER';
2919: BEGIN
2920: IF (g_debug IN
2921: (gme_debug.g_log_statement, gme_debug.g_log_procedure) ) THEN
2922: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
2923: || 'Entering');
2924: END IF;
2925:
2926: SAVEPOINT delete_process_parameter;
2925:
2926: SAVEPOINT delete_process_parameter;
2927:
2928: IF (g_debug <> -1) THEN
2929: gme_debug.log_initialize ('DeleteProcessParameter');
2930: END IF;
2931:
2932: /* Set the return status to success initially */
2933: x_return_status := fnd_api.g_ret_sts_success;
2955: RAISE fnd_api.g_exc_error;
2956: END IF;
2957: END IF;
2958:
2959: IF (g_debug <= gme_debug.g_log_procedure) THEN
2960: gme_debug.put_line ('Calling Insert process parameters');
2961: END IF;
2962:
2963: gme_common_pvt.set_timestamp;
2956: END IF;
2957: END IF;
2958:
2959: IF (g_debug <= gme_debug.g_log_procedure) THEN
2960: gme_debug.put_line ('Calling Insert process parameters');
2961: END IF;
2962:
2963: gme_common_pvt.set_timestamp;
2964: gme_process_parameters_pvt.delete_process_parameter
2969: ,p_parameter => p_parameter
2970: ,p_process_param_rec => p_process_param_rec
2971: ,x_return_status => x_return_status);
2972:
2973: IF (g_debug = gme_debug.g_log_statement) THEN
2974: gme_debug.put_line
2975: ( 'Came back from Pvt delete process parameter with status '
2976: || x_return_status);
2977: END IF;
2970: ,p_process_param_rec => p_process_param_rec
2971: ,x_return_status => x_return_status);
2972:
2973: IF (g_debug = gme_debug.g_log_statement) THEN
2974: gme_debug.put_line
2975: ( 'Came back from Pvt delete process parameter with status '
2976: || x_return_status);
2977: END IF;
2978:
2984: ELSE
2985: RAISE delete_parameter_failed;
2986: END IF;
2987:
2988: IF g_debug <= gme_debug.g_log_procedure THEN
2989: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':' ||
2990: 'Exiting with ' || x_return_status || ' at '
2991: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2992: END IF;
2985: RAISE delete_parameter_failed;
2986: END IF;
2987:
2988: IF g_debug <= gme_debug.g_log_procedure THEN
2989: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':' ||
2990: 'Exiting with ' || x_return_status || ' at '
2991: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
2992: END IF;
2993: EXCEPTION
3081: END IF;
3082: END IF;
3083: END IF;
3084:
3085: IF g_debug <= gme_debug.g_log_procedure THEN
3086: gme_debug.put_line ( 'Completed ' || l_api_name || ' at ' || TO_CHAR
3087: (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3088: END IF;
3089: EXCEPTION
3082: END IF;
3083: END IF;
3084:
3085: IF g_debug <= gme_debug.g_log_procedure THEN
3086: gme_debug.put_line ( 'Completed ' || l_api_name || ' at ' || TO_CHAR
3087: (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3088: END IF;
3089: EXCEPTION
3090: WHEN fnd_api.g_exc_error THEN
3243: CLOSE get_oprn;
3244:
3245: IF NVL (l_oprn_no, 0) = NVL (p_oprn_no, 0)
3246: AND NVL (l_oprn_vers, 0) = NVL (p_oprn_vers, 0) THEN
3247: IF g_debug <= gme_debug.g_log_procedure THEN
3248: gme_debug.put_line (' oprn_no and oprn_vers are valid');
3249: END IF;
3250: ELSE
3251: IF g_debug <= gme_debug.g_log_procedure THEN
3244:
3245: IF NVL (l_oprn_no, 0) = NVL (p_oprn_no, 0)
3246: AND NVL (l_oprn_vers, 0) = NVL (p_oprn_vers, 0) THEN
3247: IF g_debug <= gme_debug.g_log_procedure THEN
3248: gme_debug.put_line (' oprn_no and oprn_vers are valid');
3249: END IF;
3250: ELSE
3251: IF g_debug <= gme_debug.g_log_procedure THEN
3252: gme_debug.put_line (' oprn_no and oprn_vers are NOT valid');
3247: IF g_debug <= gme_debug.g_log_procedure THEN
3248: gme_debug.put_line (' oprn_no and oprn_vers are valid');
3249: END IF;
3250: ELSE
3251: IF g_debug <= gme_debug.g_log_procedure THEN
3252: gme_debug.put_line (' oprn_no and oprn_vers are NOT valid');
3253: END IF;
3254: -- Bug 8312658 - Move command to raise the error outside of debug if statement.
3255: RAISE insert_step_failed;
3248: gme_debug.put_line (' oprn_no and oprn_vers are valid');
3249: END IF;
3250: ELSE
3251: IF g_debug <= gme_debug.g_log_procedure THEN
3252: gme_debug.put_line (' oprn_no and oprn_vers are NOT valid');
3253: END IF;
3254: -- Bug 8312658 - Move command to raise the error outside of debug if statement.
3255: RAISE insert_step_failed;
3256: END IF;
3266:
3267: CLOSE verify_oprn;
3268:
3269: IF l_verify_oprn IS NULL THEN
3270: IF g_debug <= gme_debug.g_log_procedure THEN
3271: gme_debug.put_line
3272: ('oprn_no and oprn_vers passed in are wrong and hence an error condition ');
3273: END IF;
3274:
3267: CLOSE verify_oprn;
3268:
3269: IF l_verify_oprn IS NULL THEN
3270: IF g_debug <= gme_debug.g_log_procedure THEN
3271: gme_debug.put_line
3272: ('oprn_no and oprn_vers passed in are wrong and hence an error condition ');
3273: END IF;
3274:
3275: RAISE insert_step_failed;
3274:
3275: RAISE insert_step_failed;
3276: END IF;
3277: ELSE
3278: IF g_debug <= gme_debug.g_log_procedure THEN
3279: gme_debug.put_line
3280: (' Both oprn_no and oprn_vers are null hence oprn_no and oprn_vers cannot be validated ');
3281: END IF;
3282:
3275: RAISE insert_step_failed;
3276: END IF;
3277: ELSE
3278: IF g_debug <= gme_debug.g_log_procedure THEN
3279: gme_debug.put_line
3280: (' Both oprn_no and oprn_vers are null hence oprn_no and oprn_vers cannot be validated ');
3281: END IF;
3282:
3283: RAISE insert_step_failed;
3320: gme_common_pvt.count_and_get (x_count => x_message_count
3321: ,p_encoded => fnd_api.g_false
3322: ,x_data => x_message_list);
3323:
3324: IF g_debug <= gme_debug.g_log_procedure THEN
3325: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
3326: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3327: END IF;
3328: EXCEPTION
3321: ,p_encoded => fnd_api.g_false
3322: ,x_data => x_message_list);
3323:
3324: IF g_debug <= gme_debug.g_log_procedure THEN
3325: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
3326: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3327: END IF;
3328: EXCEPTION
3329: WHEN fnd_api.g_exc_error THEN
3408: x_transacted VARCHAR2(30);
3409:
3410: BEGIN
3411: IF (g_debug <> -1) THEN
3412: gme_debug.log_initialize ('INSERT_MATERIAL_LINE');
3413: END IF;
3414:
3415: IF g_debug <= gme_debug.g_log_procedure THEN
3416: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'|| l_api_name);
3411: IF (g_debug <> -1) THEN
3412: gme_debug.log_initialize ('INSERT_MATERIAL_LINE');
3413: END IF;
3414:
3415: IF g_debug <= gme_debug.g_log_procedure THEN
3416: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'|| l_api_name);
3417: END IF;
3418:
3419: /* Set the return status to success initially */
3412: gme_debug.log_initialize ('INSERT_MATERIAL_LINE');
3413: END IF;
3414:
3415: IF g_debug <= gme_debug.g_log_procedure THEN
3416: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'|| l_api_name);
3417: END IF;
3418:
3419: /* Set the return status to success initially */
3420: x_return_status := fnd_api.g_ret_sts_success;
3449: ,x_message_list => x_message_list
3450: ,x_return_status => x_return_status );
3451:
3452: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3453: IF (g_debug = gme_debug.g_log_statement) THEN
3454: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
3455: || ': batch validate error ');
3456: END IF;
3457: RAISE fnd_api.g_exc_error;
3450: ,x_return_status => x_return_status );
3451:
3452: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3453: IF (g_debug = gme_debug.g_log_statement) THEN
3454: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
3455: || ': batch validate error ');
3456: END IF;
3457: RAISE fnd_api.g_exc_error;
3458: END IF;
3556: END IF;
3557: NULL;
3558: END IF;
3559:
3560: IF g_debug <= gme_debug.g_log_procedure THEN
3561: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
3562: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3563: END IF;
3564:
3557: NULL;
3558: END IF;
3559:
3560: IF g_debug <= gme_debug.g_log_procedure THEN
3561: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
3562: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3563: END IF;
3564:
3565: EXCEPTION
3647:
3648: BEGIN
3649:
3650: IF (g_debug <> -1) THEN
3651: gme_debug.log_initialize ('UPADATE_MATERIAL_LINE');
3652: END IF;
3653: IF g_debug <= gme_debug.g_log_procedure THEN
3654: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'|| l_api_name);
3655: END IF;
3649:
3650: IF (g_debug <> -1) THEN
3651: gme_debug.log_initialize ('UPADATE_MATERIAL_LINE');
3652: END IF;
3653: IF g_debug <= gme_debug.g_log_procedure THEN
3654: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'|| l_api_name);
3655: END IF;
3656:
3657: /* Set the return status to success initially */
3650: IF (g_debug <> -1) THEN
3651: gme_debug.log_initialize ('UPADATE_MATERIAL_LINE');
3652: END IF;
3653: IF g_debug <= gme_debug.g_log_procedure THEN
3654: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'|| l_api_name);
3655: END IF;
3656:
3657: /* Set the return status to success initially */
3658: x_return_status := fnd_api.g_ret_sts_success;
3694: ,x_message_count => x_message_count
3695: ,x_message_list => x_message_list
3696: ,x_return_status => x_return_status );
3697: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3698: IF (g_debug = gme_debug.g_log_statement) THEN
3699: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
3700: || ': batch mateiral validate error ');
3701: END IF;
3702: RAISE fnd_api.g_exc_error;
3695: ,x_message_list => x_message_list
3696: ,x_return_status => x_return_status );
3697: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3698: IF (g_debug = gme_debug.g_log_statement) THEN
3699: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
3700: || ': batch mateiral validate error ');
3701: END IF;
3702: RAISE fnd_api.g_exc_error;
3703: END IF;
3808: END IF;
3809: NULL;
3810: END IF;
3811:
3812: IF g_debug <= gme_debug.g_log_procedure THEN
3813: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
3814: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3815: END IF;
3816:
3809: NULL;
3810: END IF;
3811:
3812: IF g_debug <= gme_debug.g_log_procedure THEN
3813: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
3814: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3815: END IF;
3816:
3817: EXCEPTION
3877: x_batch_header_rec gme_batch_header%ROWTYPE;
3878:
3879: BEGIN
3880: IF (g_debug <> -1) THEN
3881: gme_debug.log_initialize ('DELETE_MATERIAL_LINE');
3882: END IF;
3883: IF g_debug <= gme_debug.g_log_procedure THEN
3884: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'|| l_api_name);
3885: END IF;
3879: BEGIN
3880: IF (g_debug <> -1) THEN
3881: gme_debug.log_initialize ('DELETE_MATERIAL_LINE');
3882: END IF;
3883: IF g_debug <= gme_debug.g_log_procedure THEN
3884: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'|| l_api_name);
3885: END IF;
3886:
3887: /* Set the return status to success initially */
3880: IF (g_debug <> -1) THEN
3881: gme_debug.log_initialize ('DELETE_MATERIAL_LINE');
3882: END IF;
3883: IF g_debug <= gme_debug.g_log_procedure THEN
3884: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'|| l_api_name);
3885: END IF;
3886:
3887: /* Set the return status to success initially */
3888: x_return_status := fnd_api.g_ret_sts_success;
3914: ,x_message_count => x_message_count
3915: ,x_message_list => x_message_list
3916: ,x_return_status => x_return_status );
3917: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3918: IF (g_debug = gme_debug.g_log_statement) THEN
3919: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
3920: || ': batch mateiral validate error ');
3921: END IF;
3922: RAISE fnd_api.g_exc_error;
3915: ,x_message_list => x_message_list
3916: ,x_return_status => x_return_status );
3917: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3918: IF (g_debug = gme_debug.g_log_statement) THEN
3919: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
3920: || ': batch mateiral validate error ');
3921: END IF;
3922: RAISE fnd_api.g_exc_error;
3923: END IF;
3963: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3964: RAISE fnd_api.g_exc_error;
3965: END IF;
3966:
3967: IF g_debug <= gme_debug.g_log_procedure THEN
3968: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
3969: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3970: END IF;
3971:
3964: RAISE fnd_api.g_exc_error;
3965: END IF;
3966:
3967: IF g_debug <= gme_debug.g_log_procedure THEN
3968: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
3969: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
3970: END IF;
3971:
3972: EXCEPTION
4040: WHERE batch_id = p_batch_id
4041: AND pair_type = 1);
4042: BEGIN
4043: IF (g_debug <> -1) THEN
4044: gme_debug.log_initialize('RevertBatch');
4045: END IF;
4046: IF g_debug <= gme_debug.g_log_procedure THEN
4047: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4048: END IF;
4042: BEGIN
4043: IF (g_debug <> -1) THEN
4044: gme_debug.log_initialize('RevertBatch');
4045: END IF;
4046: IF g_debug <= gme_debug.g_log_procedure THEN
4047: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4048: END IF;
4049: /* Set the return status to success initially */
4050: x_return_status := FND_API.G_RET_STS_SUCCESS;
4043: IF (g_debug <> -1) THEN
4044: gme_debug.log_initialize('RevertBatch');
4045: END IF;
4046: IF g_debug <= gme_debug.g_log_procedure THEN
4047: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4048: END IF;
4049: /* Set the return status to success initially */
4050: x_return_status := FND_API.G_RET_STS_SUCCESS;
4051:
4071: ,x_message_list => x_message_list
4072: ,x_return_status => x_return_status );
4073:
4074: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4075: IF (g_debug = gme_debug.g_log_statement) THEN
4076: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4077: || ': batch validate error ');
4078: END IF;
4079: RAISE fnd_api.g_exc_error;
4072: ,x_return_status => x_return_status );
4073:
4074: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4075: IF (g_debug = gme_debug.g_log_statement) THEN
4076: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4077: || ': batch validate error ');
4078: END IF;
4079: RAISE fnd_api.g_exc_error;
4080: END IF;
4091: gme_common_pvt.log_message('GME_API_REV_WIP_TERM_ERROR');
4092: RAISE fnd_api.g_exc_error;
4093: END IF;
4094:
4095: IF g_debug <= gme_debug.g_log_statement THEN
4096: gme_debug.put_line('calling main revert');
4097: END IF;
4098: --Bug#5327296
4099: gme_common_pvt.g_move_to_temp := fnd_api.g_false;
4092: RAISE fnd_api.g_exc_error;
4093: END IF;
4094:
4095: IF g_debug <= gme_debug.g_log_statement THEN
4096: gme_debug.put_line('calling main revert');
4097: END IF;
4098: --Bug#5327296
4099: gme_common_pvt.g_move_to_temp := fnd_api.g_false;
4100: /* Bug 6437252 Check for LPN txns */
4123: x_batch_header_rec => x_batch_header_rec
4124: );
4125:
4126:
4127: IF g_debug <= gme_debug.g_log_statement THEN
4128: gme_debug.put_line(g_pkg_name|| '.'|| l_api_name||
4129: ':'||'return_status from main'||x_return_status );
4130: END IF;
4131:
4124: );
4125:
4126:
4127: IF g_debug <= gme_debug.g_log_statement THEN
4128: gme_debug.put_line(g_pkg_name|| '.'|| l_api_name||
4129: ':'||'return_status from main'||x_return_status );
4130: END IF;
4131:
4132: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4134: END IF;
4135:
4136: -- Bug 10002243 - Restructure so that we always call save batch regardless of p_commit value.
4137: /* Invoke save_batch */
4138: IF g_debug <= gme_debug.g_log_statement THEN
4139: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' About to invoke save_batch with batch_id of '
4140: || l_batch_header_rec.batch_id);
4141: END IF;
4142:
4135:
4136: -- Bug 10002243 - Restructure so that we always call save batch regardless of p_commit value.
4137: /* Invoke save_batch */
4138: IF g_debug <= gme_debug.g_log_statement THEN
4139: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' About to invoke save_batch with batch_id of '
4140: || l_batch_header_rec.batch_id);
4141: END IF;
4142:
4143: gme_api_pub.save_batch (p_header_id => NULL,
4144: p_table => gme_common_pvt.g_interface_table,
4145: p_commit => p_commit,
4146: x_return_status => x_return_status);
4147:
4148: IF g_debug <= gme_debug.g_log_statement THEN
4149: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
4150: ' Return status from gme_api_pub.save_batch is ' || x_return_status);
4151: END IF;
4152:
4145: p_commit => p_commit,
4146: x_return_status => x_return_status);
4147:
4148: IF g_debug <= gme_debug.g_log_statement THEN
4149: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
4150: ' Return status from gme_api_pub.save_batch is ' || x_return_status);
4151: END IF;
4152:
4153:
4164: p_encoded => FND_API.g_false,
4165: x_data => x_message_list
4166: );
4167:
4168: IF g_debug <= gme_debug.g_log_procedure THEN
4169: gme_debug.put_line ('Revert Completed '|| l_api_name|| ' at '|| TO_CHAR
4170: (SYSDATE, 'MM/DD/YYYY HH24:MI:SS'));
4171: END IF;
4172:
4165: x_data => x_message_list
4166: );
4167:
4168: IF g_debug <= gme_debug.g_log_procedure THEN
4169: gme_debug.put_line ('Revert Completed '|| l_api_name|| ' at '|| TO_CHAR
4170: (SYSDATE, 'MM/DD/YYYY HH24:MI:SS'));
4171: END IF;
4172:
4173: EXCEPTION
4232:
4233: step_revert_failure EXCEPTION;
4234: BEGIN
4235: IF (g_debug <> -1) THEN
4236: gme_debug.log_initialize('RevertStep');
4237: END IF;
4238:
4239: IF g_debug <= gme_debug.g_log_procedure THEN
4240: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4235: IF (g_debug <> -1) THEN
4236: gme_debug.log_initialize('RevertStep');
4237: END IF;
4238:
4239: IF g_debug <= gme_debug.g_log_procedure THEN
4240: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4241: END IF;
4242:
4243: /* Set the return status to success initially */
4236: gme_debug.log_initialize('RevertStep');
4237: END IF;
4238:
4239: IF g_debug <= gme_debug.g_log_procedure THEN
4240: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4241: END IF;
4242:
4243: /* Set the return status to success initially */
4244: x_return_status := FND_API.G_RET_STS_SUCCESS;
4266: ,x_message_list => x_message_list
4267: ,x_return_status => x_return_status );
4268:
4269: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4270: IF (g_debug = gme_debug.g_log_statement) THEN
4271: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4272: || ': batch step validate error ');
4273: END IF;
4274: RAISE fnd_api.g_exc_error;
4267: ,x_return_status => x_return_status );
4268:
4269: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4270: IF (g_debug = gme_debug.g_log_statement) THEN
4271: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4272: || ': batch step validate error ');
4273: END IF;
4274: RAISE fnd_api.g_exc_error;
4275: END IF;
4296: p_batch_header_rec => l_batch_header_rec,
4297: x_batch_step_rec => x_batch_step_rec
4298: );
4299:
4300: IF g_debug <= gme_debug.g_log_statement THEN
4301: gme_debug.put_line(g_pkg_name|| '.'|| l_api_name|| ':'||'return_status from main'||x_return_status );
4302: END IF;
4303:
4304: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
4297: x_batch_step_rec => x_batch_step_rec
4298: );
4299:
4300: IF g_debug <= gme_debug.g_log_statement THEN
4301: gme_debug.put_line(g_pkg_name|| '.'|| l_api_name|| ':'||'return_status from main'||x_return_status );
4302: END IF;
4303:
4304: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
4305: IF p_commit = FND_API.G_TRUE THEN
4322: p_encoded => FND_API.g_false,
4323: x_data => x_message_list
4324: );
4325:
4326: IF g_debug <= gme_debug.g_log_procedure THEN
4327: gme_debug.put_line ('Completed '|| l_api_name|| ' at '|| TO_CHAR
4328: (SYSDATE, 'MM/DD/YYYY HH24:MI:SS'));
4329: END IF;
4330: EXCEPTION
4323: x_data => x_message_list
4324: );
4325:
4326: IF g_debug <= gme_debug.g_log_procedure THEN
4327: gme_debug.put_line ('Completed '|| l_api_name|| ' at '|| TO_CHAR
4328: (SYSDATE, 'MM/DD/YYYY HH24:MI:SS'));
4329: END IF;
4330: EXCEPTION
4331: WHEN step_revert_failure THEN
4366: l_batch_header_rec gme_batch_header%ROWTYPE;
4367:
4368: batch_close_failure EXCEPTION;
4369: BEGIN
4370: IF g_debug <= gme_debug.g_log_procedure THEN
4371: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4372: || l_api_name);
4373: END IF;
4374:
4367:
4368: batch_close_failure EXCEPTION;
4369: BEGIN
4370: IF g_debug <= gme_debug.g_log_procedure THEN
4371: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4372: || l_api_name);
4373: END IF;
4374:
4375: /* Set the return status to success initially */
4401: ,x_message_list => x_message_list
4402: ,x_return_status => x_return_status );
4403:
4404: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4405: IF (g_debug = gme_debug.g_log_statement) THEN
4406: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4407: || ': batch validate error ');
4408: END IF;
4409: RAISE fnd_api.g_exc_error;
4402: ,x_return_status => x_return_status );
4403:
4404: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4405: IF (g_debug = gme_debug.g_log_statement) THEN
4406: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4407: || ': batch validate error ');
4408: END IF;
4409: RAISE fnd_api.g_exc_error;
4410: END IF;
4430: l_batch_header_rec.batch_close_date :=
4431: p_batch_header_rec.batch_close_date;
4432: END IF;
4433:
4434: IF g_debug <= gme_debug.g_log_procedure THEN
4435: gme_debug.put_line ('Calling gme_api_main.close_batch.');
4436: END IF;
4437:
4438: gme_api_main.close_batch (p_validation_level => p_validation_level
4431: p_batch_header_rec.batch_close_date;
4432: END IF;
4433:
4434: IF g_debug <= gme_debug.g_log_procedure THEN
4435: gme_debug.put_line ('Calling gme_api_main.close_batch.');
4436: END IF;
4437:
4438: gme_api_main.close_batch (p_validation_level => p_validation_level
4439: ,p_init_msg_list => fnd_api.g_false
4442: ,x_return_status => x_return_status
4443: ,p_batch_header_rec => l_batch_header_rec
4444: ,x_batch_header_rec => x_batch_header_rec);
4445:
4446: IF (g_debug = gme_debug.g_log_statement) THEN
4447: gme_debug.put_line('Came back from Main Close Batch with status '
4448: || x_return_status);
4449: END IF;
4450:
4443: ,p_batch_header_rec => l_batch_header_rec
4444: ,x_batch_header_rec => x_batch_header_rec);
4445:
4446: IF (g_debug = gme_debug.g_log_statement) THEN
4447: gme_debug.put_line('Came back from Main Close Batch with status '
4448: || x_return_status);
4449: END IF;
4450:
4451: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4450:
4451: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4452: RAISE batch_close_failure;
4453: ELSE
4454: IF (g_debug = gme_debug.g_log_statement) THEN
4455: gme_debug.put_line ('Calling save_batch.');
4456: END IF;
4457:
4458: gme_api_pub.save_batch (p_header_id => null
4451: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4452: RAISE batch_close_failure;
4453: ELSE
4454: IF (g_debug = gme_debug.g_log_statement) THEN
4455: gme_debug.put_line ('Calling save_batch.');
4456: END IF;
4457:
4458: gme_api_pub.save_batch (p_header_id => null
4459: ,p_table => 1
4459: ,p_table => 1
4460: ,p_commit => fnd_api.g_false
4461: ,x_return_status => x_return_status);
4462:
4463: IF (g_debug = gme_debug.g_log_statement) THEN
4464: gme_debug.put_line ( 'Came back from save_batch with status '
4465: || x_return_status);
4466: END IF;
4467:
4460: ,p_commit => fnd_api.g_false
4461: ,x_return_status => x_return_status);
4462:
4463: IF (g_debug = gme_debug.g_log_statement) THEN
4464: gme_debug.put_line ( 'Came back from save_batch with status '
4465: || x_return_status);
4466: END IF;
4467:
4468: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4473: COMMIT;
4474: END IF;
4475: END IF;
4476:
4477: IF g_debug <= gme_debug.g_log_procedure THEN
4478: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
4479: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4480: END IF;
4481: EXCEPTION
4474: END IF;
4475: END IF;
4476:
4477: IF g_debug <= gme_debug.g_log_procedure THEN
4478: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
4479: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4480: END IF;
4481: EXCEPTION
4482: WHEN batch_close_failure THEN
4522: l_batch_step_rec gme_batch_steps%ROWTYPE;
4523:
4524: step_close_failed EXCEPTION;
4525: BEGIN
4526: IF g_debug <= gme_debug.g_log_procedure THEN
4527: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4528: || l_api_name);
4529: END IF;
4530: /* Set the return status to success initially */
4523:
4524: step_close_failed EXCEPTION;
4525: BEGIN
4526: IF g_debug <= gme_debug.g_log_procedure THEN
4527: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4528: || l_api_name);
4529: END IF;
4530: /* Set the return status to success initially */
4531: x_return_status := fnd_api.g_ret_sts_success;
4559: ,x_message_list => x_message_list
4560: ,x_return_status => x_return_status );
4561:
4562: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4563: IF (g_debug = gme_debug.g_log_statement) THEN
4564: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4565: || ': batch step validate error ');
4566: END IF;
4567: RAISE fnd_api.g_exc_error;
4560: ,x_return_status => x_return_status );
4561:
4562: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4563: IF (g_debug = gme_debug.g_log_statement) THEN
4564: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4565: || ': batch step validate error ');
4566: END IF;
4567: RAISE fnd_api.g_exc_error;
4568: END IF;
4618: END IF;
4619: END IF;
4620: END IF;
4621:
4622: IF g_debug <= gme_debug.g_log_procedure THEN
4623: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
4624: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4625: END IF;
4626: EXCEPTION
4619: END IF;
4620: END IF;
4621:
4622: IF g_debug <= gme_debug.g_log_procedure THEN
4623: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
4624: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4625: END IF;
4626: EXCEPTION
4627: WHEN step_close_failed THEN
4664: l_api_name CONSTANT VARCHAR2 (30) := 'REOPEN_BATCH';
4665: l_batch_header_rec gme_batch_header%ROWTYPE;
4666: batch_reopen_failure EXCEPTION;
4667: BEGIN
4668: IF g_debug <= gme_debug.g_log_procedure THEN
4669: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4670: || l_api_name);
4671: END IF;
4672: /* Set the success staus to success inititally*/
4665: l_batch_header_rec gme_batch_header%ROWTYPE;
4666: batch_reopen_failure EXCEPTION;
4667: BEGIN
4668: IF g_debug <= gme_debug.g_log_procedure THEN
4669: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4670: || l_api_name);
4671: END IF;
4672: /* Set the success staus to success inititally*/
4673: x_return_status := fnd_api.g_ret_sts_success;
4693: ,x_message_list => x_message_list
4694: ,x_return_status => x_return_status );
4695:
4696: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4697: IF (g_debug = gme_debug.g_log_statement) THEN
4698: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4699: || ': batch validate error ');
4700: END IF;
4701: RAISE fnd_api.g_exc_error;
4694: ,x_return_status => x_return_status );
4695:
4696: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4697: IF (g_debug = gme_debug.g_log_statement) THEN
4698: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4699: || ': batch validate error ');
4700: END IF;
4701: RAISE fnd_api.g_exc_error;
4702: END IF;
4726: END IF;
4727: END IF;
4728: END IF;
4729:
4730: IF g_debug <= gme_debug.g_log_procedure THEN
4731: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
4732: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4733: END IF;
4734: EXCEPTION
4727: END IF;
4728: END IF;
4729:
4730: IF g_debug <= gme_debug.g_log_procedure THEN
4731: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
4732: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4733: END IF;
4734: EXCEPTION
4735: WHEN batch_reopen_failure THEN
4770: l_batch_header_rec gme_batch_header%ROWTYPE;
4771: l_batch_step_rec gme_batch_steps%ROWTYPE;
4772: step_reopen_failure EXCEPTION;
4773: BEGIN
4774: IF g_debug <= gme_debug.g_log_procedure THEN
4775: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4776: || l_api_name);
4777: END IF;
4778: /* Initialize message list and count if needed*/
4771: l_batch_step_rec gme_batch_steps%ROWTYPE;
4772: step_reopen_failure EXCEPTION;
4773: BEGIN
4774: IF g_debug <= gme_debug.g_log_procedure THEN
4775: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4776: || l_api_name);
4777: END IF;
4778: /* Initialize message list and count if needed*/
4779: IF p_init_msg_list = fnd_api.g_true THEN
4801: ,x_message_list => x_message_list
4802: ,x_return_status => x_return_status );
4803:
4804: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4805: IF (g_debug = gme_debug.g_log_statement) THEN
4806: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4807: || ': batch step validate error ');
4808: END IF;
4809: RAISE fnd_api.g_exc_error;
4802: ,x_return_status => x_return_status );
4803:
4804: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4805: IF (g_debug = gme_debug.g_log_statement) THEN
4806: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4807: || ': batch step validate error ');
4808: END IF;
4809: RAISE fnd_api.g_exc_error;
4810: END IF;
4832: END IF;
4833: END IF;
4834: END IF;
4835:
4836: IF g_debug <= gme_debug.g_log_procedure THEN
4837: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
4838: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4839: END IF;
4840: EXCEPTION
4833: END IF;
4834: END IF;
4835:
4836: IF g_debug <= gme_debug.g_log_procedure THEN
4837: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
4838: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
4839: END IF;
4840: EXCEPTION
4841: WHEN step_reopen_failure THEN
4884:
4885: error_incr_backflush EXCEPTION;
4886: BEGIN
4887: IF (g_debug <> -1) THEN
4888: gme_debug.log_initialize ('IncrementalBackflush');
4889: END IF;
4890:
4891: IF g_debug <= gme_debug.g_log_procedure THEN
4892: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4887: IF (g_debug <> -1) THEN
4888: gme_debug.log_initialize ('IncrementalBackflush');
4889: END IF;
4890:
4891: IF g_debug <= gme_debug.g_log_procedure THEN
4892: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4893: || l_api_name);
4894: END IF;
4895:
4888: gme_debug.log_initialize ('IncrementalBackflush');
4889: END IF;
4890:
4891: IF g_debug <= gme_debug.g_log_procedure THEN
4892: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
4893: || l_api_name);
4894: END IF;
4895:
4896: /* Set the return status to success initially */
4918: ,x_message_count => x_message_count
4919: ,x_message_list => x_message_list
4920: ,x_return_status => x_return_status );
4921: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4922: IF (g_debug = gme_debug.g_log_statement) THEN
4923: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4924: || ': batch mateiral validate error ');
4925: END IF;
4926: RAISE fnd_api.g_exc_error;
4919: ,x_message_list => x_message_list
4920: ,x_return_status => x_return_status );
4921: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4922: IF (g_debug = gme_debug.g_log_statement) THEN
4923: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
4924: || ': batch mateiral validate error ');
4925: END IF;
4926: RAISE fnd_api.g_exc_error;
4927: END IF;
5003: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5004: RAISE fnd_api.g_exc_error;
5005: END IF;
5006:
5007: IF g_debug <= gme_debug.g_log_procedure THEN
5008: gme_debug.put_line ( ' Completed '
5009: || l_api_name
5010: || ' at '
5011: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
5004: RAISE fnd_api.g_exc_error;
5005: END IF;
5006:
5007: IF g_debug <= gme_debug.g_log_procedure THEN
5008: gme_debug.put_line ( ' Completed '
5009: || l_api_name
5010: || ' at '
5011: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
5012: END IF;
5099:
5100: create_txn_fail EXCEPTION;
5101: BEGIN
5102: IF (g_debug <> -1) THEN
5103: gme_debug.log_initialize ('CreateTxn');
5104: END IF;
5105:
5106: IF g_debug <= gme_debug.g_log_procedure THEN
5107: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
5102: IF (g_debug <> -1) THEN
5103: gme_debug.log_initialize ('CreateTxn');
5104: END IF;
5105:
5106: IF g_debug <= gme_debug.g_log_procedure THEN
5107: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
5108: || l_api_name);
5109: END IF;
5110:
5103: gme_debug.log_initialize ('CreateTxn');
5104: END IF;
5105:
5106: IF g_debug <= gme_debug.g_log_procedure THEN
5107: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
5108: || l_api_name);
5109: END IF;
5110:
5111: /* Set the return status to success initially */
5161: ,x_message_list => x_message_list
5162: ,x_return_status => x_return_status );
5163:
5164: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5165: IF (g_debug = gme_debug.g_log_statement) THEN
5166: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
5167: || ': batch mateiral validate error ');
5168: END IF;
5169: RAISE fnd_api.g_exc_error;
5162: ,x_return_status => x_return_status );
5163:
5164: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5165: IF (g_debug = gme_debug.g_log_statement) THEN
5166: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
5167: || ': batch mateiral validate error ');
5168: END IF;
5169: RAISE fnd_api.g_exc_error;
5170: ELSE
5177: FETCH cur_get_item_rec INTO l_item_rec;
5178: IF cur_get_item_rec%NOTFOUND THEN
5179: CLOSE cur_get_item_rec;
5180: gme_common_pvt.log_message ('PM_INVALID_ITEM');
5181: IF (g_debug = gme_debug.g_log_statement) THEN
5182: gme_debug.put_line('Item cursor fetch no record in mtl_system_items_b: ');
5183: gme_debug.put_line('inventory_item_id = '|| TO_CHAR (l_mmti_rec.inventory_item_id) );
5184: gme_debug.put_line('organization_id = '|| TO_CHAR (l_mmti_rec.organization_id) );
5185: END IF;
5178: IF cur_get_item_rec%NOTFOUND THEN
5179: CLOSE cur_get_item_rec;
5180: gme_common_pvt.log_message ('PM_INVALID_ITEM');
5181: IF (g_debug = gme_debug.g_log_statement) THEN
5182: gme_debug.put_line('Item cursor fetch no record in mtl_system_items_b: ');
5183: gme_debug.put_line('inventory_item_id = '|| TO_CHAR (l_mmti_rec.inventory_item_id) );
5184: gme_debug.put_line('organization_id = '|| TO_CHAR (l_mmti_rec.organization_id) );
5185: END IF;
5186: RAISE fnd_api.g_exc_error;
5179: CLOSE cur_get_item_rec;
5180: gme_common_pvt.log_message ('PM_INVALID_ITEM');
5181: IF (g_debug = gme_debug.g_log_statement) THEN
5182: gme_debug.put_line('Item cursor fetch no record in mtl_system_items_b: ');
5183: gme_debug.put_line('inventory_item_id = '|| TO_CHAR (l_mmti_rec.inventory_item_id) );
5184: gme_debug.put_line('organization_id = '|| TO_CHAR (l_mmti_rec.organization_id) );
5185: END IF;
5186: RAISE fnd_api.g_exc_error;
5187: END IF;
5180: gme_common_pvt.log_message ('PM_INVALID_ITEM');
5181: IF (g_debug = gme_debug.g_log_statement) THEN
5182: gme_debug.put_line('Item cursor fetch no record in mtl_system_items_b: ');
5183: gme_debug.put_line('inventory_item_id = '|| TO_CHAR (l_mmti_rec.inventory_item_id) );
5184: gme_debug.put_line('organization_id = '|| TO_CHAR (l_mmti_rec.organization_id) );
5185: END IF;
5186: RAISE fnd_api.g_exc_error;
5187: END IF;
5188: CLOSE cur_get_item_rec;
5275: IF (l_item_rec.dual_uom_control in (3, 4)) THEN
5276: l_check_deviation := 1;
5277: END IF;
5278:
5279: IF (g_debug = gme_debug.g_log_statement) THEN
5280: gme_debug.put_line('l_check_deviation is '||l_check_deviation);
5281: END IF;
5282:
5283: IF l_check_deviation = 1 THEN
5276: l_check_deviation := 1;
5277: END IF;
5278:
5279: IF (g_debug = gme_debug.g_log_statement) THEN
5280: gme_debug.put_line('l_check_deviation is '||l_check_deviation);
5281: END IF;
5282:
5283: IF l_check_deviation = 1 THEN
5284: IF (l_mmli_tbl.COUNT = 0) THEN
5285: l_deviation_is_valid := 1;
5286:
5287: -- We only need to check if there is a secondary_transaction_quantity
5288: IF l_check_deviation = 1 AND l_mmti_rec.secondary_transaction_quantity IS NOT NULL THEN
5289: IF (g_debug = gme_debug.g_log_statement) THEN
5290: gme_debug.put_line('NO trans section ');
5291: END IF;
5292:
5293: -- Let's decide which quantity to use for deviation comparison.
5286:
5287: -- We only need to check if there is a secondary_transaction_quantity
5288: IF l_check_deviation = 1 AND l_mmti_rec.secondary_transaction_quantity IS NOT NULL THEN
5289: IF (g_debug = gme_debug.g_log_statement) THEN
5290: gme_debug.put_line('NO trans section ');
5291: END IF;
5292:
5293: -- Let's decide which quantity to use for deviation comparison.
5294: l_quantity := l_mmti_rec.primary_quantity;
5293: -- Let's decide which quantity to use for deviation comparison.
5294: l_quantity := l_mmti_rec.primary_quantity;
5295: l_uom := l_item_rec.primary_uom_code;
5296: IF l_quantity IS NULL THEN
5297: IF (g_debug = gme_debug.g_log_statement) THEN
5298: gme_debug.put_line('Using transaction_quantity');
5299: END IF;
5300: l_quantity := l_mmti_rec.transaction_quantity;
5301: l_uom := l_mmti_rec.transaction_uom;
5294: l_quantity := l_mmti_rec.primary_quantity;
5295: l_uom := l_item_rec.primary_uom_code;
5296: IF l_quantity IS NULL THEN
5297: IF (g_debug = gme_debug.g_log_statement) THEN
5298: gme_debug.put_line('Using transaction_quantity');
5299: END IF;
5300: l_quantity := l_mmti_rec.transaction_quantity;
5301: l_uom := l_mmti_rec.transaction_uom;
5302: END IF;
5300: l_quantity := l_mmti_rec.transaction_quantity;
5301: l_uom := l_mmti_rec.transaction_uom;
5302: END IF;
5303:
5304: IF (g_debug = gme_debug.g_log_statement) THEN
5305: gme_debug.put_line('checking deviation ');
5306: gme_debug.put_line('l_quantity is '||l_quantity);
5307: gme_debug.put_line('l_uom is '||l_uom);
5308: gme_debug.put_line('secondary_transaction_quantity is '||l_mmti_rec.secondary_transaction_quantity);
5301: l_uom := l_mmti_rec.transaction_uom;
5302: END IF;
5303:
5304: IF (g_debug = gme_debug.g_log_statement) THEN
5305: gme_debug.put_line('checking deviation ');
5306: gme_debug.put_line('l_quantity is '||l_quantity);
5307: gme_debug.put_line('l_uom is '||l_uom);
5308: gme_debug.put_line('secondary_transaction_quantity is '||l_mmti_rec.secondary_transaction_quantity);
5309: gme_debug.put_line('secondary_uom_code is '||l_item_rec.secondary_uom_code);
5302: END IF;
5303:
5304: IF (g_debug = gme_debug.g_log_statement) THEN
5305: gme_debug.put_line('checking deviation ');
5306: gme_debug.put_line('l_quantity is '||l_quantity);
5307: gme_debug.put_line('l_uom is '||l_uom);
5308: gme_debug.put_line('secondary_transaction_quantity is '||l_mmti_rec.secondary_transaction_quantity);
5309: gme_debug.put_line('secondary_uom_code is '||l_item_rec.secondary_uom_code);
5310: END IF;
5303:
5304: IF (g_debug = gme_debug.g_log_statement) THEN
5305: gme_debug.put_line('checking deviation ');
5306: gme_debug.put_line('l_quantity is '||l_quantity);
5307: gme_debug.put_line('l_uom is '||l_uom);
5308: gme_debug.put_line('secondary_transaction_quantity is '||l_mmti_rec.secondary_transaction_quantity);
5309: gme_debug.put_line('secondary_uom_code is '||l_item_rec.secondary_uom_code);
5310: END IF;
5311:
5304: IF (g_debug = gme_debug.g_log_statement) THEN
5305: gme_debug.put_line('checking deviation ');
5306: gme_debug.put_line('l_quantity is '||l_quantity);
5307: gme_debug.put_line('l_uom is '||l_uom);
5308: gme_debug.put_line('secondary_transaction_quantity is '||l_mmti_rec.secondary_transaction_quantity);
5309: gme_debug.put_line('secondary_uom_code is '||l_item_rec.secondary_uom_code);
5310: END IF;
5311:
5312: l_deviation_is_valid := INV_CONVERT.within_deviation(
5305: gme_debug.put_line('checking deviation ');
5306: gme_debug.put_line('l_quantity is '||l_quantity);
5307: gme_debug.put_line('l_uom is '||l_uom);
5308: gme_debug.put_line('secondary_transaction_quantity is '||l_mmti_rec.secondary_transaction_quantity);
5309: gme_debug.put_line('secondary_uom_code is '||l_item_rec.secondary_uom_code);
5310: END IF;
5311:
5312: l_deviation_is_valid := INV_CONVERT.within_deviation(
5313: p_organization_id => l_batch_header_rec.organization_id
5324: RAISE deviation_fail;
5325: END IF;
5326: END IF;
5327: ELSE
5328: IF (g_debug = gme_debug.g_log_statement) THEN
5329: gme_debug.put_line('trans section. count is '||l_mmli_tbl.COUNT);
5330: END IF;
5331:
5332: FOR i IN 1 .. l_mmli_tbl.COUNT LOOP
5325: END IF;
5326: END IF;
5327: ELSE
5328: IF (g_debug = gme_debug.g_log_statement) THEN
5329: gme_debug.put_line('trans section. count is '||l_mmli_tbl.COUNT);
5330: END IF;
5331:
5332: FOR i IN 1 .. l_mmli_tbl.COUNT LOOP
5333: IF l_check_deviation = 1 AND l_mmli_tbl(i).secondary_transaction_quantity IS NOT NULL THEN
5334: -- Let's decide which quantity to use for deviation comparison.
5335: l_quantity := l_mmli_tbl(i).primary_quantity;
5336: l_uom := l_item_rec.primary_uom_code;
5337: IF l_quantity IS NULL THEN
5338: IF (g_debug = gme_debug.g_log_statement) THEN
5339: gme_debug.put_line('Using transaction_quantity');
5340: END IF;
5341:
5342: l_quantity := l_mmli_tbl(i).transaction_quantity;
5335: l_quantity := l_mmli_tbl(i).primary_quantity;
5336: l_uom := l_item_rec.primary_uom_code;
5337: IF l_quantity IS NULL THEN
5338: IF (g_debug = gme_debug.g_log_statement) THEN
5339: gme_debug.put_line('Using transaction_quantity');
5340: END IF;
5341:
5342: l_quantity := l_mmli_tbl(i).transaction_quantity;
5343: l_uom := l_mmti_rec.transaction_uom;
5344: END IF;
5345:
5346: l_deviation_is_valid := 1;
5347:
5348: IF (g_debug = gme_debug.g_log_statement) THEN
5349: gme_debug.put_line('checking deviation on iteration '|| i);
5350: gme_debug.put_line('l_quantity is '||l_quantity);
5351: gme_debug.put_line('l_uom is '||l_uom);
5352: gme_debug.put_line('secondary_transaction_quantity is '||l_mmli_tbl(i).secondary_transaction_quantity);
5345:
5346: l_deviation_is_valid := 1;
5347:
5348: IF (g_debug = gme_debug.g_log_statement) THEN
5349: gme_debug.put_line('checking deviation on iteration '|| i);
5350: gme_debug.put_line('l_quantity is '||l_quantity);
5351: gme_debug.put_line('l_uom is '||l_uom);
5352: gme_debug.put_line('secondary_transaction_quantity is '||l_mmli_tbl(i).secondary_transaction_quantity);
5353: gme_debug.put_line('secondary_uom_code is '||l_item_rec.secondary_uom_code);
5346: l_deviation_is_valid := 1;
5347:
5348: IF (g_debug = gme_debug.g_log_statement) THEN
5349: gme_debug.put_line('checking deviation on iteration '|| i);
5350: gme_debug.put_line('l_quantity is '||l_quantity);
5351: gme_debug.put_line('l_uom is '||l_uom);
5352: gme_debug.put_line('secondary_transaction_quantity is '||l_mmli_tbl(i).secondary_transaction_quantity);
5353: gme_debug.put_line('secondary_uom_code is '||l_item_rec.secondary_uom_code);
5354: END IF;
5347:
5348: IF (g_debug = gme_debug.g_log_statement) THEN
5349: gme_debug.put_line('checking deviation on iteration '|| i);
5350: gme_debug.put_line('l_quantity is '||l_quantity);
5351: gme_debug.put_line('l_uom is '||l_uom);
5352: gme_debug.put_line('secondary_transaction_quantity is '||l_mmli_tbl(i).secondary_transaction_quantity);
5353: gme_debug.put_line('secondary_uom_code is '||l_item_rec.secondary_uom_code);
5354: END IF;
5355:
5348: IF (g_debug = gme_debug.g_log_statement) THEN
5349: gme_debug.put_line('checking deviation on iteration '|| i);
5350: gme_debug.put_line('l_quantity is '||l_quantity);
5351: gme_debug.put_line('l_uom is '||l_uom);
5352: gme_debug.put_line('secondary_transaction_quantity is '||l_mmli_tbl(i).secondary_transaction_quantity);
5353: gme_debug.put_line('secondary_uom_code is '||l_item_rec.secondary_uom_code);
5354: END IF;
5355:
5356: l_deviation_is_valid := INV_CONVERT.within_deviation(
5349: gme_debug.put_line('checking deviation on iteration '|| i);
5350: gme_debug.put_line('l_quantity is '||l_quantity);
5351: gme_debug.put_line('l_uom is '||l_uom);
5352: gme_debug.put_line('secondary_transaction_quantity is '||l_mmli_tbl(i).secondary_transaction_quantity);
5353: gme_debug.put_line('secondary_uom_code is '||l_item_rec.secondary_uom_code);
5354: END IF;
5355:
5356: l_deviation_is_valid := INV_CONVERT.within_deviation(
5357: p_organization_id => l_batch_header_rec.organization_id
5412: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5413: RAISE fnd_api.g_exc_error;
5414: END IF;
5415:
5416: IF (g_debug = gme_debug.g_log_statement) THEN
5417: gme_debug.put_line ( 'lot_gen'
5418: || ':'
5419: || 'l_parent_gen_lot '
5420: || l_return_status);
5413: RAISE fnd_api.g_exc_error;
5414: END IF;
5415:
5416: IF (g_debug = gme_debug.g_log_statement) THEN
5417: gme_debug.put_line ( 'lot_gen'
5418: || ':'
5419: || 'l_parent_gen_lot '
5420: || l_return_status);
5421: END IF;
5454: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5455: RAISE fnd_api.g_exc_error;
5456: END IF;
5457:
5458: IF (g_debug = gme_debug.g_log_statement) THEN
5459: gme_debug.put_line ( 'lot_gen'
5460: || ':'
5461: || 'l_parent_gen_lot '
5462: || l_return_status);
5455: RAISE fnd_api.g_exc_error;
5456: END IF;
5457:
5458: IF (g_debug = gme_debug.g_log_statement) THEN
5459: gme_debug.put_line ( 'lot_gen'
5460: || ':'
5461: || 'l_parent_gen_lot '
5462: || l_return_status);
5463: END IF;
5502: ,p_mmli_tbl => l_mmli_tbl
5503: ,x_return_status => l_return_status);
5504:
5505: IF l_return_status = fnd_api.g_ret_sts_success THEN
5506: IF g_debug <= gme_debug.g_log_procedure THEN
5507: gme_debug.put_line ( 'before save batch'
5508: || gme_common_pvt.g_transaction_header_id);
5509: END IF;
5510:
5503: ,x_return_status => l_return_status);
5504:
5505: IF l_return_status = fnd_api.g_ret_sts_success THEN
5506: IF g_debug <= gme_debug.g_log_procedure THEN
5507: gme_debug.put_line ( 'before save batch'
5508: || gme_common_pvt.g_transaction_header_id);
5509: END IF;
5510:
5511: l_header_id := gme_common_pvt.g_transaction_header_id;
5517: ,p_table => 1
5518: ,p_commit => p_commit
5519: ,x_return_status => x_return_status);
5520:
5521: IF g_debug <= gme_debug.g_log_procedure THEN
5522: gme_debug.put_line ( 'return from save batch with'
5523: || x_return_status);
5524: END IF;
5525:
5518: ,p_commit => p_commit
5519: ,x_return_status => x_return_status);
5520:
5521: IF g_debug <= gme_debug.g_log_procedure THEN
5522: gme_debug.put_line ( 'return from save batch with'
5523: || x_return_status);
5524: END IF;
5525:
5526: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5529: END IF;
5530: ELSE
5531: RAISE create_txn_fail;
5532: END IF;
5533: IF g_debug <= gme_debug.g_log_procedure THEN
5534: gme_debug.put_line ( 'l_header_id'
5535: || l_header_id);
5536: END IF;
5537:
5530: ELSE
5531: RAISE create_txn_fail;
5532: END IF;
5533: IF g_debug <= gme_debug.g_log_procedure THEN
5534: gme_debug.put_line ( 'l_header_id'
5535: || l_header_id);
5536: END IF;
5537:
5538: -- Bug 14685438 - Conditionalize data fetch from mmt based on p_save_batch.
5551: ,x_mmln_tbl => x_mmln_tbl
5552: ,x_return_status => x_return_status);
5553: END IF;
5554:
5555: IF g_debug <= gme_debug.g_log_procedure THEN
5556: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
5557: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
5558: END IF;
5559: EXCEPTION
5552: ,x_return_status => x_return_status);
5553: END IF;
5554:
5555: IF g_debug <= gme_debug.g_log_procedure THEN
5556: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
5557: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
5558: END IF;
5559: EXCEPTION
5560: WHEN create_txn_fail OR deviation_fail THEN
5648: update_txn_fail EXCEPTION;
5649: update_txn_mismatch EXCEPTION;
5650: BEGIN
5651: IF (g_debug <> -1) THEN
5652: gme_debug.log_initialize ('UpdateTxn');
5653: END IF;
5654:
5655: IF g_debug <= gme_debug.g_log_procedure THEN
5656: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
5651: IF (g_debug <> -1) THEN
5652: gme_debug.log_initialize ('UpdateTxn');
5653: END IF;
5654:
5655: IF g_debug <= gme_debug.g_log_procedure THEN
5656: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
5657: || l_api_name);
5658: END IF;
5659:
5652: gme_debug.log_initialize ('UpdateTxn');
5653: END IF;
5654:
5655: IF g_debug <= gme_debug.g_log_procedure THEN
5656: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
5657: || l_api_name);
5658: END IF;
5659:
5660: /* Set the savepoint */
5720: IF cur_get_item_rec%NOTFOUND THEN
5721: CLOSE cur_get_item_rec;
5722: gme_common_pvt.log_message ('PM_INVALID_ITEM');
5723:
5724: IF (g_debug = gme_debug.g_log_statement) THEN
5725: gme_debug.put_line
5726: ('Item cursor fetch no record in mtl_system_items_b: ');
5727: gme_debug.put_line ( 'inventory_item_id = '
5728: || TO_CHAR (l_mmti_rec.inventory_item_id) );
5721: CLOSE cur_get_item_rec;
5722: gme_common_pvt.log_message ('PM_INVALID_ITEM');
5723:
5724: IF (g_debug = gme_debug.g_log_statement) THEN
5725: gme_debug.put_line
5726: ('Item cursor fetch no record in mtl_system_items_b: ');
5727: gme_debug.put_line ( 'inventory_item_id = '
5728: || TO_CHAR (l_mmti_rec.inventory_item_id) );
5729: gme_debug.put_line ( 'organization_id = '
5723:
5724: IF (g_debug = gme_debug.g_log_statement) THEN
5725: gme_debug.put_line
5726: ('Item cursor fetch no record in mtl_system_items_b: ');
5727: gme_debug.put_line ( 'inventory_item_id = '
5728: || TO_CHAR (l_mmti_rec.inventory_item_id) );
5729: gme_debug.put_line ( 'organization_id = '
5730: || TO_CHAR (l_mmti_rec.organization_id) );
5731: END IF;
5725: gme_debug.put_line
5726: ('Item cursor fetch no record in mtl_system_items_b: ');
5727: gme_debug.put_line ( 'inventory_item_id = '
5728: || TO_CHAR (l_mmti_rec.inventory_item_id) );
5729: gme_debug.put_line ( 'organization_id = '
5730: || TO_CHAR (l_mmti_rec.organization_id) );
5731: END IF;
5732: RAISE fnd_api.g_exc_error;
5733: END IF;
5770: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5771: RAISE fnd_api.g_exc_error;
5772: END IF;
5773:
5774: IF (g_debug = gme_debug.g_log_statement) THEN
5775: gme_debug.put_line ( 'lot_gen'
5776: || ':'
5777: || 'l_parent_gen_lot '
5778: || l_return_status);
5771: RAISE fnd_api.g_exc_error;
5772: END IF;
5773:
5774: IF (g_debug = gme_debug.g_log_statement) THEN
5775: gme_debug.put_line ( 'lot_gen'
5776: || ':'
5777: || 'l_parent_gen_lot '
5778: || l_return_status);
5779: END IF;
5812: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5813: RAISE fnd_api.g_exc_error;
5814: END IF;
5815:
5816: IF (g_debug = gme_debug.g_log_statement) THEN
5817: gme_debug.put_line ( 'lot_gen'
5818: || ':'
5819: || 'l_parent_gen_lot '
5820: || l_return_status);
5813: RAISE fnd_api.g_exc_error;
5814: END IF;
5815:
5816: IF (g_debug = gme_debug.g_log_statement) THEN
5817: gme_debug.put_line ( 'lot_gen'
5818: || ':'
5819: || 'l_parent_gen_lot '
5820: || l_return_status);
5821: END IF;
5860: ,p_mmli_tbl => l_mmli_tbl
5861: ,x_return_status => l_return_status);
5862:
5863: IF l_return_status = fnd_api.g_ret_sts_success THEN
5864: IF g_debug <= gme_debug.g_log_procedure THEN
5865: gme_debug.put_line ( 'before save batch'
5866: || gme_common_pvt.g_transaction_header_id);
5867: END IF;
5868: l_header_id:= gme_common_pvt.g_transaction_header_id;
5861: ,x_return_status => l_return_status);
5862:
5863: IF l_return_status = fnd_api.g_ret_sts_success THEN
5864: IF g_debug <= gme_debug.g_log_procedure THEN
5865: gme_debug.put_line ( 'before save batch'
5866: || gme_common_pvt.g_transaction_header_id);
5867: END IF;
5868: l_header_id:= gme_common_pvt.g_transaction_header_id;
5869: gme_api_pub.save_batch
5871: ,p_table => 1
5872: ,p_commit => p_commit
5873: ,x_return_status => x_return_status);
5874:
5875: IF g_debug <= gme_debug.g_log_procedure THEN
5876: gme_debug.put_line ( 'return from save batch with'
5877: || x_return_status);
5878: END IF;
5879:
5872: ,p_commit => p_commit
5873: ,x_return_status => x_return_status);
5874:
5875: IF g_debug <= gme_debug.g_log_procedure THEN
5876: gme_debug.put_line ( 'return from save batch with'
5877: || x_return_status);
5878: END IF;
5879:
5880: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5883: ELSE
5884: RAISE update_txn_fail;
5885: END IF;
5886:
5887: IF g_debug <= gme_debug.g_log_procedure THEN
5888: gme_debug.put_line ( 'l_header_id'
5889: || l_header_id);
5890: END IF;
5891: -- get all the transactions from the mmt
5884: RAISE update_txn_fail;
5885: END IF;
5886:
5887: IF g_debug <= gme_debug.g_log_procedure THEN
5888: gme_debug.put_line ( 'l_header_id'
5889: || l_header_id);
5890: END IF;
5891: -- get all the transactions from the mmt
5892: OPEN cur_get_trans (l_header_id);
5901: (p_transaction_id => x_mmt_rec.transaction_id
5902: ,x_mmln_tbl => x_mmln_tbl
5903: ,x_return_status => x_return_status);
5904:
5905: IF g_debug <= gme_debug.g_log_procedure THEN
5906: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
5907: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
5908: END IF;
5909: EXCEPTION
5902: ,x_mmln_tbl => x_mmln_tbl
5903: ,x_return_status => x_return_status);
5904:
5905: IF g_debug <= gme_debug.g_log_procedure THEN
5906: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
5907: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
5908: END IF;
5909: EXCEPTION
5910: WHEN update_txn_mismatch THEN
5966: FROM mtl_material_transactions
5967: WHERE transaction_id = v_transaction_id;
5968: BEGIN
5969: IF (g_debug <> -1) THEN
5970: gme_debug.log_initialize ('DeleteTxn');
5971: END IF;
5972:
5973: IF g_debug <= gme_debug.g_log_procedure THEN
5974: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
5969: IF (g_debug <> -1) THEN
5970: gme_debug.log_initialize ('DeleteTxn');
5971: END IF;
5972:
5973: IF g_debug <= gme_debug.g_log_procedure THEN
5974: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
5975: || l_api_name);
5976: END IF;
5977:
5970: gme_debug.log_initialize ('DeleteTxn');
5971: END IF;
5972:
5973: IF g_debug <= gme_debug.g_log_procedure THEN
5974: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
5975: || l_api_name);
5976: END IF;
5977:
5978: /* Set the savepoint */
6040: ELSE
6041: RAISE delete_txn_fail;
6042: END IF;
6043:
6044: IF g_debug <= gme_debug.g_log_procedure THEN
6045: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
6046: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
6047: END IF;
6048: EXCEPTION
6041: RAISE delete_txn_fail;
6042: END IF;
6043:
6044: IF g_debug <= gme_debug.g_log_procedure THEN
6045: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
6046: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
6047: END IF;
6048: EXCEPTION
6049: WHEN delete_txn_fail THEN
6103:
6104: reroute_batch_failed EXCEPTION;
6105: BEGIN
6106: IF (g_debug <> -1) THEN
6107: gme_debug.log_initialize ('RerouteBatch');
6108: END IF;
6109:
6110: IF g_debug <= gme_debug.g_log_procedure THEN
6111: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
6106: IF (g_debug <> -1) THEN
6107: gme_debug.log_initialize ('RerouteBatch');
6108: END IF;
6109:
6110: IF g_debug <= gme_debug.g_log_procedure THEN
6111: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
6112: || l_api_name);
6113: END IF;
6114: /* Set the return status to success initially */
6107: gme_debug.log_initialize ('RerouteBatch');
6108: END IF;
6109:
6110: IF g_debug <= gme_debug.g_log_procedure THEN
6111: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
6112: || l_api_name);
6113: END IF;
6114: /* Set the return status to success initially */
6115: x_return_status := fnd_api.g_ret_sts_success;
6162: ,x_message_list => x_message_list
6163: ,x_return_status => x_return_status );
6164:
6165: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6166: IF (g_debug = gme_debug.g_log_statement) THEN
6167: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
6168: || ': batch validate error ');
6169: END IF;
6170: RAISE fnd_api.g_exc_error;
6163: ,x_return_status => x_return_status );
6164:
6165: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6166: IF (g_debug = gme_debug.g_log_statement) THEN
6167: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
6168: || ': batch validate error ');
6169: END IF;
6170: RAISE fnd_api.g_exc_error;
6171: END IF;
6219: gme_common_pvt.count_and_get (x_count => x_message_count
6220: ,p_encoded => fnd_api.g_false
6221: ,x_data => x_message_list);
6222:
6223: IF g_debug <= gme_debug.g_log_procedure THEN
6224: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
6225: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
6226: END IF;
6227: EXCEPTION
6220: ,p_encoded => fnd_api.g_false
6221: ,x_data => x_message_list);
6222:
6223: IF g_debug <= gme_debug.g_log_procedure THEN
6224: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
6225: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
6226: END IF;
6227: EXCEPTION
6228: WHEN reroute_batch_failed THEN
6242: ROLLBACK TO SAVEPOINT reroute_batch_pub;
6243: x_batch_header_rec := NULL;
6244: x_return_status := fnd_api.g_ret_sts_unexp_error;
6245:
6246: IF (g_debug > 0) THEN gme_debug.put_line ( g_pkg_name || '.' ||
6247: l_api_name || ':' || 'UNEXPECTED:' || SQLERRM);
6248: END IF;
6249: gme_common_pvt.count_and_get (x_count => x_message_count
6250: ,p_encoded => fnd_api.g_false
6314: l_gmf_prof_val NUMBER;
6315: batch_cancel_failure EXCEPTION;
6316: BEGIN
6317: IF (g_debug <> -1) THEN
6318: gme_debug.log_initialize ('CancelBatch');
6319: END IF;
6320:
6321: IF g_debug <= gme_debug.g_log_procedure THEN
6322: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
6317: IF (g_debug <> -1) THEN
6318: gme_debug.log_initialize ('CancelBatch');
6319: END IF;
6320:
6321: IF g_debug <= gme_debug.g_log_procedure THEN
6322: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
6323: || 'Entering');
6324: END IF;
6325:
6318: gme_debug.log_initialize ('CancelBatch');
6319: END IF;
6320:
6321: IF g_debug <= gme_debug.g_log_procedure THEN
6322: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
6323: || 'Entering');
6324: END IF;
6325:
6326: /* Set the return status to success initially */
6351: ,x_message_list => x_message_list
6352: ,x_return_status => x_return_status );
6353:
6354: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6355: IF (g_debug = gme_debug.g_log_statement) THEN
6356: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
6357: || ': batch validate error ');
6358: END IF;
6359: RAISE fnd_api.g_exc_error;
6352: ,x_return_status => x_return_status );
6353:
6354: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6355: IF (g_debug = gme_debug.g_log_statement) THEN
6356: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
6357: || ': batch validate error ');
6358: END IF;
6359: RAISE fnd_api.g_exc_error;
6360: END IF;
6383: -- 0 no check, 1 warning, 2 - error
6384: l_gmf_prof_val := NVL(FND_PROFILE.VALUE('GMF_STOP_BATCH_CANCEL'), 0);
6385:
6386: -- Bug 12418545 - Let's check if there could be potential gmf problems.
6387: IF g_debug <= gme_debug.g_log_statement THEN
6388: gme_debug.put_line ( g_pkg_name
6389: || '.'
6390: || l_api_name
6391: || ':'
6384: l_gmf_prof_val := NVL(FND_PROFILE.VALUE('GMF_STOP_BATCH_CANCEL'), 0);
6385:
6386: -- Bug 12418545 - Let's check if there could be potential gmf problems.
6387: IF g_debug <= gme_debug.g_log_statement THEN
6388: gme_debug.put_line ( g_pkg_name
6389: || '.'
6390: || l_api_name
6391: || ':'
6392: || 'calling GMF_BATCH_VALIDATIONS.check_cancel_batch for batch id '||l_batch_header_rec.batch_id);
6389: || '.'
6390: || l_api_name
6391: || ':'
6392: || 'calling GMF_BATCH_VALIDATIONS.check_cancel_batch for batch id '||l_batch_header_rec.batch_id);
6393: gme_debug.put_line ('profile value is '||l_gmf_prof_val);
6394: END IF;
6395:
6396: IF l_gmf_prof_val <> 0 THEN
6397: IF NOT GMF_BATCH_VALIDATIONS.check_cancel_batch(l_batch_header_rec.batch_id) THEN
6428: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6429: RAISE fnd_api.g_exc_error;
6430: END IF;
6431:
6432: IF g_debug <= gme_debug.g_log_statement THEN
6433: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':'
6434: || 'calling main cancel');
6435: END IF;
6436:
6429: RAISE fnd_api.g_exc_error;
6430: END IF;
6431:
6432: IF g_debug <= gme_debug.g_log_statement THEN
6433: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':'
6434: || 'calling main cancel');
6435: END IF;
6436:
6437: gme_api_main.cancel_batch (p_validation_level => p_validation_level
6441: ,x_return_status => x_return_status
6442: ,p_batch_header_rec => l_batch_header_rec
6443: ,x_batch_header_rec => x_batch_header_rec);
6444:
6445: IF g_debug <= gme_debug.g_log_statement THEN
6446: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':' ||
6447: 'return_status from main'|| x_return_status);
6448: END IF;
6449:
6442: ,p_batch_header_rec => l_batch_header_rec
6443: ,x_batch_header_rec => x_batch_header_rec);
6444:
6445: IF g_debug <= gme_debug.g_log_statement THEN
6446: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':' ||
6447: 'return_status from main'|| x_return_status);
6448: END IF;
6449:
6450: IF x_return_status = fnd_api.g_ret_sts_success THEN
6468: gme_common_pvt.count_and_get (x_count => x_message_count
6469: ,p_encoded => fnd_api.g_false
6470: ,x_data => x_message_list);
6471:
6472: IF g_debug <= gme_debug.g_log_procedure THEN
6473: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
6474: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
6475: END IF;
6476: EXCEPTION
6469: ,p_encoded => fnd_api.g_false
6470: ,x_data => x_message_list);
6471:
6472: IF g_debug <= gme_debug.g_log_procedure THEN
6473: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
6474: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
6475: END IF;
6476: EXCEPTION
6477: WHEN batch_cancel_failure THEN
6551:
6552: batch_terminate_failure EXCEPTION;
6553: BEGIN
6554: IF (g_debug <> -1) THEN
6555: gme_debug.log_initialize ('TerminateBatch');
6556: END IF;
6557:
6558: IF g_debug <= gme_debug.g_log_procedure THEN
6559: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
6554: IF (g_debug <> -1) THEN
6555: gme_debug.log_initialize ('TerminateBatch');
6556: END IF;
6557:
6558: IF g_debug <= gme_debug.g_log_procedure THEN
6559: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
6560: || 'Entering');
6561: END IF;
6562:
6555: gme_debug.log_initialize ('TerminateBatch');
6556: END IF;
6557:
6558: IF g_debug <= gme_debug.g_log_procedure THEN
6559: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ':'
6560: || 'Entering');
6561: END IF;
6562:
6563: /* Set the return status to success initially */
6588: ,x_message_list => x_message_list
6589: ,x_return_status => x_return_status );
6590:
6591: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6592: IF (g_debug = gme_debug.g_log_statement) THEN
6593: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
6594: || ': batch validate error ');
6595: END IF;
6596: RAISE fnd_api.g_exc_error;
6589: ,x_return_status => x_return_status );
6590:
6591: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6592: IF (g_debug = gme_debug.g_log_statement) THEN
6593: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
6594: || ': batch validate error ');
6595: END IF;
6596: RAISE fnd_api.g_exc_error;
6597: END IF;
6645: /* Check for batch status */
6646: IF l_batch_header_rec.batch_status <> gme_common_pvt.g_batch_wip THEN
6647: gme_common_pvt.log_message ('GME_INVALID_BSTAT_TERM');
6648:
6649: IF (g_debug <= gme_debug.g_log_statement) THEN
6650: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':'
6651: || 'INVALID_BATCH_STATUS');
6652: END IF;
6653:
6646: IF l_batch_header_rec.batch_status <> gme_common_pvt.g_batch_wip THEN
6647: gme_common_pvt.log_message ('GME_INVALID_BSTAT_TERM');
6648:
6649: IF (g_debug <= gme_debug.g_log_statement) THEN
6650: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ':'
6651: || 'INVALID_BATCH_STATUS');
6652: END IF;
6653:
6654: RAISE fnd_api.g_exc_error;
6673: l_batch_header_rec.actual_cmplt_date :=
6674: p_batch_header_rec.actual_cmplt_date;
6675: END IF;
6676:
6677: IF g_debug <= gme_debug.g_log_statement THEN
6678: gme_debug.put_line ('calling main terminate');
6679: END IF;
6680:
6681: gme_api_main.terminate_batch (p_validation_level => p_validation_level
6674: p_batch_header_rec.actual_cmplt_date;
6675: END IF;
6676:
6677: IF g_debug <= gme_debug.g_log_statement THEN
6678: gme_debug.put_line ('calling main terminate');
6679: END IF;
6680:
6681: gme_api_main.terminate_batch (p_validation_level => p_validation_level
6682: ,p_init_msg_list => fnd_api.g_false
6685: ,x_return_status => x_return_status
6686: ,p_batch_header_rec => l_batch_header_rec
6687: ,x_batch_header_rec => x_batch_header_rec);
6688:
6689: IF g_debug <= gme_debug.g_log_statement THEN
6690: gme_debug.put_line ( g_pkg_name
6691: || '.'
6692: || l_api_name
6693: || ':'
6686: ,p_batch_header_rec => l_batch_header_rec
6687: ,x_batch_header_rec => x_batch_header_rec);
6688:
6689: IF g_debug <= gme_debug.g_log_statement THEN
6690: gme_debug.put_line ( g_pkg_name
6691: || '.'
6692: || l_api_name
6693: || ':'
6694: || 'return_status from main'
6716: gme_common_pvt.count_and_get (x_count => x_message_count
6717: ,p_encoded => fnd_api.g_false
6718: ,x_data => x_message_list);
6719:
6720: IF g_debug <= gme_debug.g_log_procedure THEN
6721: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
6722: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
6723: END IF;
6724: EXCEPTION
6717: ,p_encoded => fnd_api.g_false
6718: ,x_data => x_message_list);
6719:
6720: IF g_debug <= gme_debug.g_log_procedure THEN
6721: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
6722: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
6723: END IF;
6724: EXCEPTION
6725: WHEN batch_terminate_failure THEN
6736: ,p_encoded => fnd_api.g_false
6737: ,x_data => x_message_list);
6738: WHEN OTHERS THEN
6739: ROLLBACK TO SAVEPOINT terminate_batch;
6740: IF g_debug <= gme_debug.g_log_unexpected THEN
6741: gme_debug.put_line ( g_pkg_name
6742: || '.'
6743: || l_api_name
6744: || ':'
6737: ,x_data => x_message_list);
6738: WHEN OTHERS THEN
6739: ROLLBACK TO SAVEPOINT terminate_batch;
6740: IF g_debug <= gme_debug.g_log_unexpected THEN
6741: gme_debug.put_line ( g_pkg_name
6742: || '.'
6743: || l_api_name
6744: || ':'
6745: || 'When others exception:'
6783: FROM mtl_reservations
6784: WHERE reservation_id = v_reservation_id;
6785: BEGIN
6786: IF (g_debug <> -1) THEN
6787: gme_debug.log_initialize ('ConvertDtlReservation');
6788: END IF;
6789:
6790: IF g_debug <= gme_debug.g_log_procedure THEN
6791: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
6786: IF (g_debug <> -1) THEN
6787: gme_debug.log_initialize ('ConvertDtlReservation');
6788: END IF;
6789:
6790: IF g_debug <= gme_debug.g_log_procedure THEN
6791: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
6792: || l_api_name);
6793: END IF;
6794:
6787: gme_debug.log_initialize ('ConvertDtlReservation');
6788: END IF;
6789:
6790: IF g_debug <= gme_debug.g_log_procedure THEN
6791: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
6792: || l_api_name);
6793: END IF;
6794:
6795: /* Set the savepoint */
6809: gme_common_pvt.log_message ('GME_INVALID_API_VERSION');
6810: RAISE fnd_api.g_exc_error;
6811: END IF;
6812:
6813: IF g_debug <= gme_debug.g_log_statement THEN
6814: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' Input
6815: reservation_id is '|| p_reservation_rec.reservation_id);
6816: END IF;
6817:
6810: RAISE fnd_api.g_exc_error;
6811: END IF;
6812:
6813: IF g_debug <= gme_debug.g_log_statement THEN
6814: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' Input
6815: reservation_id is '|| p_reservation_rec.reservation_id);
6816: END IF;
6817:
6818: /* Verify that the reservation exists */
6827: gme_common_pvt.log_message ('GME_NO_DATA_FOUND'
6828: ,'TABLE_NAME'
6829: ,'MTL_RESERVATIONS');
6830:
6831: IF g_debug <= gme_debug.g_log_statement THEN gme_debug.put_line (
6832: g_pkg_name || '.' || l_api_name || ' Retrieval failure against
6833: mtl_reservations using id of ' || p_reservation_rec.reservation_id);
6834: END IF;
6835:
6839:
6840:
6841: -- Bug 6778968 - Do not allow negative quantities.
6842: IF (NVL(p_qty_convert, 0) < 0) THEN
6843: IF g_debug <= gme_debug.g_log_statement THEN
6844: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' Negative qty not allowed');
6845: END IF;
6846:
6847: gme_common_pvt.log_message (p_product_code => 'GMI'
6840:
6841: -- Bug 6778968 - Do not allow negative quantities.
6842: IF (NVL(p_qty_convert, 0) < 0) THEN
6843: IF g_debug <= gme_debug.g_log_statement THEN
6844: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' Negative qty not allowed');
6845: END IF;
6846:
6847: gme_common_pvt.log_message (p_product_code => 'GMI'
6848: ,p_message_code => 'IC_ACTIONQTYNEG');
6898: END IF;
6899: END IF;
6900:
6901: /* Validate the demand source - it must be a valid ingredient line */
6902: IF g_debug <= gme_debug.g_log_statement THEN
6903: gme_debug.put_line
6904: ( g_pkg_name
6905: || '.'
6906: || l_api_name
6899: END IF;
6900:
6901: /* Validate the demand source - it must be a valid ingredient line */
6902: IF g_debug <= gme_debug.g_log_statement THEN
6903: gme_debug.put_line
6904: ( g_pkg_name
6905: || '.'
6906: || l_api_name
6907: || ' Invoke validate_supply_demand for demand line of '
6925: p_called_by => 'CVT',
6926: p_api_version_number => 1.0,
6927: p_init_msg_lst => FND_API.G_FALSE );
6928:
6929: IF g_debug <= gme_debug.g_log_statement THEN
6930: gme_debug.put_line
6931: ( g_pkg_name
6932: || '.'
6933: || l_api_name
6926: p_api_version_number => 1.0,
6927: p_init_msg_lst => FND_API.G_FALSE );
6928:
6929: IF g_debug <= gme_debug.g_log_statement THEN
6930: gme_debug.put_line
6931: ( g_pkg_name
6932: || '.'
6933: || l_api_name
6934: || ' Return status from gme_api_grp.validate_supply_demand is '
6949: ,x_message_count => x_message_count
6950: ,x_message_list => x_message_list
6951: ,x_return_status => x_return_status);
6952:
6953: IF g_debug <= gme_debug.g_log_statement THEN
6954: gme_debug.put_line
6955: ( g_pkg_name
6956: || '.'
6957: || l_api_name
6950: ,x_message_list => x_message_list
6951: ,x_return_status => x_return_status);
6952:
6953: IF g_debug <= gme_debug.g_log_statement THEN
6954: gme_debug.put_line
6955: ( g_pkg_name
6956: || '.'
6957: || l_api_name
6958: || ' Return status from gme_reservations_pvt.convert_dtl_reservation is '
6967: ,p_table => 1
6968: ,p_commit => p_commit
6969: ,x_return_status => x_return_status);
6970:
6971: IF g_debug <= gme_debug.g_log_statement THEN
6972: gme_debug.put_line
6973: ( g_pkg_name
6974: || '.'
6975: || l_api_name
6968: ,p_commit => p_commit
6969: ,x_return_status => x_return_status);
6970:
6971: IF g_debug <= gme_debug.g_log_statement THEN
6972: gme_debug.put_line
6973: ( g_pkg_name
6974: || '.'
6975: || l_api_name
6976: || ' return status from gme_api_pub.save_batch is '
6980: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6981: RAISE fnd_api.g_exc_error;
6982: END IF;
6983:
6984: IF g_debug <= gme_debug.g_log_procedure THEN
6985: gme_debug.put_line ( ' Completed '
6986: || l_api_name
6987: || ' at '
6988: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
6981: RAISE fnd_api.g_exc_error;
6982: END IF;
6983:
6984: IF g_debug <= gme_debug.g_log_procedure THEN
6985: gme_debug.put_line ( ' Completed '
6986: || l_api_name
6987: || ' at '
6988: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
6989: END IF;
7080: FROM gme_batch_steps
7081: WHERE batch_id = v_batch_id AND batchstep_id = v_batchstep_id;
7082: BEGIN
7083: IF (g_debug <> -1) THEN
7084: gme_debug.log_initialize ('InsertBatchstepResource');
7085: END IF;
7086:
7087: IF g_debug <= gme_debug.g_log_procedure THEN
7088: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
7083: IF (g_debug <> -1) THEN
7084: gme_debug.log_initialize ('InsertBatchstepResource');
7085: END IF;
7086:
7087: IF g_debug <= gme_debug.g_log_procedure THEN
7088: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
7089: || l_api_name);
7090: END IF;
7091:
7084: gme_debug.log_initialize ('InsertBatchstepResource');
7085: END IF;
7086:
7087: IF g_debug <= gme_debug.g_log_procedure THEN
7088: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
7089: || l_api_name);
7090: END IF;
7091:
7092: /* Set the savepoint */
7111: END IF;
7112:
7113: /* Setup the common constants used across the apis */
7114: /* This will raise an error if both organization_id and org_code are null values */
7115: IF g_debug <= gme_debug.g_log_statement THEN
7116: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7117: 'Invoking setup for org_id ' ||
7118: p_batchstep_resource_rec.organization_id ||
7119: ' org_code ' || p_org_code);
7112:
7113: /* Setup the common constants used across the apis */
7114: /* This will raise an error if both organization_id and org_code are null values */
7115: IF g_debug <= gme_debug.g_log_statement THEN
7116: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7117: 'Invoking setup for org_id ' ||
7118: p_batchstep_resource_rec.organization_id ||
7119: ' org_code ' || p_org_code);
7120: END IF;
7144: IF l_batchstep_resource_rec.batchstep_activity_id IS NOT NULL THEN
7145: --added by qzeng no need to check if done in bulk validation
7146: IF NVL(gme_common_pvt.g_bulk_validation_done, 'N') = 'N' THEN
7147: -- validate the key provided
7148: IF g_debug <= gme_debug.g_log_statement THEN
7149: gme_debug.put_line
7150: ( g_pkg_name
7151: || '.'
7152: || l_api_name
7145: --added by qzeng no need to check if done in bulk validation
7146: IF NVL(gme_common_pvt.g_bulk_validation_done, 'N') = 'N' THEN
7147: -- validate the key provided
7148: IF g_debug <= gme_debug.g_log_statement THEN
7149: gme_debug.put_line
7150: ( g_pkg_name
7151: || '.'
7152: || l_api_name
7153: || ' validate batchstep activity id'
7172:
7173: CLOSE cur_validate_activity;
7174:
7175: -- make sure activity id does not belong to an FPO
7176: IF g_debug <= gme_debug.g_log_statement THEN
7177: gme_debug.put_line ( g_pkg_name
7178: || '.'
7179: || l_api_name
7180: || ' validate for FPO');
7173: CLOSE cur_validate_activity;
7174:
7175: -- make sure activity id does not belong to an FPO
7176: IF g_debug <= gme_debug.g_log_statement THEN
7177: gme_debug.put_line ( g_pkg_name
7178: || '.'
7179: || l_api_name
7180: || ' validate for FPO');
7181: END IF;
7198: ELSE
7199: /* User supplies EITHER internal identifiers via p_batchstep_resource_rec OR a
7200: series of keys. In the case of the latter, these must be validated and converted to
7201: internal identifiers for ongoing processing */
7202: IF g_debug <= gme_debug.g_log_statement THEN
7203: gme_debug.put_line ( g_pkg_name
7204: || '.'
7205: || l_api_name
7206: || ' Invoke validate_param');
7199: /* User supplies EITHER internal identifiers via p_batchstep_resource_rec OR a
7200: series of keys. In the case of the latter, these must be validated and converted to
7201: internal identifiers for ongoing processing */
7202: IF g_debug <= gme_debug.g_log_statement THEN
7203: gme_debug.put_line ( g_pkg_name
7204: || '.'
7205: || l_api_name
7206: || ' Invoke validate_param');
7207: END IF;
7219: ,x_rsrc_id => l_rsrc_id
7220: ,x_step_status => l_step_status
7221: ,x_return_status => l_return_status);
7222:
7223: IF g_debug <= gme_debug.g_log_statement THEN
7224: gme_debug.put_line ( g_pkg_name
7225: || '.'
7226: || l_api_name
7227: || ' validate_param returns '
7220: ,x_step_status => l_step_status
7221: ,x_return_status => l_return_status);
7222:
7223: IF g_debug <= gme_debug.g_log_statement THEN
7224: gme_debug.put_line ( g_pkg_name
7225: || '.'
7226: || l_api_name
7227: || ' validate_param returns '
7228: || l_return_status);
7231: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7232: RAISE fnd_api.g_exc_error;
7233: END IF;
7234:
7235: IF g_debug <= gme_debug.g_log_statement THEN
7236: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' batch_id
7237: => ' || l_batchstep_resource_rec.batch_id);
7238: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' batchstep_id => ' ||
7239: l_batchstep_resource_rec.batchstep_id);
7232: RAISE fnd_api.g_exc_error;
7233: END IF;
7234:
7235: IF g_debug <= gme_debug.g_log_statement THEN
7236: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' batch_id
7237: => ' || l_batchstep_resource_rec.batch_id);
7238: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' batchstep_id => ' ||
7239: l_batchstep_resource_rec.batchstep_id);
7240: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' batchstep_activity_id => '
7234:
7235: IF g_debug <= gme_debug.g_log_statement THEN
7236: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' batch_id
7237: => ' || l_batchstep_resource_rec.batch_id);
7238: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' batchstep_id => ' ||
7239: l_batchstep_resource_rec.batchstep_id);
7240: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' batchstep_activity_id => '
7241: || l_batchstep_resource_rec.batchstep_activity_id);
7242: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' rsrc_id => ' || l_rsrc_id);
7236: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' batch_id
7237: => ' || l_batchstep_resource_rec.batch_id);
7238: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' batchstep_id => ' ||
7239: l_batchstep_resource_rec.batchstep_id);
7240: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' batchstep_activity_id => '
7241: || l_batchstep_resource_rec.batchstep_activity_id);
7242: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' rsrc_id => ' || l_rsrc_id);
7243: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' step_status => '
7244: || l_step_status);
7238: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' batchstep_id => ' ||
7239: l_batchstep_resource_rec.batchstep_id);
7240: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' batchstep_activity_id => '
7241: || l_batchstep_resource_rec.batchstep_activity_id);
7242: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' rsrc_id => ' || l_rsrc_id);
7243: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' step_status => '
7244: || l_step_status);
7245: END IF;
7246: END IF;
7239: l_batchstep_resource_rec.batchstep_id);
7240: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' batchstep_activity_id => '
7241: || l_batchstep_resource_rec.batchstep_activity_id);
7242: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' rsrc_id => ' || l_rsrc_id);
7243: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' step_status => '
7244: || l_step_status);
7245: END IF;
7246: END IF;
7247:
7244: || l_step_status);
7245: END IF;
7246: END IF;
7247:
7248: IF g_debug <= gme_debug.g_log_statement THEN
7249: gme_debug.put_line ( g_pkg_name
7250: || '.'
7251: || l_api_name
7252: || ' proceed with resource validation for '
7245: END IF;
7246: END IF;
7247:
7248: IF g_debug <= gme_debug.g_log_statement THEN
7249: gme_debug.put_line ( g_pkg_name
7250: || '.'
7251: || l_api_name
7252: || ' proceed with resource validation for '
7253: || l_batchstep_resource_rec.resources);
7267: INTO l_min_capacity, l_max_capacity, l_capacity_constraint
7268: ,l_capacity_um, l_usage_uom, l_delete_mark
7269: ,l_capacity_tolerance;
7270:
7271: IF g_debug <= gme_debug.g_log_procedure THEN
7272: gme_debug.put_line ('after rsrc hdr fetch ');
7273: END IF;
7274:
7275: IF cur_get_rsrc_hdr%NOTFOUND OR l_delete_mark = 1 THEN
7268: ,l_capacity_um, l_usage_uom, l_delete_mark
7269: ,l_capacity_tolerance;
7270:
7271: IF g_debug <= gme_debug.g_log_procedure THEN
7272: gme_debug.put_line ('after rsrc hdr fetch ');
7273: END IF;
7274:
7275: IF cur_get_rsrc_hdr%NOTFOUND OR l_delete_mark = 1 THEN
7276: CLOSE cur_get_rsrc_dtl;
7285: END IF;
7286:
7287: CLOSE cur_get_rsrc_dtl;
7288:
7289: IF g_debug <= gme_debug.g_log_statement THEN
7290: gme_debug.put_line ( g_pkg_name
7291: || '.'
7292: || l_api_name
7293: || ' retrieve step status for batchstep_id'
7286:
7287: CLOSE cur_get_rsrc_dtl;
7288:
7289: IF g_debug <= gme_debug.g_log_statement THEN
7290: gme_debug.put_line ( g_pkg_name
7291: || '.'
7292: || l_api_name
7293: || ' retrieve step status for batchstep_id'
7294: || l_batchstep_resource_rec.batchstep_id);
7308: ,'GME_BATCH_STEPS');
7309: RAISE fnd_api.g_exc_error;
7310: END IF;
7311:
7312: IF g_debug <= gme_debug.g_log_statement THEN
7313: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' step_status
7314: is ' || l_step_status);
7315: END IF;
7316:
7309: RAISE fnd_api.g_exc_error;
7310: END IF;
7311:
7312: IF g_debug <= gme_debug.g_log_statement THEN
7313: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' step_status
7314: is ' || l_step_status);
7315: END IF;
7316:
7317: CLOSE cur_get_step_status;
7315: END IF;
7316:
7317: CLOSE cur_get_step_status;
7318:
7319: IF g_debug <= gme_debug.g_log_statement THEN
7320: gme_debug.put_line ( g_pkg_name
7321: || '.'
7322: || l_api_name
7323: || ' Invoke validate_rsrc_param');
7316:
7317: CLOSE cur_get_step_status;
7318:
7319: IF g_debug <= gme_debug.g_log_statement THEN
7320: gme_debug.put_line ( g_pkg_name
7321: || '.'
7322: || l_api_name
7323: || ' Invoke validate_rsrc_param');
7324: END IF;
7340: ,x_batchstep_resource_rec => l_batchstep_resource_rec_out
7341: ,x_step_status => l_step_status
7342: ,x_return_status => l_return_status);
7343:
7344: IF g_debug <= gme_debug.g_log_statement THEN
7345: gme_debug.put_line ( g_pkg_name
7346: || '.'
7347: || l_api_name
7348: || ' validate_rsrc_param returns '
7341: ,x_step_status => l_step_status
7342: ,x_return_status => l_return_status);
7343:
7344: IF g_debug <= gme_debug.g_log_statement THEN
7345: gme_debug.put_line ( g_pkg_name
7346: || '.'
7347: || l_api_name
7348: || ' validate_rsrc_param returns '
7349: || l_return_status);
7356: RAISE fnd_api.g_exc_error;
7357: END IF;
7358:
7359: -- Set capacity data
7360: IF g_debug <= gme_debug.g_log_statement THEN
7361: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7362: ' set capacity data as follows ');
7363: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7364: ' usage_um => ' || l_usage_uom);
7357: END IF;
7358:
7359: -- Set capacity data
7360: IF g_debug <= gme_debug.g_log_statement THEN
7361: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7362: ' set capacity data as follows ');
7363: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7364: ' usage_um => ' || l_usage_uom);
7365: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7359: -- Set capacity data
7360: IF g_debug <= gme_debug.g_log_statement THEN
7361: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7362: ' set capacity data as follows ');
7363: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7364: ' usage_um => ' || l_usage_uom);
7365: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7366: ' capacity_um => ' || l_capacity_um);
7367: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7361: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7362: ' set capacity data as follows ');
7363: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7364: ' usage_um => ' || l_usage_uom);
7365: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7366: ' capacity_um => ' || l_capacity_um);
7367: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7368: ' min_capacity => ' || l_min_capacity);
7369: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || '
7363: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7364: ' usage_um => ' || l_usage_uom);
7365: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7366: ' capacity_um => ' || l_capacity_um);
7367: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7368: ' min_capacity => ' || l_min_capacity);
7369: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || '
7370: max_capacity => ' || l_max_capacity);
7371: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7365: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7366: ' capacity_um => ' || l_capacity_um);
7367: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7368: ' min_capacity => ' || l_min_capacity);
7369: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || '
7370: max_capacity => ' || l_max_capacity);
7371: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7372: ' capacity tolerance => '|| l_capacity_tolerance);
7373: END IF;
7367: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7368: ' min_capacity => ' || l_min_capacity);
7369: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || '
7370: max_capacity => ' || l_max_capacity);
7371: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
7372: ' capacity tolerance => '|| l_capacity_tolerance);
7373: END IF;
7374:
7375: l_batchstep_resource_rec := l_batchstep_resource_rec_out;
7382: IF l_batchstep_resource_rec.offset_interval IS NULL THEN
7383: l_batchstep_resource_rec.offset_interval := 0;
7384: END IF;
7385:
7386: IF g_debug <= gme_debug.g_log_statement THEN
7387: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
7388: || ' invoke private layer insert_batchstep_rsrc');
7389: END IF;
7390:
7383: l_batchstep_resource_rec.offset_interval := 0;
7384: END IF;
7385:
7386: IF g_debug <= gme_debug.g_log_statement THEN
7387: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
7388: || ' invoke private layer insert_batchstep_rsrc');
7389: END IF;
7390:
7391: gme_batchstep_rsrc_pvt.insert_batchstep_rsrc
7392: (p_batchstep_resource_rec => l_batchstep_resource_rec
7393: ,x_batchstep_resource_rec => x_batchstep_resource_rec
7394: ,x_return_status => x_return_status);
7395:
7396: IF g_debug <= gme_debug.g_log_statement THEN
7397: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || '
7398: insert_batchstep_rsrc returns '|| x_return_status);
7399: END IF;
7400:
7393: ,x_batchstep_resource_rec => x_batchstep_resource_rec
7394: ,x_return_status => x_return_status);
7395:
7396: IF g_debug <= gme_debug.g_log_statement THEN
7397: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || '
7398: insert_batchstep_rsrc returns '|| x_return_status);
7399: END IF;
7400:
7401: IF x_return_status = fnd_api.g_ret_sts_success THEN
7398: insert_batchstep_rsrc returns '|| x_return_status);
7399: END IF;
7400:
7401: IF x_return_status = fnd_api.g_ret_sts_success THEN
7402: IF g_debug <= gme_debug.g_log_statement THEN
7403: gme_debug.put_line ( g_pkg_name
7404: || '.'
7405: || l_api_name
7406: || ' invoke save_batch');
7399: END IF;
7400:
7401: IF x_return_status = fnd_api.g_ret_sts_success THEN
7402: IF g_debug <= gme_debug.g_log_statement THEN
7403: gme_debug.put_line ( g_pkg_name
7404: || '.'
7405: || l_api_name
7406: || ' invoke save_batch');
7407: END IF;
7410: ,p_table => NULL
7411: ,p_commit => p_commit
7412: ,x_return_status => x_return_status);
7413:
7414: IF g_debug <= gme_debug.g_log_statement THEN
7415: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || '
7416: save_batch returns '|| x_return_status);
7417: END IF;
7418:
7411: ,p_commit => p_commit
7412: ,x_return_status => x_return_status);
7413:
7414: IF g_debug <= gme_debug.g_log_statement THEN
7415: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || '
7416: save_batch returns '|| x_return_status);
7417: END IF;
7418:
7419: IF x_return_status <> fnd_api.g_ret_sts_success THEN
7422: ELSE
7423: RAISE insert_rsrc_failed;
7424: END IF;
7425:
7426: IF g_debug <= gme_debug.g_log_procedure THEN
7427: gme_debug.put_line ( ' Completed ' || g_pkg_name || '.' || l_api_name
7428: || ' at ' || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
7429: END IF;
7430:
7423: RAISE insert_rsrc_failed;
7424: END IF;
7425:
7426: IF g_debug <= gme_debug.g_log_procedure THEN
7427: gme_debug.put_line ( ' Completed ' || g_pkg_name || '.' || l_api_name
7428: || ' at ' || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
7429: END IF;
7430:
7431: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
7492: /* Set the savepoint */
7493: SAVEPOINT update_batchstep_rsrc;
7494:
7495: IF (g_debug <> -1) THEN
7496: gme_debug.log_initialize ('UpdateBatchstepResource');
7497: END IF;
7498:
7499: IF g_debug <= gme_debug.g_log_procedure THEN
7500: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
7495: IF (g_debug <> -1) THEN
7496: gme_debug.log_initialize ('UpdateBatchstepResource');
7497: END IF;
7498:
7499: IF g_debug <= gme_debug.g_log_procedure THEN
7500: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
7501: || l_api_name);
7502: END IF;
7503:
7496: gme_debug.log_initialize ('UpdateBatchstepResource');
7497: END IF;
7498:
7499: IF g_debug <= gme_debug.g_log_procedure THEN
7500: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
7501: || l_api_name);
7502: END IF;
7503:
7504: /* Set the return status to success initially */
7524: l_batchstep_resource_rec := p_batchstep_resource_rec;
7525: gme_common_pvt.g_check_primary_rsrc := 1;
7526:
7527: /* Retrieve the row to be updated */
7528: IF g_debug <= gme_debug.g_log_statement THEN
7529: gme_debug.put_line ( g_pkg_name
7530: || '.'
7531: || l_api_name
7532: || 'Invoke get_batchstep_rsrc');
7525: gme_common_pvt.g_check_primary_rsrc := 1;
7526:
7527: /* Retrieve the row to be updated */
7528: IF g_debug <= gme_debug.g_log_statement THEN
7529: gme_debug.put_line ( g_pkg_name
7530: || '.'
7531: || l_api_name
7532: || 'Invoke get_batchstep_rsrc');
7533: END IF;
7539: ,p_batchstep_no => p_batchstep_no
7540: ,p_activity => p_activity
7541: ,p_resource => l_batchstep_resource_rec.resources
7542: ,x_batchstep_rsrc_rec => l_batchstep_resource_rec_out) THEN
7543: IF g_debug <= gme_debug.g_log_statement THEN
7544: gme_debug.put_line ( g_pkg_name
7545: || '.'
7546: || l_api_name
7547: || ' get_batchstep_rsrc failed to retrieve row');
7540: ,p_activity => p_activity
7541: ,p_resource => l_batchstep_resource_rec.resources
7542: ,x_batchstep_rsrc_rec => l_batchstep_resource_rec_out) THEN
7543: IF g_debug <= gme_debug.g_log_statement THEN
7544: gme_debug.put_line ( g_pkg_name
7545: || '.'
7546: || l_api_name
7547: || ' get_batchstep_rsrc failed to retrieve row');
7548: END IF;
7564: l_batchstep_resource_rec_out.batchstep_activity_id;
7565: l_batchstep_resource_rec.resources :=
7566: l_batchstep_resource_rec_out.resources;
7567:
7568: IF g_debug <= gme_debug.g_log_statement THEN
7569: gme_debug.put_line ( g_pkg_name
7570: || '.'
7571: || l_api_name
7572: || ' batchstep_resource_id is '
7565: l_batchstep_resource_rec.resources :=
7566: l_batchstep_resource_rec_out.resources;
7567:
7568: IF g_debug <= gme_debug.g_log_statement THEN
7569: gme_debug.put_line ( g_pkg_name
7570: || '.'
7571: || l_api_name
7572: || ' batchstep_resource_id is '
7573: || l_batchstep_resource_rec.batchstep_resource_id);
7574: END IF;
7575:
7576: /* Setup the common constants used accross the apis */
7577: /* This will raise an error if both organization_id and org_code are null values */
7578: IF g_debug <= gme_debug.g_log_statement THEN
7579: gme_debug.put_line ( g_pkg_name
7580: || '.'
7581: || l_api_name
7582: || ' Invoking setup for org_id '
7575:
7576: /* Setup the common constants used accross the apis */
7577: /* This will raise an error if both organization_id and org_code are null values */
7578: IF g_debug <= gme_debug.g_log_statement THEN
7579: gme_debug.put_line ( g_pkg_name
7580: || '.'
7581: || l_api_name
7582: || ' Invoking setup for org_id '
7583: || p_batchstep_resource_rec.organization_id
7590: (p_org_id => l_batchstep_resource_rec.organization_id
7591: ,p_org_code => p_org_code);
7592:
7593: IF NOT gme_common_pvt.g_setup_done THEN
7594: IF g_debug <= gme_debug.g_log_statement THEN
7595: gme_debug.put_line ( g_pkg_name
7596: || '.'
7597: || l_api_name
7598: || ' setup failure ');
7591: ,p_org_code => p_org_code);
7592:
7593: IF NOT gme_common_pvt.g_setup_done THEN
7594: IF g_debug <= gme_debug.g_log_statement THEN
7595: gme_debug.put_line ( g_pkg_name
7596: || '.'
7597: || l_api_name
7598: || ' setup failure ');
7599: END IF;
7601: RAISE fnd_api.g_exc_error;
7602: END IF;
7603:
7604: /* Establish the step_status of the batchstep */
7605: IF g_debug <= gme_debug.g_log_statement THEN
7606: gme_debug.put_line ( g_pkg_name
7607: || '.'
7608: || l_api_name
7609: || ' retrieve step status for batchstep_id '
7602: END IF;
7603:
7604: /* Establish the step_status of the batchstep */
7605: IF g_debug <= gme_debug.g_log_statement THEN
7606: gme_debug.put_line ( g_pkg_name
7607: || '.'
7608: || l_api_name
7609: || ' retrieve step status for batchstep_id '
7610: || l_batchstep_resource_rec.batchstep_id);
7624: ,l_batchstep_resource_rec.batchstep_id);
7625: RAISE fnd_api.g_exc_error;
7626: END IF;
7627:
7628: IF g_debug <= gme_debug.g_log_statement THEN
7629: gme_debug.put_line ( g_pkg_name
7630: || '.'
7631: || l_api_name
7632: || ' step_status is '
7625: RAISE fnd_api.g_exc_error;
7626: END IF;
7627:
7628: IF g_debug <= gme_debug.g_log_statement THEN
7629: gme_debug.put_line ( g_pkg_name
7630: || '.'
7631: || l_api_name
7632: || ' step_status is '
7633: || l_step_status);
7652: ,x_batchstep_resource_rec => l_batchstep_resource_rec_out
7653: ,x_step_status => l_step_status
7654: ,x_return_status => l_return_status);
7655:
7656: IF g_debug <= gme_debug.g_log_statement THEN
7657: gme_debug.put_line ('val rsrc param returns ' || l_return_status);
7658: END IF;
7659:
7660: --FPBug#4395561 resetting global flex field validate
7653: ,x_step_status => l_step_status
7654: ,x_return_status => l_return_status);
7655:
7656: IF g_debug <= gme_debug.g_log_statement THEN
7657: gme_debug.put_line ('val rsrc param returns ' || l_return_status);
7658: END IF;
7659:
7660: --FPBug#4395561 resetting global flex field validate
7661: gme_common_pvt.g_flex_validate_prof := 0;
7665: END IF;
7666:
7667: l_batchstep_resource_rec := l_batchstep_resource_rec_out;
7668:
7669: IF g_debug <= gme_debug.g_log_statement THEN
7670: gme_debug.put_line
7671: ( g_pkg_name
7672: || '.'
7673: || l_api_name
7666:
7667: l_batchstep_resource_rec := l_batchstep_resource_rec_out;
7668:
7669: IF g_debug <= gme_debug.g_log_statement THEN
7670: gme_debug.put_line
7671: ( g_pkg_name
7672: || '.'
7673: || l_api_name
7674: || ' Invoke gme_batchstep_rsrc_pvt.update_batchstep_rsrc');
7678: (p_batchstep_resource_rec => l_batchstep_resource_rec
7679: ,x_batchstep_resource_rec => x_batchstep_resource_rec
7680: ,x_return_status => x_return_status);
7681:
7682: IF g_debug <= gme_debug.g_log_statement THEN
7683: gme_debug.put_line ( g_pkg_name
7684: || '.'
7685: || l_api_name
7686: || ' update_batchstep_rsrc returns '
7679: ,x_batchstep_resource_rec => x_batchstep_resource_rec
7680: ,x_return_status => x_return_status);
7681:
7682: IF g_debug <= gme_debug.g_log_statement THEN
7683: gme_debug.put_line ( g_pkg_name
7684: || '.'
7685: || l_api_name
7686: || ' update_batchstep_rsrc returns '
7687: || x_return_status);
7687: || x_return_status);
7688: END IF;
7689:
7690: IF x_return_status = fnd_api.g_ret_sts_success THEN
7691: IF g_debug <= gme_debug.g_log_statement THEN
7692: gme_debug.put_line ( g_pkg_name
7693: || '.'
7694: || l_api_name
7695: || ' invoke save_batch with commit ='
7688: END IF;
7689:
7690: IF x_return_status = fnd_api.g_ret_sts_success THEN
7691: IF g_debug <= gme_debug.g_log_statement THEN
7692: gme_debug.put_line ( g_pkg_name
7693: || '.'
7694: || l_api_name
7695: || ' invoke save_batch with commit ='
7696: || p_commit);
7701: ,p_table => null
7702: ,p_commit => p_commit
7703: ,x_return_status => x_return_status);
7704:
7705: IF g_debug <= gme_debug.g_log_statement THEN
7706: gme_debug.put_line ( g_pkg_name
7707: || '.'
7708: || l_api_name
7709: || ' save_batch return_status is '
7702: ,p_commit => p_commit
7703: ,x_return_status => x_return_status);
7704:
7705: IF g_debug <= gme_debug.g_log_statement THEN
7706: gme_debug.put_line ( g_pkg_name
7707: || '.'
7708: || l_api_name
7709: || ' save_batch return_status is '
7710: || x_return_status);
7721: gme_common_pvt.count_and_get(x_count => x_message_count
7722: ,p_encoded => fnd_api.g_false
7723: ,x_data => x_message_list);
7724:
7725: IF g_debug <= gme_debug.g_log_procedure THEN
7726: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
7727: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
7728: END IF;
7729: EXCEPTION
7722: ,p_encoded => fnd_api.g_false
7723: ,x_data => x_message_list);
7724:
7725: IF g_debug <= gme_debug.g_log_procedure THEN
7726: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
7727: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
7728: END IF;
7729: EXCEPTION
7730: WHEN update_rsrc_failed THEN
7800: /* Set the savepoint */
7801: SAVEPOINT delete_batchstep_rsrc;
7802:
7803: IF g_debug <> -1 THEN
7804: gme_debug.log_initialize ('DeleteBatchstepResource');
7805: END IF;
7806:
7807: IF g_debug <= gme_debug.g_log_procedure THEN
7808: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
7803: IF g_debug <> -1 THEN
7804: gme_debug.log_initialize ('DeleteBatchstepResource');
7805: END IF;
7806:
7807: IF g_debug <= gme_debug.g_log_procedure THEN
7808: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
7809: || l_api_name);
7810: END IF;
7811:
7804: gme_debug.log_initialize ('DeleteBatchstepResource');
7805: END IF;
7806:
7807: IF g_debug <= gme_debug.g_log_procedure THEN
7808: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
7809: || l_api_name);
7810: END IF;
7811:
7812: /* Set the return status to success initially */
7830: END IF;
7831:
7832: gme_common_pvt.g_check_primary_rsrc := 1;
7833:
7834: IF (g_debug <= gme_debug.g_log_statement) THEN
7835: gme_debug.put_line ( g_pkg_name
7836: || '.'
7837: || l_api_name
7838: || ':'
7831:
7832: gme_common_pvt.g_check_primary_rsrc := 1;
7833:
7834: IF (g_debug <= gme_debug.g_log_statement) THEN
7835: gme_debug.put_line ( g_pkg_name
7836: || '.'
7837: || l_api_name
7838: || ':'
7839: || 'input data - p_batchstep_resource_id is : '
7851: END IF;
7852:
7853: /* validate key values where no internal ID provided */
7854: IF p_batchstep_resource_id IS NULL THEN
7855: IF g_debug <= gme_debug.g_log_statement THEN
7856: gme_debug.put_line ( g_pkg_name
7857: || '.'
7858: || l_api_name
7859: || ' Invoke validate param ');
7852:
7853: /* validate key values where no internal ID provided */
7854: IF p_batchstep_resource_id IS NULL THEN
7855: IF g_debug <= gme_debug.g_log_statement THEN
7856: gme_debug.put_line ( g_pkg_name
7857: || '.'
7858: || l_api_name
7859: || ' Invoke validate param ');
7860: END IF;
7872: ,x_rsrc_id => l_rsrc_id
7873: ,x_step_status => l_step_status
7874: ,x_return_status => l_return_status);
7875:
7876: IF g_debug <= gme_debug.g_log_statement THEN
7877: gme_debug.put_line ( g_pkg_name
7878: || '.'
7879: || l_api_name
7880: || ':'
7873: ,x_step_status => l_step_status
7874: ,x_return_status => l_return_status);
7875:
7876: IF g_debug <= gme_debug.g_log_statement THEN
7877: gme_debug.put_line ( g_pkg_name
7878: || '.'
7879: || l_api_name
7880: || ':'
7881: || 'validate_param returns status : '
7887: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7888: RAISE fnd_api.g_exc_error;
7889: END IF;
7890: ELSE
7891: IF g_debug <= gme_debug.g_log_statement THEN
7892: gme_debug.put_line ( g_pkg_name
7893: || '.'
7894: || l_api_name
7895: || 'Working with Input batchstep resource id : '
7888: RAISE fnd_api.g_exc_error;
7889: END IF;
7890: ELSE
7891: IF g_debug <= gme_debug.g_log_statement THEN
7892: gme_debug.put_line ( g_pkg_name
7893: || '.'
7894: || l_api_name
7895: || 'Working with Input batchstep resource id : '
7896: || p_batchstep_resource_id);
7898:
7899: l_rsrc_id := p_batchstep_resource_id;
7900: END IF;
7901:
7902: IF g_debug <= gme_debug.g_log_statement THEN
7903: gme_debug.put_line ( g_pkg_name
7904: || '.'
7905: || l_api_name
7906: || ' retrieve batch step detail using id => '
7899: l_rsrc_id := p_batchstep_resource_id;
7900: END IF;
7901:
7902: IF g_debug <= gme_debug.g_log_statement THEN
7903: gme_debug.put_line ( g_pkg_name
7904: || '.'
7905: || l_api_name
7906: || ' retrieve batch step detail using id => '
7907: || l_rsrc_id);
7923: CLOSE cur_get_step_dtl;
7924:
7925: /* Setup the common constants used across the apis */
7926: /* This will raise an error if both organization_id and org_code are null values */
7927: IF g_debug <= gme_debug.g_log_statement THEN
7928: gme_debug.put_line ( g_pkg_name
7929: || '.'
7930: || l_api_name
7931: || ' invoke setup using org_id => '
7924:
7925: /* Setup the common constants used across the apis */
7926: /* This will raise an error if both organization_id and org_code are null values */
7927: IF g_debug <= gme_debug.g_log_statement THEN
7928: gme_debug.put_line ( g_pkg_name
7929: || '.'
7930: || l_api_name
7931: || ' invoke setup using org_id => '
7932: || l_organization_id
7942: RAISE fnd_api.g_exc_error;
7943: END IF;
7944:
7945: /* Validations prior to deletion */
7946: IF g_debug <= gme_debug.g_log_statement THEN
7947: gme_debug.put_line ( g_pkg_name
7948: || '.'
7949: || l_api_name
7950: || ' start of validations');
7943: END IF;
7944:
7945: /* Validations prior to deletion */
7946: IF g_debug <= gme_debug.g_log_statement THEN
7947: gme_debug.put_line ( g_pkg_name
7948: || '.'
7949: || l_api_name
7950: || ' start of validations');
7951: END IF;
7966:
7967: CLOSE cur_validate_batch_type;
7968: END IF;
7969:
7970: IF g_debug <= gme_debug.g_log_statement THEN
7971: gme_debug.put_line ( g_pkg_name
7972: || '.'
7973: || l_api_name
7974: || ' validate batch_status of '
7967: CLOSE cur_validate_batch_type;
7968: END IF;
7969:
7970: IF g_debug <= gme_debug.g_log_statement THEN
7971: gme_debug.put_line ( g_pkg_name
7972: || '.'
7973: || l_api_name
7974: || ' validate batch_status of '
7975: || l_batch_status);
7972: || '.'
7973: || l_api_name
7974: || ' validate batch_status of '
7975: || l_batch_status);
7976: gme_debug.put_line ( g_pkg_name
7977: || '.'
7978: || l_api_name
7979: || ' validate step_status of '
7980: || l_step_status);
8002: l_batchstep_resource_rec.batchstep_id := l_batchstep_id;
8003: l_batchstep_resource_rec.batchstep_activity_id := l_activity_id;
8004: l_batchstep_resource_rec.batchstep_resource_id := l_rsrc_id;
8005:
8006: IF g_debug <= gme_debug.g_log_statement THEN
8007: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8008: ' invoke gme_batchstep_rsrc_pvt.delete_batchstep_rsrc ');
8009: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8010: 'organization_id => ' || l_organization_id);
8003: l_batchstep_resource_rec.batchstep_activity_id := l_activity_id;
8004: l_batchstep_resource_rec.batchstep_resource_id := l_rsrc_id;
8005:
8006: IF g_debug <= gme_debug.g_log_statement THEN
8007: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8008: ' invoke gme_batchstep_rsrc_pvt.delete_batchstep_rsrc ');
8009: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8010: 'organization_id => ' || l_organization_id);
8011: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8005:
8006: IF g_debug <= gme_debug.g_log_statement THEN
8007: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8008: ' invoke gme_batchstep_rsrc_pvt.delete_batchstep_rsrc ');
8009: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8010: 'organization_id => ' || l_organization_id);
8011: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8012: ' batch_id => ' || l_batch_id);
8013: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8007: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8008: ' invoke gme_batchstep_rsrc_pvt.delete_batchstep_rsrc ');
8009: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8010: 'organization_id => ' || l_organization_id);
8011: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8012: ' batch_id => ' || l_batch_id);
8013: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8014: 'batchstep_id => ' || l_batchstep_id);
8015: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8009: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8010: 'organization_id => ' || l_organization_id);
8011: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8012: ' batch_id => ' || l_batch_id);
8013: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8014: 'batchstep_id => ' || l_batchstep_id);
8015: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8016: ' activity_id => ' || l_activity_id);
8017: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8011: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8012: ' batch_id => ' || l_batch_id);
8013: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8014: 'batchstep_id => ' || l_batchstep_id);
8015: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8016: ' activity_id => ' || l_activity_id);
8017: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8018: 'batchstep_resource_id => ' || l_rsrc_id);
8019: END IF;
8013: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8014: 'batchstep_id => ' || l_batchstep_id);
8015: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8016: ' activity_id => ' || l_activity_id);
8017: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8018: 'batchstep_resource_id => ' || l_rsrc_id);
8019: END IF;
8020:
8021: gme_batchstep_rsrc_pvt.delete_batchstep_rsrc
8021: gme_batchstep_rsrc_pvt.delete_batchstep_rsrc
8022: (p_batchstep_resource_rec => l_batchstep_resource_rec
8023: ,x_return_status => x_return_status);
8024:
8025: IF g_debug <= gme_debug.g_log_statement THEN
8026: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' return
8027: status from delete is ' || x_return_status);
8028: END IF;
8029:
8022: (p_batchstep_resource_rec => l_batchstep_resource_rec
8023: ,x_return_status => x_return_status);
8024:
8025: IF g_debug <= gme_debug.g_log_statement THEN
8026: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' return
8027: status from delete is ' || x_return_status);
8028: END IF;
8029:
8030: IF x_return_status = fnd_api.g_ret_sts_success THEN
8027: status from delete is ' || x_return_status);
8028: END IF;
8029:
8030: IF x_return_status = fnd_api.g_ret_sts_success THEN
8031: IF g_debug <= gme_debug.g_log_statement THEN
8032: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' invoke
8033: save_batch tith commit set ' || p_commit);
8034: END IF;
8035:
8028: END IF;
8029:
8030: IF x_return_status = fnd_api.g_ret_sts_success THEN
8031: IF g_debug <= gme_debug.g_log_statement THEN
8032: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' invoke
8033: save_batch tith commit set ' || p_commit);
8034: END IF;
8035:
8036: gme_api_pub.save_batch
8038: ,p_table => null
8039: ,p_commit => p_commit
8040: ,x_return_status => x_return_status);
8041:
8042: IF g_debug <= gme_debug.g_log_statement THEN
8043: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' return
8044: status from save_batch is '
8045: || x_return_status);
8046: END IF;
8039: ,p_commit => p_commit
8040: ,x_return_status => x_return_status);
8041:
8042: IF g_debug <= gme_debug.g_log_statement THEN
8043: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' return
8044: status from save_batch is '
8045: || x_return_status);
8046: END IF;
8047:
8051: ELSE
8052: RAISE delete_rsrc_failed;
8053: END IF;
8054:
8055: IF g_debug <= gme_debug.g_log_procedure THEN
8056: gme_debug.put_line ( ' Completed ' || l_api_name || ' at '
8057: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
8058: END IF;
8059: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
8052: RAISE delete_rsrc_failed;
8053: END IF;
8054:
8055: IF g_debug <= gme_debug.g_log_procedure THEN
8056: gme_debug.put_line ( ' Completed ' || l_api_name || ' at '
8057: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
8058: END IF;
8059: gme_common_pvt.log_message ('PM_SAVED_CHANGES');
8060: gme_common_pvt.count_and_get(x_count => x_message_count
8110:
8111: auto_detail_error EXCEPTION;
8112: BEGIN
8113: IF (g_debug <> -1) THEN
8114: gme_debug.log_initialize ('AutoDetailLine');
8115: END IF;
8116:
8117: IF g_debug <= gme_debug.g_log_procedure THEN
8118: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8113: IF (g_debug <> -1) THEN
8114: gme_debug.log_initialize ('AutoDetailLine');
8115: END IF;
8116:
8117: IF g_debug <= gme_debug.g_log_procedure THEN
8118: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8119: || l_api_name);
8120: END IF;
8121:
8114: gme_debug.log_initialize ('AutoDetailLine');
8115: END IF;
8116:
8117: IF g_debug <= gme_debug.g_log_procedure THEN
8118: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8119: || l_api_name);
8120: END IF;
8121:
8122: /* Set the savepoint */
8135: gme_common_pvt.log_message ('GME_INVALID_API_VERSION');
8136: RAISE fnd_api.g_exc_error;
8137: END IF;
8138:
8139: IF g_debug <= gme_debug.g_log_statement THEN
8140: gme_debug.put_line (
8141: g_pkg_name || '.' || l_api_name ||
8142: ' input material_detail_id is ' || p_material_detail_id ||
8143: ' input batch_no is ' || p_batch_no ||
8136: RAISE fnd_api.g_exc_error;
8137: END IF;
8138:
8139: IF g_debug <= gme_debug.g_log_statement THEN
8140: gme_debug.put_line (
8141: g_pkg_name || '.' || l_api_name ||
8142: ' input material_detail_id is ' || p_material_detail_id ||
8143: ' input batch_no is ' || p_batch_no ||
8144: ' input org_code is ' || p_org_code ||
8159: ,x_message_count => x_message_count
8160: ,x_message_list => x_message_list
8161: ,x_return_status => x_return_status );
8162: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8163: IF (g_debug = gme_debug.g_log_statement) THEN
8164: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
8165: || ': batch mateiral validate error ');
8166: END IF;
8167: RAISE fnd_api.g_exc_error;
8160: ,x_message_list => x_message_list
8161: ,x_return_status => x_return_status );
8162: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8163: IF (g_debug = gme_debug.g_log_statement) THEN
8164: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
8165: || ': batch mateiral validate error ');
8166: END IF;
8167: RAISE fnd_api.g_exc_error;
8168: ELSE
8170: END IF;
8171: gme_common_pvt.set_timestamp;
8172:
8173: /* Validate the demand source - it must be a valid ingredient line */
8174: IF g_debug <= gme_debug.g_log_statement THEN
8175: gme_debug.put_line
8176: ( g_pkg_name
8177: || '.'
8178: || l_api_name
8171: gme_common_pvt.set_timestamp;
8172:
8173: /* Validate the demand source - it must be a valid ingredient line */
8174: IF g_debug <= gme_debug.g_log_statement THEN
8175: gme_debug.put_line
8176: ( g_pkg_name
8177: || '.'
8178: || l_api_name
8179: || ' Invoke validate_supply_demand for demand line of '
8196: p_expected_receipt_date => NULL,
8197: p_api_version_number => 1.0,
8198: p_init_msg_lst => FND_API.G_FALSE );
8199:
8200: IF g_debug <= gme_debug.g_log_statement THEN
8201: gme_debug.put_line
8202: ( g_pkg_name
8203: || '.'
8204: || l_api_name
8197: p_api_version_number => 1.0,
8198: p_init_msg_lst => FND_API.G_FALSE );
8199:
8200: IF g_debug <= gme_debug.g_log_statement THEN
8201: gme_debug.put_line
8202: ( g_pkg_name
8203: || '.'
8204: || l_api_name
8205: || ' Return status from gme_api_grp.validate_supply_demand is '
8203: || '.'
8204: || l_api_name
8205: || ' Return status from gme_api_grp.validate_supply_demand is '
8206: || x_return_status);
8207: gme_debug.put_line(g_pkg_name
8208: ||'.'
8209: ||l_api_name
8210: || ' valid status is '
8211: || l_valid_status);
8223: ,x_message_count => x_message_count
8224: ,x_message_list => x_message_list
8225: ,x_return_status => x_return_status);
8226:
8227: IF g_debug <= gme_debug.g_log_statement THEN
8228: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8229: ' Return status from GME_API_MAIN.Auto_Detail_Line is '
8230: || x_return_status);
8231: END IF;
8224: ,x_message_list => x_message_list
8225: ,x_return_status => x_return_status);
8226:
8227: IF g_debug <= gme_debug.g_log_statement THEN
8228: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
8229: ' Return status from GME_API_MAIN.Auto_Detail_Line is '
8230: || x_return_status);
8231: END IF;
8232:
8238: IF p_commit = fnd_api.g_true THEN
8239: COMMIT;
8240: END IF;
8241:
8242: IF g_debug <= gme_debug.g_log_procedure THEN
8243: gme_debug.put_line ( ' Completed '
8244: || g_pkg_name
8245: || '.'
8246: || l_api_name
8239: COMMIT;
8240: END IF;
8241:
8242: IF g_debug <= gme_debug.g_log_procedure THEN
8243: gme_debug.put_line ( ' Completed '
8244: || g_pkg_name
8245: || '.'
8246: || l_api_name
8247: || ' at '
8283:
8284: auto_detail_error EXCEPTION;
8285: BEGIN
8286: IF (g_debug <> -1) THEN
8287: gme_debug.log_initialize ('AutoDetailBatch');
8288: END IF;
8289:
8290: IF g_debug <= gme_debug.g_log_procedure THEN
8291: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
8286: IF (g_debug <> -1) THEN
8287: gme_debug.log_initialize ('AutoDetailBatch');
8288: END IF;
8289:
8290: IF g_debug <= gme_debug.g_log_procedure THEN
8291: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
8292: END IF;
8293:
8294: /* Set the savepoint */
8287: gme_debug.log_initialize ('AutoDetailBatch');
8288: END IF;
8289:
8290: IF g_debug <= gme_debug.g_log_procedure THEN
8291: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
8292: END IF;
8293:
8294: /* Set the savepoint */
8295: SAVEPOINT auto_detail_batch;
8308: gme_common_pvt.log_message ('GME_INVALID_API_VERSION');
8309: RAISE fnd_api.g_exc_error;
8310: END IF;
8311:
8312: IF g_debug <= gme_debug.g_log_statement THEN
8313: gme_debug.put_line( g_pkg_name
8314: ||'.'
8315: ||l_api_name
8316: || 'Retrieve batch header row'
8309: RAISE fnd_api.g_exc_error;
8310: END IF;
8311:
8312: IF g_debug <= gme_debug.g_log_statement THEN
8313: gme_debug.put_line( g_pkg_name
8314: ||'.'
8315: ||l_api_name
8316: || 'Retrieve batch header row'
8317: || ' Input org_code is '
8334: IF NOT gme_common_pvt.g_setup_done THEN
8335: RAISE fnd_api.g_exc_error;
8336: ELSE
8337: l_batch_rec.organization_id := gme_common_pvt.g_organization_id;
8338: IF g_debug <= gme_debug.g_log_statement THEN
8339: gme_debug.put_line( g_pkg_name
8340: ||'.'
8341: ||l_api_name
8342: || ' Organization_id set to '
8335: RAISE fnd_api.g_exc_error;
8336: ELSE
8337: l_batch_rec.organization_id := gme_common_pvt.g_organization_id;
8338: IF g_debug <= gme_debug.g_log_statement THEN
8339: gme_debug.put_line( g_pkg_name
8340: ||'.'
8341: ||l_api_name
8342: || ' Organization_id set to '
8343: ||gme_common_pvt.g_organization_id);
8397: ,x_message_list => x_message_list
8398: ,x_return_status => x_return_status
8399: ,p_batch_rec => l_batch_header_rec);
8400:
8401: IF g_debug <= gme_debug.g_log_statement THEN
8402: gme_debug.put_line( g_pkg_name
8403: ||'.'
8404: ||l_api_name
8405: ||' Return status from GME_API_MAIN.Auto_Detail_Batch is '
8398: ,x_return_status => x_return_status
8399: ,p_batch_rec => l_batch_header_rec);
8400:
8401: IF g_debug <= gme_debug.g_log_statement THEN
8402: gme_debug.put_line( g_pkg_name
8403: ||'.'
8404: ||l_api_name
8405: ||' Return status from GME_API_MAIN.Auto_Detail_Batch is '
8406: ||x_return_status);
8414: IF p_commit = FND_API.G_TRUE THEN
8415: COMMIT;
8416: END IF;
8417:
8418: IF g_debug <= gme_debug.g_log_procedure THEN
8419: gme_debug.put_line ( ' Completed '
8420: ||g_pkg_name
8421: ||'.'
8422: || l_api_name
8415: COMMIT;
8416: END IF;
8417:
8418: IF g_debug <= gme_debug.g_log_procedure THEN
8419: gme_debug.put_line ( ' Completed '
8420: ||g_pkg_name
8421: ||'.'
8422: || l_api_name
8423: || ' at '
8501: SAVEPOINT insert_activity_pub;
8502:
8503: IF (g_debug <> -1)
8504: THEN
8505: gme_debug.log_initialize ('InsertBatchstepActivity');
8506: END IF;
8507:
8508: IF g_debug <= gme_debug.g_log_procedure THEN
8509: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8504: THEN
8505: gme_debug.log_initialize ('InsertBatchstepActivity');
8506: END IF;
8507:
8508: IF g_debug <= gme_debug.g_log_procedure THEN
8509: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8510: || l_api_name);
8511: END IF;
8512:
8505: gme_debug.log_initialize ('InsertBatchstepActivity');
8506: END IF;
8507:
8508: IF g_debug <= gme_debug.g_log_procedure THEN
8509: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8510: || l_api_name);
8511: END IF;
8512:
8513: IF (fnd_api.to_boolean (p_init_msg_list))
8585: p_encoded => fnd_api.g_false,
8586: x_data => x_message_list
8587: );
8588:
8589: IF g_debug <= gme_debug.g_log_procedure THEN
8590: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
8591: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
8592: END IF;
8593: EXCEPTION
8586: x_data => x_message_list
8587: );
8588:
8589: IF g_debug <= gme_debug.g_log_procedure THEN
8590: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
8591: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
8592: END IF;
8593: EXCEPTION
8594: WHEN insert_activity_failed THEN
8659: /* Set savepoint here */
8660: SAVEPOINT update_activity_pub;
8661:
8662: IF (g_debug <> -1) THEN
8663: gme_debug.log_initialize ('UpdateBatchstepActivity');
8664: END IF;
8665: IF g_debug <= gme_debug.g_log_procedure THEN
8666: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8667: || l_api_name);
8661:
8662: IF (g_debug <> -1) THEN
8663: gme_debug.log_initialize ('UpdateBatchstepActivity');
8664: END IF;
8665: IF g_debug <= gme_debug.g_log_procedure THEN
8666: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8667: || l_api_name);
8668: END IF;
8669:
8662: IF (g_debug <> -1) THEN
8663: gme_debug.log_initialize ('UpdateBatchstepActivity');
8664: END IF;
8665: IF g_debug <= gme_debug.g_log_procedure THEN
8666: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8667: || l_api_name);
8668: END IF;
8669:
8670: IF (fnd_api.to_boolean (p_init_msg_list)) THEN
8738: gme_common_pvt.count_and_get (x_count => x_message_count,
8739: p_encoded => fnd_api.g_false,
8740: x_data => x_message_list
8741: );
8742: IF g_debug <= gme_debug.g_log_procedure THEN
8743: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
8744: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
8745: END IF;
8746: EXCEPTION
8739: p_encoded => fnd_api.g_false,
8740: x_data => x_message_list
8741: );
8742: IF g_debug <= gme_debug.g_log_procedure THEN
8743: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
8744: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
8745: END IF;
8746: EXCEPTION
8747: WHEN update_activity_failed THEN
8809: /* Set savepoint here */
8810: SAVEPOINT delete_activity_pub;
8811:
8812: IF (g_debug <> -1) THEN
8813: gme_debug.log_initialize ('CreatePhantom');
8814: END IF;
8815:
8816: IF g_debug <= gme_debug.g_log_procedure THEN
8817: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8812: IF (g_debug <> -1) THEN
8813: gme_debug.log_initialize ('CreatePhantom');
8814: END IF;
8815:
8816: IF g_debug <= gme_debug.g_log_procedure THEN
8817: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8818: || l_api_name);
8819: END IF;
8820:
8813: gme_debug.log_initialize ('CreatePhantom');
8814: END IF;
8815:
8816: IF g_debug <= gme_debug.g_log_procedure THEN
8817: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8818: || l_api_name);
8819: END IF;
8820:
8821: IF (fnd_api.to_boolean (p_init_msg_list))
8878: p_encoded => fnd_api.g_false,
8879: x_data => x_message_list
8880: );
8881:
8882: IF g_debug <= gme_debug.g_log_procedure THEN
8883: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
8884: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
8885: END IF;
8886: EXCEPTION
8879: x_data => x_message_list
8880: );
8881:
8882: IF g_debug <= gme_debug.g_log_procedure THEN
8883: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
8884: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
8885: END IF;
8886: EXCEPTION
8887: WHEN delete_activity_failed THEN
8939: /* Set the savepoint before proceeding */
8940: SAVEPOINT convert_fpo;
8941:
8942: IF (g_debug <> -1) THEN
8943: gme_debug.log_initialize ('ConvertFPO');
8944: END IF;
8945:
8946: IF g_debug <= gme_debug.g_log_procedure THEN
8947: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8942: IF (g_debug <> -1) THEN
8943: gme_debug.log_initialize ('ConvertFPO');
8944: END IF;
8945:
8946: IF g_debug <= gme_debug.g_log_procedure THEN
8947: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8948: || l_api_name);
8949: END IF;
8950:
8943: gme_debug.log_initialize ('ConvertFPO');
8944: END IF;
8945:
8946: IF g_debug <= gme_debug.g_log_procedure THEN
8947: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
8948: || l_api_name);
8949: END IF;
8950:
8951: /* Set the return status to success initially */
8984: ELSIF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8985: RAISE fnd_api.g_exc_error;
8986: END IF;
8987:
8988: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
8989: gme_debug.put_line (g_pkg_name ||
8990: '.' ||
8991: l_api_name ||
8992: ' Do setup for org using org_code of '||
8985: RAISE fnd_api.g_exc_error;
8986: END IF;
8987:
8988: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
8989: gme_debug.put_line (g_pkg_name ||
8990: '.' ||
8991: l_api_name ||
8992: ' Do setup for org using org_code of '||
8993: p_org_code ||
9046:
9047: gme_common_pvt.count_and_get (x_count => x_message_count,
9048: p_encoded => FND_API.g_false,
9049: x_data => x_message_list);
9050: IF g_debug <= gme_debug.g_log_procedure THEN
9051: gme_debug.put_line ( 'Completed ' || l_api_name || ' at ' || TO_CHAR
9052: (SYSDATE, 'MM/DD/YYYY HH24:MI:SS'));
9053: END IF;
9054: EXCEPTION
9047: gme_common_pvt.count_and_get (x_count => x_message_count,
9048: p_encoded => FND_API.g_false,
9049: x_data => x_message_list);
9050: IF g_debug <= gme_debug.g_log_procedure THEN
9051: gme_debug.put_line ( 'Completed ' || l_api_name || ' at ' || TO_CHAR
9052: (SYSDATE, 'MM/DD/YYYY HH24:MI:SS'));
9053: END IF;
9054: EXCEPTION
9055: WHEN convert_fpo_failed THEN
9148:
9149: error_create_pp_lot EXCEPTION;
9150: BEGIN
9151: IF (g_debug <> -1) THEN
9152: gme_debug.log_initialize ('CreatePendingProdLot');
9153: END IF;
9154:
9155: IF g_debug <= gme_debug.g_log_procedure THEN
9156: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9151: IF (g_debug <> -1) THEN
9152: gme_debug.log_initialize ('CreatePendingProdLot');
9153: END IF;
9154:
9155: IF g_debug <= gme_debug.g_log_procedure THEN
9156: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9157: || l_api_name);
9158: END IF;
9159:
9152: gme_debug.log_initialize ('CreatePendingProdLot');
9153: END IF;
9154:
9155: IF g_debug <= gme_debug.g_log_procedure THEN
9156: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9157: || l_api_name);
9158: END IF;
9159:
9160: /* Set the return status to success initially */
9194: ,x_message_count => x_message_count
9195: ,x_message_list => x_message_list
9196: ,x_return_status => x_return_status );
9197: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9198: IF (g_debug = gme_debug.g_log_statement) THEN
9199: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9200: || ': batch mateiral validate error ');
9201: END IF;
9202: RAISE fnd_api.g_exc_error;
9195: ,x_message_list => x_message_list
9196: ,x_return_status => x_return_status );
9197: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9198: IF (g_debug = gme_debug.g_log_statement) THEN
9199: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9200: || ': batch mateiral validate error ');
9201: END IF;
9202: RAISE fnd_api.g_exc_error;
9203: END IF;
9240: ,p_pending_product_lots_rec => l_pending_product_lots_rec
9241: ,x_pending_product_lots_rec => x_pending_product_lots_rec);
9242:
9243:
9244: IF g_debug <= gme_debug.g_log_statement THEN
9245: gme_debug.put_line
9246: ( g_pkg_name
9247: || '.'
9248: || l_api_name
9241: ,x_pending_product_lots_rec => x_pending_product_lots_rec);
9242:
9243:
9244: IF g_debug <= gme_debug.g_log_statement THEN
9245: gme_debug.put_line
9246: ( g_pkg_name
9247: || '.'
9248: || l_api_name
9249: || ' Return status from gme_api_main.create_pending_product_lot is '
9261: ,p_table => 1
9262: ,p_commit => p_commit
9263: ,x_return_status => x_return_status);
9264:
9265: IF g_debug <= gme_debug.g_log_statement THEN
9266: gme_debug.put_line
9267: ( g_pkg_name
9268: || '.'
9269: || l_api_name
9262: ,p_commit => p_commit
9263: ,x_return_status => x_return_status);
9264:
9265: IF g_debug <= gme_debug.g_log_statement THEN
9266: gme_debug.put_line
9267: ( g_pkg_name
9268: || '.'
9269: || l_api_name
9270: || ' Return status from gme_api_pub.save_batch is '
9275: RAISE fnd_api.g_exc_error;
9276: END IF;
9277: END IF;
9278:
9279: IF g_debug <= gme_debug.g_log_procedure THEN
9280: gme_debug.put_line ( ' Completed '
9281: || l_api_name
9282: || ' at '
9283: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
9276: END IF;
9277: END IF;
9278:
9279: IF g_debug <= gme_debug.g_log_procedure THEN
9280: gme_debug.put_line ( ' Completed '
9281: || l_api_name
9282: || ' at '
9283: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
9284: END IF;
9353:
9354: error_update_pp_lot EXCEPTION;
9355: BEGIN
9356: IF (g_debug <> -1) THEN
9357: gme_debug.log_initialize ('UpdatePendingProdLot');
9358: END IF;
9359:
9360: IF g_debug <= gme_debug.g_log_procedure THEN
9361: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9356: IF (g_debug <> -1) THEN
9357: gme_debug.log_initialize ('UpdatePendingProdLot');
9358: END IF;
9359:
9360: IF g_debug <= gme_debug.g_log_procedure THEN
9361: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9362: || l_api_name);
9363: END IF;
9364:
9357: gme_debug.log_initialize ('UpdatePendingProdLot');
9358: END IF;
9359:
9360: IF g_debug <= gme_debug.g_log_procedure THEN
9361: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9362: || l_api_name);
9363: END IF;
9364:
9365: /* Set the return status to success initially */
9400: ,x_message_count => x_message_count
9401: ,x_message_list => x_message_list
9402: ,x_return_status => x_return_status );
9403: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9404: IF (g_debug = gme_debug.g_log_statement) THEN
9405: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9406: || ': batch mateiral validate error ');
9407: END IF;
9408: RAISE fnd_api.g_exc_error;
9401: ,x_message_list => x_message_list
9402: ,x_return_status => x_return_status );
9403: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9404: IF (g_debug = gme_debug.g_log_statement) THEN
9405: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9406: || ': batch mateiral validate error ');
9407: END IF;
9408: RAISE fnd_api.g_exc_error;
9409: END IF;
9428: ,x_message_count => x_message_count
9429: ,x_message_list => x_message_list
9430: ,x_return_status => x_return_status );
9431: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9432: IF (g_debug = gme_debug.g_log_statement) THEN
9433: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9434: || ': batch mateiral validate error ');
9435: END IF;
9436: RAISE fnd_api.g_exc_error;
9429: ,x_message_list => x_message_list
9430: ,x_return_status => x_return_status );
9431: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9432: IF (g_debug = gme_debug.g_log_statement) THEN
9433: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9434: || ': batch mateiral validate error ');
9435: END IF;
9436: RAISE fnd_api.g_exc_error;
9437: END IF;
9469: ,p_pending_product_lots_rec => l_pending_product_lots_rec
9470: ,x_pending_product_lots_rec => x_pending_product_lots_rec);
9471:
9472:
9473: IF g_debug <= gme_debug.g_log_statement THEN
9474: gme_debug.put_line
9475: ( g_pkg_name
9476: || '.'
9477: || l_api_name
9470: ,x_pending_product_lots_rec => x_pending_product_lots_rec);
9471:
9472:
9473: IF g_debug <= gme_debug.g_log_statement THEN
9474: gme_debug.put_line
9475: ( g_pkg_name
9476: || '.'
9477: || l_api_name
9478: || ' Return status from gme_api_main.update_pending_product_lot is '
9483: RAISE error_update_pp_lot;
9484: END IF;
9485:
9486: /* Invoke save_batch */
9487: IF g_debug <= gme_debug.g_log_statement THEN
9488: gme_debug.put_line
9489: ( g_pkg_name
9490: || '.'
9491: || l_api_name
9484: END IF;
9485:
9486: /* Invoke save_batch */
9487: IF g_debug <= gme_debug.g_log_statement THEN
9488: gme_debug.put_line
9489: ( g_pkg_name
9490: || '.'
9491: || l_api_name
9492: || ' About to invoke save_batch with header_id of '
9498: ,p_table => 1
9499: ,p_commit => p_commit
9500: ,x_return_status => x_return_status);
9501:
9502: IF g_debug <= gme_debug.g_log_statement THEN
9503: gme_debug.put_line
9504: ( g_pkg_name
9505: || '.'
9506: || l_api_name
9499: ,p_commit => p_commit
9500: ,x_return_status => x_return_status);
9501:
9502: IF g_debug <= gme_debug.g_log_statement THEN
9503: gme_debug.put_line
9504: ( g_pkg_name
9505: || '.'
9506: || l_api_name
9507: || ' Return status from gme_api_pub.save_batch is '
9511: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9512: RAISE fnd_api.g_exc_error;
9513: END IF;
9514:
9515: IF g_debug <= gme_debug.g_log_procedure THEN
9516: gme_debug.put_line ( ' Completed '
9517: || l_api_name
9518: || ' at '
9519: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
9512: RAISE fnd_api.g_exc_error;
9513: END IF;
9514:
9515: IF g_debug <= gme_debug.g_log_procedure THEN
9516: gme_debug.put_line ( ' Completed '
9517: || l_api_name
9518: || ' at '
9519: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
9520: END IF;
9596: error_delete_pp_lot EXCEPTION;
9597:
9598: BEGIN
9599: IF (g_debug <> -1) THEN
9600: gme_debug.log_initialize ('DeletePendingProdLot');
9601: END IF;
9602:
9603: IF g_debug <= gme_debug.g_log_procedure THEN
9604: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9599: IF (g_debug <> -1) THEN
9600: gme_debug.log_initialize ('DeletePendingProdLot');
9601: END IF;
9602:
9603: IF g_debug <= gme_debug.g_log_procedure THEN
9604: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9605: || l_api_name);
9606: END IF;
9607:
9600: gme_debug.log_initialize ('DeletePendingProdLot');
9601: END IF;
9602:
9603: IF g_debug <= gme_debug.g_log_procedure THEN
9604: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9605: || l_api_name);
9606: END IF;
9607:
9608: /* Set the return status to success initially */
9643: ,x_message_count => x_message_count
9644: ,x_message_list => x_message_list
9645: ,x_return_status => x_return_status );
9646: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9647: IF (g_debug = gme_debug.g_log_statement) THEN
9648: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9649: || ': batch mateiral validate error ');
9650: END IF;
9651: RAISE fnd_api.g_exc_error;
9644: ,x_message_list => x_message_list
9645: ,x_return_status => x_return_status );
9646: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9647: IF (g_debug = gme_debug.g_log_statement) THEN
9648: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9649: || ': batch mateiral validate error ');
9650: END IF;
9651: RAISE fnd_api.g_exc_error;
9652: END IF;
9670: ,x_message_count => x_message_count
9671: ,x_message_list => x_message_list
9672: ,x_return_status => x_return_status );
9673: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9674: IF (g_debug = gme_debug.g_log_statement) THEN
9675: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9676: || ': batch mateiral validate error ');
9677: END IF;
9678: RAISE fnd_api.g_exc_error;
9671: ,x_message_list => x_message_list
9672: ,x_return_status => x_return_status );
9673: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9674: IF (g_debug = gme_debug.g_log_statement) THEN
9675: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9676: || ': batch mateiral validate error ');
9677: END IF;
9678: RAISE fnd_api.g_exc_error;
9679: END IF;
9709: ,p_org_id => l_batch_header_rec.organization_id
9710: ,p_pending_product_lots_rec => l_pending_product_lots_rec);
9711:
9712:
9713: IF g_debug <= gme_debug.g_log_statement THEN
9714: gme_debug.put_line
9715: ( g_pkg_name
9716: || '.'
9717: || l_api_name
9710: ,p_pending_product_lots_rec => l_pending_product_lots_rec);
9711:
9712:
9713: IF g_debug <= gme_debug.g_log_statement THEN
9714: gme_debug.put_line
9715: ( g_pkg_name
9716: || '.'
9717: || l_api_name
9718: || ' Return status from gme_api_main.delete_pending_product_lot is '
9723: RAISE error_delete_pp_lot;
9724: END IF;
9725:
9726: /* Invoke save_batch */
9727: IF g_debug <= gme_debug.g_log_statement THEN
9728: gme_debug.put_line
9729: ( g_pkg_name
9730: || '.'
9731: || l_api_name
9724: END IF;
9725:
9726: /* Invoke save_batch */
9727: IF g_debug <= gme_debug.g_log_statement THEN
9728: gme_debug.put_line
9729: ( g_pkg_name
9730: || '.'
9731: || l_api_name
9732: || ' About to invoke save_batch with header_id of '
9738: ,p_table => 1
9739: ,p_commit => p_commit
9740: ,x_return_status => x_return_status);
9741:
9742: IF g_debug <= gme_debug.g_log_statement THEN
9743: gme_debug.put_line
9744: ( g_pkg_name
9745: || '.'
9746: || l_api_name
9739: ,p_commit => p_commit
9740: ,x_return_status => x_return_status);
9741:
9742: IF g_debug <= gme_debug.g_log_statement THEN
9743: gme_debug.put_line
9744: ( g_pkg_name
9745: || '.'
9746: || l_api_name
9747: || ' Return status from gme_api_pub.save_batch is '
9751: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9752: RAISE fnd_api.g_exc_error;
9753: END IF;
9754:
9755: IF g_debug <= gme_debug.g_log_procedure THEN
9756: gme_debug.put_line ( ' Completed '
9757: || l_api_name
9758: || ' at '
9759: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
9752: RAISE fnd_api.g_exc_error;
9753: END IF;
9754:
9755: IF g_debug <= gme_debug.g_log_procedure THEN
9756: gme_debug.put_line ( ' Completed '
9757: || l_api_name
9758: || ' at '
9759: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
9760: END IF;
9846: AND pair_type = 1);
9847:
9848: BEGIN
9849: IF (g_debug <> -1) THEN
9850: gme_debug.log_initialize ('UnreleaseBatch');
9851: END IF;
9852:
9853: IF g_debug <= gme_debug.g_log_procedure THEN
9854: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9849: IF (g_debug <> -1) THEN
9850: gme_debug.log_initialize ('UnreleaseBatch');
9851: END IF;
9852:
9853: IF g_debug <= gme_debug.g_log_procedure THEN
9854: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9855: || l_api_name);
9856: END IF;
9857:
9850: gme_debug.log_initialize ('UnreleaseBatch');
9851: END IF;
9852:
9853: IF g_debug <= gme_debug.g_log_procedure THEN
9854: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
9855: || l_api_name);
9856: END IF;
9857:
9858: /* Set the return status to success initially */
9884: ,x_message_list => x_message_list
9885: ,x_return_status => x_return_status );
9886:
9887: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9888: IF (g_debug = gme_debug.g_log_statement) THEN
9889: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9890: || ': batch validate error ');
9891: END IF;
9892: RAISE fnd_api.g_exc_error;
9885: ,x_return_status => x_return_status );
9886:
9887: IF x_return_status <> fnd_api.g_ret_sts_success THEN
9888: IF (g_debug = gme_debug.g_log_statement) THEN
9889: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
9890: || ': batch validate error ');
9891: END IF;
9892: RAISE fnd_api.g_exc_error;
9893: END IF;
9914: ,p_batch_header_rec => l_batch_header_rec
9915: ,x_batch_header_rec => x_batch_header_rec
9916: ,p_create_resv_pend_lots => p_create_resv_pend_lots);
9917:
9918: IF g_debug <= gme_debug.g_log_statement THEN
9919: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
9920: ' Return status from main.unrelease_batch is '|| x_return_status);
9921: END IF;
9922:
9915: ,x_batch_header_rec => x_batch_header_rec
9916: ,p_create_resv_pend_lots => p_create_resv_pend_lots);
9917:
9918: IF g_debug <= gme_debug.g_log_statement THEN
9919: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
9920: ' Return status from main.unrelease_batch is '|| x_return_status);
9921: END IF;
9922:
9923: -- Bug 11846735 - restructure save block.
9932: ,p_table => 1
9933: ,p_commit => p_commit
9934: ,x_return_status => x_return_status);
9935:
9936: IF g_debug <= gme_debug.g_log_statement THEN
9937: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
9938: ' Return status from gme_api_pub.save_batch is '
9939: || x_return_status);
9940: END IF;
9933: ,p_commit => p_commit
9934: ,x_return_status => x_return_status);
9935:
9936: IF g_debug <= gme_debug.g_log_statement THEN
9937: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
9938: ' Return status from gme_api_pub.save_batch is '
9939: || x_return_status);
9940: END IF;
9941:
9960: ELSE
9961: RAISE error_unrelease_batch;
9962: END IF;
9963:
9964: IF g_debug <= gme_debug.g_log_procedure THEN
9965: gme_debug.put_line ( ' Completed ' || l_api_name || ' at '
9966: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
9967: END IF;
9968:
9961: RAISE error_unrelease_batch;
9962: END IF;
9963:
9964: IF g_debug <= gme_debug.g_log_procedure THEN
9965: gme_debug.put_line ( ' Completed ' || l_api_name || ' at '
9966: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
9967: END IF;
9968:
9969: EXCEPTION
10041:
10042: error_unrelease_step EXCEPTION;
10043: BEGIN
10044: IF (g_debug <> -1) THEN
10045: gme_debug.log_initialize ('UnreleaseStep');
10046: END IF;
10047:
10048: IF g_debug <= gme_debug.g_log_procedure THEN
10049: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10044: IF (g_debug <> -1) THEN
10045: gme_debug.log_initialize ('UnreleaseStep');
10046: END IF;
10047:
10048: IF g_debug <= gme_debug.g_log_procedure THEN
10049: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10050: || l_api_name);
10051: END IF;
10052:
10045: gme_debug.log_initialize ('UnreleaseStep');
10046: END IF;
10047:
10048: IF g_debug <= gme_debug.g_log_procedure THEN
10049: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10050: || l_api_name);
10051: END IF;
10052:
10053: /* Set the return status to success initially */
10079: ,x_message_list => x_message_list
10080: ,x_return_status => x_return_status) ;
10081:
10082: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10083: IF (g_debug = gme_debug.g_log_statement) THEN
10084: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
10085: || ': batch step validate error ');
10086: END IF;
10087: RAISE fnd_api.g_exc_error;
10080: ,x_return_status => x_return_status) ;
10081:
10082: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10083: IF (g_debug = gme_debug.g_log_statement) THEN
10084: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
10085: || ': batch step validate error ');
10086: END IF;
10087: RAISE fnd_api.g_exc_error;
10088: END IF;
10110: ,p_batch_header_rec => l_batch_header_rec
10111: ,x_batch_step_rec => x_batch_step_rec
10112: ,p_create_resv_pend_lots => p_create_resv_pend_lots);
10113:
10114: IF g_debug <= gme_debug.g_log_statement THEN
10115: gme_debug.put_line
10116: ( g_pkg_name
10117: || '.'
10118: || l_api_name
10111: ,x_batch_step_rec => x_batch_step_rec
10112: ,p_create_resv_pend_lots => p_create_resv_pend_lots);
10113:
10114: IF g_debug <= gme_debug.g_log_statement THEN
10115: gme_debug.put_line
10116: ( g_pkg_name
10117: || '.'
10118: || l_api_name
10119: || ' Return status from gme_api_main.unrelease_step is '
10124: RAISE error_unrelease_step;
10125: END IF;
10126:
10127: /* Invoke save_batch */
10128: IF g_debug <= gme_debug.g_log_statement THEN
10129: gme_debug.put_line
10130: ( g_pkg_name
10131: || '.'
10132: || l_api_name
10125: END IF;
10126:
10127: /* Invoke save_batch */
10128: IF g_debug <= gme_debug.g_log_statement THEN
10129: gme_debug.put_line
10130: ( g_pkg_name
10131: || '.'
10132: || l_api_name
10133: || ' About to invoke save_batch with header_id of '
10151: ELSE
10152: RAISE error_unrelease_step;
10153: END IF;
10154:
10155: IF g_debug <= gme_debug.g_log_procedure THEN
10156: gme_debug.put_line ( ' Completed '
10157: || l_api_name
10158: || ' at '
10159: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
10152: RAISE error_unrelease_step;
10153: END IF;
10154:
10155: IF g_debug <= gme_debug.g_log_procedure THEN
10156: gme_debug.put_line ( ' Completed '
10157: || l_api_name
10158: || ' at '
10159: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
10160: END IF;
10242: purge_exception_err EXCEPTION;
10243:
10244: BEGIN
10245: IF (g_debug <> -1) THEN
10246: gme_debug.log_initialize ('CompleteBatch');
10247: END IF;
10248:
10249: IF g_debug <= gme_debug.g_log_procedure THEN
10250: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10245: IF (g_debug <> -1) THEN
10246: gme_debug.log_initialize ('CompleteBatch');
10247: END IF;
10248:
10249: IF g_debug <= gme_debug.g_log_procedure THEN
10250: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10251: || l_api_name);
10252: END IF;
10253:
10246: gme_debug.log_initialize ('CompleteBatch');
10247: END IF;
10248:
10249: IF g_debug <= gme_debug.g_log_procedure THEN
10250: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10251: || l_api_name);
10252: END IF;
10253:
10254: /* Set the return status to success initially */
10280: ,x_message_list => x_message_list
10281: ,x_return_status => x_return_status );
10282:
10283: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10284: IF (g_debug = gme_debug.g_log_statement) THEN
10285: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
10286: || ': batch validate error ');
10287: END IF;
10288: RAISE fnd_api.g_exc_error;
10281: ,x_return_status => x_return_status );
10282:
10283: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10284: IF (g_debug = gme_debug.g_log_statement) THEN
10285: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
10286: || ': batch validate error ');
10287: END IF;
10288: RAISE fnd_api.g_exc_error;
10289: END IF;
10345: ,x_batch_header_rec => x_batch_header_rec
10346: ,x_exception_material_tbl => l_exception_material_tbl
10347: ,p_ignore_exception => p_ignore_exception); --Bug#5186328
10348:
10349: IF g_debug <= gme_debug.g_log_statement THEN
10350: gme_debug.put_line
10351: ( g_pkg_name
10352: || '.'
10353: || l_api_name
10346: ,x_exception_material_tbl => l_exception_material_tbl
10347: ,p_ignore_exception => p_ignore_exception); --Bug#5186328
10348:
10349: IF g_debug <= gme_debug.g_log_statement THEN
10350: gme_debug.put_line
10351: ( g_pkg_name
10352: || '.'
10353: || l_api_name
10354: || ' Return status from gme_api_main.complete_batch is '
10373: ,p_recursive => 'R'
10374: ,x_return_status => x_return_status);
10375:
10376: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10377: IF (g_debug <= gme_debug.g_log_procedure) THEN
10378: gme_debug.put_line ( g_pkg_name
10379: || '.'
10380: || l_api_name
10381: || ':'
10374: ,x_return_status => x_return_status);
10375:
10376: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10377: IF (g_debug <= gme_debug.g_log_procedure) THEN
10378: gme_debug.put_line ( g_pkg_name
10379: || '.'
10380: || l_api_name
10381: || ':'
10382: || 'purge_exception_err');
10385: RAISE purge_exception_err;
10386: END IF;
10387:
10388: /* Invoke save_batch */
10389: IF g_debug <= gme_debug.g_log_statement THEN
10390: gme_debug.put_line
10391: ( g_pkg_name
10392: || '.'
10393: || l_api_name
10386: END IF;
10387:
10388: /* Invoke save_batch */
10389: IF g_debug <= gme_debug.g_log_statement THEN
10390: gme_debug.put_line
10391: ( g_pkg_name
10392: || '.'
10393: || l_api_name
10394: || ' About to invoke save_batch with header_id of '
10400: ,p_table => 1
10401: ,p_commit => p_commit
10402: ,x_return_status => x_return_status);
10403:
10404: IF g_debug <= gme_debug.g_log_statement THEN
10405: gme_debug.put_line
10406: ( g_pkg_name
10407: || '.'
10408: || l_api_name
10401: ,p_commit => p_commit
10402: ,x_return_status => x_return_status);
10403:
10404: IF g_debug <= gme_debug.g_log_statement THEN
10405: gme_debug.put_line
10406: ( g_pkg_name
10407: || '.'
10408: || l_api_name
10409: || ' Return status from gme_api_pub.save_batch is '
10413: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10414: RAISE fnd_api.g_exc_error;
10415: END IF;
10416:
10417: IF g_debug <= gme_debug.g_log_procedure THEN
10418: gme_debug.put_line ( ' Completed '
10419: || l_api_name
10420: || ' at '
10421: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
10414: RAISE fnd_api.g_exc_error;
10415: END IF;
10416:
10417: IF g_debug <= gme_debug.g_log_procedure THEN
10418: gme_debug.put_line ( ' Completed '
10419: || l_api_name
10420: || ' at '
10421: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
10422: END IF;
10517:
10518: error_complete_step EXCEPTION;
10519: BEGIN
10520: IF (g_debug <> -1) THEN
10521: gme_debug.log_initialize ('CompleteStep');
10522: END IF;
10523:
10524: IF g_debug <= gme_debug.g_log_procedure THEN
10525: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10520: IF (g_debug <> -1) THEN
10521: gme_debug.log_initialize ('CompleteStep');
10522: END IF;
10523:
10524: IF g_debug <= gme_debug.g_log_procedure THEN
10525: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10526: || l_api_name);
10527: END IF;
10528:
10521: gme_debug.log_initialize ('CompleteStep');
10522: END IF;
10523:
10524: IF g_debug <= gme_debug.g_log_procedure THEN
10525: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10526: || l_api_name);
10527: END IF;
10528:
10529: /* Set the return status to success initially */
10555: ,x_message_list => x_message_list
10556: ,x_return_status => x_return_status) ;
10557:
10558: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10559: IF (g_debug = gme_debug.g_log_statement) THEN
10560: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
10561: || ': batch step validate error ');
10562: END IF;
10563: RAISE fnd_api.g_exc_error;
10556: ,x_return_status => x_return_status) ;
10557:
10558: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10559: IF (g_debug = gme_debug.g_log_statement) THEN
10560: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
10561: || ': batch step validate error ');
10562: END IF;
10563: RAISE fnd_api.g_exc_error;
10564: END IF;
10652: ,x_batch_step_rec => x_batch_step_rec
10653: ,x_exception_material_tbl => l_exception_material_tbl
10654: ,p_ignore_exception => p_ignore_exception); --Bug#5186328
10655:
10656: IF g_debug <= gme_debug.g_log_statement THEN
10657: gme_debug.put_line
10658: ( g_pkg_name
10659: || '.'
10660: || l_api_name
10653: ,x_exception_material_tbl => l_exception_material_tbl
10654: ,p_ignore_exception => p_ignore_exception); --Bug#5186328
10655:
10656: IF g_debug <= gme_debug.g_log_statement THEN
10657: gme_debug.put_line
10658: ( g_pkg_name
10659: || '.'
10660: || l_api_name
10661: || ' Return status from gme_api_main.complete_step is '
10687: ,p_table => 2
10688: ,p_commit => p_commit
10689: ,x_return_status => x_return_status);
10690:
10691: IF g_debug <= gme_debug.g_log_statement THEN
10692: gme_debug.put_line
10693: ( g_pkg_name
10694: || '.'
10695: || l_api_name
10688: ,p_commit => p_commit
10689: ,x_return_status => x_return_status);
10690:
10691: IF g_debug <= gme_debug.g_log_statement THEN
10692: gme_debug.put_line
10693: ( g_pkg_name
10694: || '.'
10695: || l_api_name
10696: || ' Return status from gme_api_pub.save_batch is '
10701: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10702: RAISE fnd_api.g_exc_error;
10703: END IF;
10704:
10705: IF g_debug <= gme_debug.g_log_procedure THEN
10706: gme_debug.put_line ( ' Completed '
10707: || l_api_name
10708: || ' at '
10709: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
10702: RAISE fnd_api.g_exc_error;
10703: END IF;
10704:
10705: IF g_debug <= gme_debug.g_log_procedure THEN
10706: gme_debug.put_line ( ' Completed '
10707: || l_api_name
10708: || ' at '
10709: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
10710: END IF;
10778:
10779: error_release_batch EXCEPTION;
10780: BEGIN
10781: IF (g_debug <> -1) THEN
10782: gme_debug.log_initialize ('ReleaseBatch');
10783: END IF;
10784:
10785: IF g_debug <= gme_debug.g_log_procedure THEN
10786: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10781: IF (g_debug <> -1) THEN
10782: gme_debug.log_initialize ('ReleaseBatch');
10783: END IF;
10784:
10785: IF g_debug <= gme_debug.g_log_procedure THEN
10786: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10787: || l_api_name);
10788: END IF;
10789:
10782: gme_debug.log_initialize ('ReleaseBatch');
10783: END IF;
10784:
10785: IF g_debug <= gme_debug.g_log_procedure THEN
10786: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10787: || l_api_name);
10788: END IF;
10789:
10790: /* Set the return status to success initially */
10814: ,x_message_list => x_message_list
10815: ,x_return_status => x_return_status );
10816:
10817: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10818: IF (g_debug = gme_debug.g_log_statement) THEN
10819: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
10820: || ': batch validate error ');
10821: END IF;
10822: RAISE fnd_api.g_exc_error;
10815: ,x_return_status => x_return_status );
10816:
10817: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10818: IF (g_debug = gme_debug.g_log_statement) THEN
10819: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
10820: || ': batch validate error ');
10821: END IF;
10822: RAISE fnd_api.g_exc_error;
10823: END IF;
10844: -- reset flex global
10845: gme_common_pvt.g_flex_validate_prof := 0;
10846:
10847: gme_common_pvt.g_move_to_temp := fnd_api.g_false;
10848: IF g_debug <= gme_debug.g_log_statement THEN
10849: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
10850: || 'batch_id '||l_batch_header_rec.batch_id);
10851: END IF;
10852: /* Invoke main */
10845: gme_common_pvt.g_flex_validate_prof := 0;
10846:
10847: gme_common_pvt.g_move_to_temp := fnd_api.g_false;
10848: IF g_debug <= gme_debug.g_log_statement THEN
10849: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
10850: || 'batch_id '||l_batch_header_rec.batch_id);
10851: END IF;
10852: /* Invoke main */
10853: gme_api_main.release_batch
10860: ,p_ignore_exception => p_ignore_exception --Bug#5186328
10861: ,x_batch_header_rec => x_batch_header_rec
10862: ,x_exception_material_tbl => l_exception_material_tbl);
10863:
10864: IF g_debug <= gme_debug.g_log_statement THEN
10865: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
10866: ' Return status from gme_api_main.release_batch is '
10867: || x_return_status);
10868: END IF;
10861: ,x_batch_header_rec => x_batch_header_rec
10862: ,x_exception_material_tbl => l_exception_material_tbl);
10863:
10864: IF g_debug <= gme_debug.g_log_statement THEN
10865: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
10866: ' Return status from gme_api_main.release_batch is '
10867: || x_return_status);
10868: END IF;
10869:
10877: RAISE error_release_batch;
10878: END IF;
10879:
10880: /* Invoke save_batch */
10881: IF g_debug <= gme_debug.g_log_statement THEN
10882: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' About to
10883: invoke save_batch with header_id of ' || gme_common_pvt.g_transaction_header_id);
10884: END IF;
10885:
10878: END IF;
10879:
10880: /* Invoke save_batch */
10881: IF g_debug <= gme_debug.g_log_statement THEN
10882: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' About to
10883: invoke save_batch with header_id of ' || gme_common_pvt.g_transaction_header_id);
10884: END IF;
10885:
10886: gme_api_pub.save_batch
10888: ,p_table => 1
10889: ,p_commit => p_commit
10890: ,x_return_status => x_return_status);
10891:
10892: IF g_debug <= gme_debug.g_log_statement THEN
10893: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
10894: ' Return status from gme_api_pub.save_batch is ' || x_return_status);
10895: END IF;
10896:
10889: ,p_commit => p_commit
10890: ,x_return_status => x_return_status);
10891:
10892: IF g_debug <= gme_debug.g_log_statement THEN
10893: gme_debug.put_line ( g_pkg_name || '.' || l_api_name ||
10894: ' Return status from gme_api_pub.save_batch is ' || x_return_status);
10895: END IF;
10896:
10897: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10897: IF x_return_status <> fnd_api.g_ret_sts_success THEN
10898: RAISE fnd_api.g_exc_error;
10899: END IF;
10900:
10901: IF g_debug <= gme_debug.g_log_procedure THEN
10902: gme_debug.put_line ( ' Completed ' || l_api_name || ' at '
10903: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
10904: END IF;
10905: EXCEPTION
10898: RAISE fnd_api.g_exc_error;
10899: END IF;
10900:
10901: IF g_debug <= gme_debug.g_log_procedure THEN
10902: gme_debug.put_line ( ' Completed ' || l_api_name || ' at '
10903: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
10904: END IF;
10905: EXCEPTION
10906: WHEN error_release_batch THEN
10991:
10992: error_release_step EXCEPTION;
10993: BEGIN
10994: IF (g_debug <> -1) THEN
10995: gme_debug.log_initialize ('ReleaseStep');
10996: END IF;
10997:
10998: IF g_debug <= gme_debug.g_log_procedure THEN
10999: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
10994: IF (g_debug <> -1) THEN
10995: gme_debug.log_initialize ('ReleaseStep');
10996: END IF;
10997:
10998: IF g_debug <= gme_debug.g_log_procedure THEN
10999: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
11000: || l_api_name);
11001: END IF;
11002:
10995: gme_debug.log_initialize ('ReleaseStep');
10996: END IF;
10997:
10998: IF g_debug <= gme_debug.g_log_procedure THEN
10999: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
11000: || l_api_name);
11001: END IF;
11002:
11003: /* Set the return status to success initially */
11028: ,x_message_list => x_message_list
11029: ,x_return_status => x_return_status );
11030:
11031: IF x_return_status <> fnd_api.g_ret_sts_success THEN
11032: IF (g_debug = gme_debug.g_log_statement) THEN
11033: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
11034: || ': batch step validate error ');
11035: END IF;
11036: RAISE fnd_api.g_exc_error;
11029: ,x_return_status => x_return_status );
11030:
11031: IF x_return_status <> fnd_api.g_ret_sts_success THEN
11032: IF (g_debug = gme_debug.g_log_statement) THEN
11033: gme_debug.put_line ( g_pkg_name || '.' || l_api_name
11034: || ': batch step validate error ');
11035: END IF;
11036: RAISE fnd_api.g_exc_error;
11037: END IF;
11110: ,p_ignore_exception => p_ignore_exception --Bug#5186328
11111: ,x_batch_step_rec => x_batch_step_rec
11112: ,x_exception_material_tbl => l_exception_material_tbl);
11113:
11114: IF g_debug <= gme_debug.g_log_statement THEN
11115: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' Return
11116: status from gme_api_main.release_step is ' || x_return_status);
11117: END IF;
11118:
11111: ,x_batch_step_rec => x_batch_step_rec
11112: ,x_exception_material_tbl => l_exception_material_tbl);
11113:
11114: IF g_debug <= gme_debug.g_log_statement THEN
11115: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' Return
11116: status from gme_api_main.release_step is ' || x_return_status);
11117: END IF;
11118:
11119: -- reset flex global
11129: RAISE error_release_step;
11130: END IF;
11131:
11132: /* Invoke save_batch */
11133: IF g_debug <= gme_debug.g_log_statement THEN
11134: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' About to
11135: invoke save_batch with header_id of ' || gme_common_pvt.g_transaction_header_id);
11136: END IF;
11137:
11130: END IF;
11131:
11132: /* Invoke save_batch */
11133: IF g_debug <= gme_debug.g_log_statement THEN
11134: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' About to
11135: invoke save_batch with header_id of ' || gme_common_pvt.g_transaction_header_id);
11136: END IF;
11137:
11138: -- Bug 13981238 Restructure call to save_batch conditionalize on p_commit flag.
11147: ,p_table => 2
11148: ,p_commit => p_commit
11149: ,x_return_status => x_return_status);
11150:
11151: IF g_debug <= gme_debug.g_log_statement THEN
11152: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' Return
11153: status from gme_api_pub.save_batch is ' || x_return_status);
11154: END IF;
11155: END IF;
11148: ,p_commit => p_commit
11149: ,x_return_status => x_return_status);
11150:
11151: IF g_debug <= gme_debug.g_log_statement THEN
11152: gme_debug.put_line ( g_pkg_name || '.' || l_api_name || ' Return
11153: status from gme_api_pub.save_batch is ' || x_return_status);
11154: END IF;
11155: END IF;
11156:
11157: IF x_return_status <> fnd_api.g_ret_sts_success THEN
11158: RAISE fnd_api.g_exc_error;
11159: END IF;
11160:
11161: IF g_debug <= gme_debug.g_log_procedure THEN
11162: gme_debug.put_line ( ' Completed ' || l_api_name || ' at '
11163: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
11164: END IF;
11165:
11158: RAISE fnd_api.g_exc_error;
11159: END IF;
11160:
11161: IF g_debug <= gme_debug.g_log_procedure THEN
11162: gme_debug.put_line ( ' Completed ' || l_api_name || ' at '
11163: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
11164: END IF;
11165:
11166: EXCEPTION
11268: and organization_id = l_org_id;
11269:
11270: BEGIN
11271: IF (g_debug <> -1) THEN
11272: gme_debug.log_initialize ('ProcessGroup');
11273: END IF;
11274:
11275: IF g_debug <= gme_debug.g_log_procedure THEN
11276: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
11271: IF (g_debug <> -1) THEN
11272: gme_debug.log_initialize ('ProcessGroup');
11273: END IF;
11274:
11275: IF g_debug <= gme_debug.g_log_procedure THEN
11276: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
11277: || l_api_name);
11278: END IF;
11279:
11272: gme_debug.log_initialize ('ProcessGroup');
11273: END IF;
11274:
11275: IF g_debug <= gme_debug.g_log_procedure THEN
11276: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
11277: || l_api_name);
11278: END IF;
11279:
11280: /* Set the return status to success initially */
11628: /* Set the savepoint */
11629: SAVEPOINT update_batchstep_qty;
11630:
11631: IF (g_debug <> -1) THEN
11632: gme_debug.log_initialize ('UpdateBatchstep');
11633: END IF;
11634:
11635: IF g_debug <= gme_debug.g_log_procedure THEN
11636: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
11631: IF (g_debug <> -1) THEN
11632: gme_debug.log_initialize ('UpdateBatchstep');
11633: END IF;
11634:
11635: IF g_debug <= gme_debug.g_log_procedure THEN
11636: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
11637: || l_api_name);
11638: END IF;
11639:
11632: gme_debug.log_initialize ('UpdateBatchstep');
11633: END IF;
11634:
11635: IF g_debug <= gme_debug.g_log_procedure THEN
11636: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
11637: || l_api_name);
11638: END IF;
11639:
11640: /* Set the return status to success initially */
11658: gme_common_pvt.g_error_count := 0;
11659: END IF;
11660:
11661: /* Retrieve the row to be updated */
11662: IF g_debug <= gme_debug.g_log_statement THEN
11663: gme_debug.put_line ('actual qty passed in is '||p_batch_step_rec.actual_step_qty);
11664: gme_debug.put_line ('batchstep_id is '||p_batch_step_rec.batchstep_id);
11665: gme_debug.put_line ( g_pkg_name
11666: || '.'
11659: END IF;
11660:
11661: /* Retrieve the row to be updated */
11662: IF g_debug <= gme_debug.g_log_statement THEN
11663: gme_debug.put_line ('actual qty passed in is '||p_batch_step_rec.actual_step_qty);
11664: gme_debug.put_line ('batchstep_id is '||p_batch_step_rec.batchstep_id);
11665: gme_debug.put_line ( g_pkg_name
11666: || '.'
11667: || l_api_name
11660:
11661: /* Retrieve the row to be updated */
11662: IF g_debug <= gme_debug.g_log_statement THEN
11663: gme_debug.put_line ('actual qty passed in is '||p_batch_step_rec.actual_step_qty);
11664: gme_debug.put_line ('batchstep_id is '||p_batch_step_rec.batchstep_id);
11665: gme_debug.put_line ( g_pkg_name
11666: || '.'
11667: || l_api_name
11668: || ' Invoke get_batchstep');
11661: /* Retrieve the row to be updated */
11662: IF g_debug <= gme_debug.g_log_statement THEN
11663: gme_debug.put_line ('actual qty passed in is '||p_batch_step_rec.actual_step_qty);
11664: gme_debug.put_line ('batchstep_id is '||p_batch_step_rec.batchstep_id);
11665: gme_debug.put_line ( g_pkg_name
11666: || '.'
11667: || l_api_name
11668: || ' Invoke get_batchstep');
11669: END IF;
11674: ,p_org_code => p_org_code
11675: ,p_batch_no => p_batch_no
11676: ,x_batch_step_rec => l_batch_step_rec
11677: ,x_batch_header_rec => l_batch_header) THEN
11678: IF g_debug <= gme_debug.g_log_statement THEN
11679: gme_debug.put_line ( g_pkg_name
11680: || '.'
11681: || l_api_name
11682: || ' get_batchstep failed to retrieve row');
11675: ,p_batch_no => p_batch_no
11676: ,x_batch_step_rec => l_batch_step_rec
11677: ,x_batch_header_rec => l_batch_header) THEN
11678: IF g_debug <= gme_debug.g_log_statement THEN
11679: gme_debug.put_line ( g_pkg_name
11680: || '.'
11681: || l_api_name
11682: || ' get_batchstep failed to retrieve row');
11683: END IF;
11684:
11685: RAISE fnd_api.g_exc_error;
11686: END IF;
11687:
11688: IF g_debug <= gme_debug.g_log_statement THEN
11689: gme_debug.put_line ( g_pkg_name
11690: || '.'
11691: || l_api_name
11692: || ' batchstep_id is '
11685: RAISE fnd_api.g_exc_error;
11686: END IF;
11687:
11688: IF g_debug <= gme_debug.g_log_statement THEN
11689: gme_debug.put_line ( g_pkg_name
11690: || '.'
11691: || l_api_name
11692: || ' batchstep_id is '
11693: || l_batch_step_rec.batchstep_id);
11690: || '.'
11691: || l_api_name
11692: || ' batchstep_id is '
11693: || l_batch_step_rec.batchstep_id);
11694: gme_debug.put_line ('actual qty fetched from DB is '||l_batch_step_rec.actual_step_qty);
11695: END IF;
11696:
11697: /* Setup the common constants used accross the apis */
11698: /* This will raise an error if both organization_id and org_code are null values */
11695: END IF;
11696:
11697: /* Setup the common constants used accross the apis */
11698: /* This will raise an error if both organization_id and org_code are null values */
11699: IF g_debug <= gme_debug.g_log_statement THEN
11700: gme_debug.put_line ( g_pkg_name
11701: || '.'
11702: || l_api_name
11703: || ' Invoking setup for org_id '
11696:
11697: /* Setup the common constants used accross the apis */
11698: /* This will raise an error if both organization_id and org_code are null values */
11699: IF g_debug <= gme_debug.g_log_statement THEN
11700: gme_debug.put_line ( g_pkg_name
11701: || '.'
11702: || l_api_name
11703: || ' Invoking setup for org_id '
11704: || l_batch_header.organization_id
11711: (p_org_id => l_batch_header.organization_id
11712: ,p_org_code => p_org_code);
11713:
11714: IF NOT gme_common_pvt.g_setup_done THEN
11715: IF g_debug <= gme_debug.g_log_statement THEN
11716: gme_debug.put_line ( g_pkg_name
11717: || '.'
11718: || l_api_name
11719: || ' setup failure ');
11712: ,p_org_code => p_org_code);
11713:
11714: IF NOT gme_common_pvt.g_setup_done THEN
11715: IF g_debug <= gme_debug.g_log_statement THEN
11716: gme_debug.put_line ( g_pkg_name
11717: || '.'
11718: || l_api_name
11719: || ' setup failure ');
11720: END IF;
11722: RAISE fnd_api.g_exc_error;
11723: END IF;
11724:
11725: /* Check the step_status of the batchstep */
11726: IF g_debug <= gme_debug.g_log_statement THEN
11727: gme_debug.put_line ( g_pkg_name
11728: || '.'
11729: || l_api_name
11730: || ' step_status is '
11723: END IF;
11724:
11725: /* Check the step_status of the batchstep */
11726: IF g_debug <= gme_debug.g_log_statement THEN
11727: gme_debug.put_line ( g_pkg_name
11728: || '.'
11729: || l_api_name
11730: || ' step_status is '
11731: || l_batch_step_rec.step_status);
11754: OR p_add = 'Y') THEN
11755: -- Do not allow negative quantities.
11756:
11757: IF (NVL(p_batch_step_rec.actual_step_qty, 0) < 0) THEN
11758: IF g_debug <= gme_debug.g_log_statement THEN
11759: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' Negative qty not allowed');
11760: END IF;
11761:
11762: gme_common_pvt.log_message (p_product_code => 'GMI'
11755: -- Do not allow negative quantities.
11756:
11757: IF (NVL(p_batch_step_rec.actual_step_qty, 0) < 0) THEN
11758: IF g_debug <= gme_debug.g_log_statement THEN
11759: gme_debug.put_line (g_pkg_name || '.' || l_api_name || ' Negative qty not allowed');
11760: END IF;
11761:
11762: gme_common_pvt.log_message (p_product_code => 'GMI'
11763: ,p_message_code => 'IC_ACTIONQTYNEG');
11770: ELSE
11771: l_batch_step_rec.actual_step_qty := NVL(l_batch_step_rec.actual_step_qty, 0) + p_batch_step_rec.actual_step_qty;
11772: END IF;
11773:
11774: IF g_debug <= gme_debug.g_log_procedure THEN
11775: gme_debug.put_line ('Before calling recalc');
11776: gme_debug.put_line ('batchstep_id is '||l_batch_step_rec.batchstep_id);
11777: gme_debug.put_line ('actual qty going into recal is '||l_batch_step_rec.actual_step_qty);
11778: END IF;
11771: l_batch_step_rec.actual_step_qty := NVL(l_batch_step_rec.actual_step_qty, 0) + p_batch_step_rec.actual_step_qty;
11772: END IF;
11773:
11774: IF g_debug <= gme_debug.g_log_procedure THEN
11775: gme_debug.put_line ('Before calling recalc');
11776: gme_debug.put_line ('batchstep_id is '||l_batch_step_rec.batchstep_id);
11777: gme_debug.put_line ('actual qty going into recal is '||l_batch_step_rec.actual_step_qty);
11778: END IF;
11779:
11772: END IF;
11773:
11774: IF g_debug <= gme_debug.g_log_procedure THEN
11775: gme_debug.put_line ('Before calling recalc');
11776: gme_debug.put_line ('batchstep_id is '||l_batch_step_rec.batchstep_id);
11777: gme_debug.put_line ('actual qty going into recal is '||l_batch_step_rec.actual_step_qty);
11778: END IF;
11779:
11780: -- This calc will recalculate the charges but also updates the step record in the database.
11773:
11774: IF g_debug <= gme_debug.g_log_procedure THEN
11775: gme_debug.put_line ('Before calling recalc');
11776: gme_debug.put_line ('batchstep_id is '||l_batch_step_rec.batchstep_id);
11777: gme_debug.put_line ('actual qty going into recal is '||l_batch_step_rec.actual_step_qty);
11778: END IF;
11779:
11780: -- This calc will recalculate the charges but also updates the step record in the database.
11781: gme_update_step_qty_pvt.recalculate_charges(p_batchstep_rec => l_batch_step_rec
11784: ,x_return_status => x_return_status );
11785:
11786: l_batch_step_rec := l_batch_step_rec2;
11787:
11788: IF g_debug <= gme_debug.g_log_statement THEN
11789: gme_debug.put_line ( g_pkg_name
11790: || '.'
11791: || l_api_name
11792: || ' recalc charges returns '
11785:
11786: l_batch_step_rec := l_batch_step_rec2;
11787:
11788: IF g_debug <= gme_debug.g_log_statement THEN
11789: gme_debug.put_line ( g_pkg_name
11790: || '.'
11791: || l_api_name
11792: || ' recalc charges returns '
11793: || x_return_status);
11799: -- Send information back to calling program.
11800: x_batch_step_rec := l_batch_step_rec;
11801:
11802: IF x_return_status = fnd_api.g_ret_sts_success THEN
11803: IF g_debug <= gme_debug.g_log_statement THEN
11804: gme_debug.put_line ( g_pkg_name
11805: || '.'
11806: || l_api_name
11807: || ' invoke save_batch with commit ='
11800: x_batch_step_rec := l_batch_step_rec;
11801:
11802: IF x_return_status = fnd_api.g_ret_sts_success THEN
11803: IF g_debug <= gme_debug.g_log_statement THEN
11804: gme_debug.put_line ( g_pkg_name
11805: || '.'
11806: || l_api_name
11807: || ' invoke save_batch with commit ='
11808: || p_commit);
11822: ,p_commit => p_commit
11823: ,p_clear_qty_cache => fnd_api.g_true
11824: ,x_return_status => x_return_status);
11825:
11826: IF g_debug <= gme_debug.g_log_statement THEN
11827: gme_debug.put_line ( g_pkg_name
11828: || '.'
11829: || l_api_name
11830: || ' save_batch return_status is '
11823: ,p_clear_qty_cache => fnd_api.g_true
11824: ,x_return_status => x_return_status);
11825:
11826: IF g_debug <= gme_debug.g_log_statement THEN
11827: gme_debug.put_line ( g_pkg_name
11828: || '.'
11829: || l_api_name
11830: || ' save_batch return_status is '
11831: || x_return_status);
11848: gme_common_pvt.log_message (p_product_code => 'IEM'
11849: ,p_message_code => 'IEM_NOTHING_TO_UPDATE');
11850: END IF;
11851:
11852: IF g_debug <= gme_debug.g_log_procedure THEN
11853: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
11854: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
11855: END IF;
11856: EXCEPTION
11849: ,p_message_code => 'IEM_NOTHING_TO_UPDATE');
11850: END IF;
11851:
11852: IF g_debug <= gme_debug.g_log_procedure THEN
11853: gme_debug.put_line ( 'Completed ' || l_api_name || ' at '
11854: || TO_CHAR (SYSDATE, 'MM/DD/YYYY HH24:MI:SS') );
11855: END IF;
11856: EXCEPTION
11857: WHEN l_invalid_step_status OR negative_qty_error OR update_step_failed THEN