74: IS
75: SELECT wip_entities_s.NEXTVAL
76: FROM DUAL;
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: SELECT wip_entities_s.NEXTVAL
76: FROM DUAL;
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: x_batch_header := p_batch_header;
220: ,x_batch_header.ja_osp_batch); --Bug7616310
221:
222: x_batch_header.batch_id := l_wip_entity_id;
223:
224: IF g_debug <= gme_debug.g_log_procedure THEN
225: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
226: END IF;
227:
228: IF SQL%FOUND THEN
221:
222: x_batch_header.batch_id := l_wip_entity_id;
223:
224: IF g_debug <= gme_debug.g_log_procedure THEN
225: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
226: END IF;
227:
228: IF SQL%FOUND THEN
229: RETURN TRUE;
232: END IF;
233: EXCEPTION
234: --Bug280440
235: WHEN OTHERS THEN
236: IF g_debug <= gme_debug.g_log_unexpected THEN
237: gme_debug.put_line ( 'When others exception in '
238: || g_pkg_name
239: || '.'
240: || l_api_name
233: EXCEPTION
234: --Bug280440
235: WHEN OTHERS THEN
236: IF g_debug <= gme_debug.g_log_unexpected THEN
237: gme_debug.put_line ( 'When others exception in '
238: || g_pkg_name
239: || '.'
240: || l_api_name
241: || ' Error is '
285: l_batch_no VARCHAR2 (32);
286: l_batch_type NUMBER (5);
287: l_api_name CONSTANT VARCHAR2 (30) := 'fetch_row';
288: BEGIN
289: IF g_debug <= gme_debug.g_log_procedure THEN
290: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
291: || l_api_name);
292: END IF;
293:
286: l_batch_type NUMBER (5);
287: l_api_name CONSTANT VARCHAR2 (30) := 'fetch_row';
288: BEGIN
289: IF g_debug <= gme_debug.g_log_procedure THEN
290: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
291: || l_api_name);
292: END IF;
293:
294: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
290: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
291: || l_api_name);
292: END IF;
293:
294: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
295: gme_debug.put_line ( 'Retrieving batch id: '
296: || TO_CHAR (p_batch_header.batch_id) );
297: END IF;
298:
291: || l_api_name);
292: END IF;
293:
294: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
295: gme_debug.put_line ( 'Retrieving batch id: '
296: || TO_CHAR (p_batch_header.batch_id) );
297: END IF;
298:
299: l_batch_id := p_batch_header.batch_id;
665: ,g_table_name);
666: RETURN FALSE;
667: END IF;
668:
669: IF g_debug <= gme_debug.g_log_procedure THEN
670: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
671: END IF;
672:
673: x_batch_header := l_gme_batch_header;
666: RETURN FALSE;
667: END IF;
668:
669: IF g_debug <= gme_debug.g_log_procedure THEN
670: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
671: END IF;
672:
673: x_batch_header := l_gme_batch_header;
674: RETURN TRUE;
678: ,'TABLE_NAME'
679: ,g_table_name);
680: RETURN FALSE;
681: WHEN OTHERS THEN
682: IF g_debug <= gme_debug.g_log_unexpected THEN
683: gme_debug.put_line ( 'When others exception in '
684: || g_pkg_name
685: || '.'
686: || l_api_name
679: ,g_table_name);
680: RETURN FALSE;
681: WHEN OTHERS THEN
682: IF g_debug <= gme_debug.g_log_unexpected THEN
683: gme_debug.put_line ( 'When others exception in '
684: || g_pkg_name
685: || '.'
686: || l_api_name
687: || ' Error is '
730: l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_ROW';
731: locked_by_other_user EXCEPTION;
732: PRAGMA EXCEPTION_INIT (locked_by_other_user, -54);
733: BEGIN
734: IF g_debug <= gme_debug.g_log_procedure THEN
735: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
736: || l_api_name);
737: END IF;
738:
731: locked_by_other_user EXCEPTION;
732: PRAGMA EXCEPTION_INIT (locked_by_other_user, -54);
733: BEGIN
734: IF g_debug <= gme_debug.g_log_procedure THEN
735: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
736: || l_api_name);
737: END IF;
738:
739: l_batch_id := p_batch_header.batch_id;
788: RETURN FALSE;
789: END IF;
790: END IF;
791:
792: IF g_debug <= gme_debug.g_log_procedure THEN
793: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
794: END IF;
795:
796: RETURN TRUE;
789: END IF;
790: END IF;
791:
792: IF g_debug <= gme_debug.g_log_procedure THEN
793: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
794: END IF;
795:
796: RETURN TRUE;
797: EXCEPTION
805: ,p_batch_header.batch_no);
806: RETURN FALSE;
807: --Bug2804440
808: WHEN OTHERS THEN
809: IF g_debug <= gme_debug.g_log_unexpected THEN
810: gme_debug.put_line ( 'When others exception in '
811: || g_pkg_name
812: || '.'
813: || l_api_name
806: RETURN FALSE;
807: --Bug2804440
808: WHEN OTHERS THEN
809: IF g_debug <= gme_debug.g_log_unexpected THEN
810: gme_debug.put_line ( 'When others exception in '
811: || g_pkg_name
812: || '.'
813: || l_api_name
814: || ' Error is '
857: locked_by_other_user EXCEPTION;
858: PRAGMA EXCEPTION_INIT (locked_by_other_user, -54);
859: l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_ROW';
860: BEGIN
861: IF g_debug <= gme_debug.g_log_procedure THEN
862: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
863: || l_api_name);
864: END IF;
865:
858: PRAGMA EXCEPTION_INIT (locked_by_other_user, -54);
859: l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_ROW';
860: BEGIN
861: IF g_debug <= gme_debug.g_log_procedure THEN
862: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
863: || l_api_name);
864: END IF;
865:
866: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
862: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
863: || l_api_name);
864: END IF;
865:
866: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
867: gme_debug.put_line ( 'Inside update_row for batch_id: '
868: || TO_CHAR (p_batch_header.batch_id) );
869: END IF;
870:
863: || l_api_name);
864: END IF;
865:
866: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
867: gme_debug.put_line ( 'Inside update_row for batch_id: '
868: || TO_CHAR (p_batch_header.batch_id) );
869: END IF;
870:
871: l_batch_id := p_batch_header.batch_id;
1079: ,g_table_name);
1080: RETURN FALSE;
1081: END IF;
1082: IF SQL%ROWCOUNT <> 0 THEN
1083: IF g_debug <= gme_debug.g_log_procedure THEN
1084: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1085: END IF;
1086: RETURN TRUE;
1087: ELSE
1080: RETURN FALSE;
1081: END IF;
1082: IF SQL%ROWCOUNT <> 0 THEN
1083: IF g_debug <= gme_debug.g_log_procedure THEN
1084: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1085: END IF;
1086: RETURN TRUE;
1087: ELSE
1088: RAISE NO_DATA_FOUND;
1112: ,p_batch_header.batch_no);
1113: RETURN FALSE;
1114: --Bug2804440
1115: WHEN OTHERS THEN
1116: IF g_debug <= gme_debug.g_log_unexpected THEN
1117: gme_debug.put_line ( 'When others exception in '
1118: || g_pkg_name
1119: || '.'
1120: || l_api_name
1113: RETURN FALSE;
1114: --Bug2804440
1115: WHEN OTHERS THEN
1116: IF g_debug <= gme_debug.g_log_unexpected THEN
1117: gme_debug.put_line ( 'When others exception in '
1118: || g_pkg_name
1119: || '.'
1120: || l_api_name
1121: || ' Error is '
1159: IS
1160: l_dummy NUMBER;
1161: l_api_name CONSTANT VARCHAR2 (30) := 'LOCK_ROW';
1162: BEGIN
1163: IF g_debug <= gme_debug.g_log_procedure THEN
1164: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1165: || l_api_name);
1166: END IF;
1167:
1160: l_dummy NUMBER;
1161: l_api_name CONSTANT VARCHAR2 (30) := 'LOCK_ROW';
1162: BEGIN
1163: IF g_debug <= gme_debug.g_log_procedure THEN
1164: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1165: || l_api_name);
1166: END IF;
1167:
1168: IF p_batch_header.batch_id IS NOT NULL THEN
1187: ,g_table_name);
1188: RETURN FALSE;
1189: END IF;
1190:
1191: IF g_debug <= gme_debug.g_log_procedure THEN
1192: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1193: END IF;
1194:
1195: RETURN TRUE;
1188: RETURN FALSE;
1189: END IF;
1190:
1191: IF g_debug <= gme_debug.g_log_procedure THEN
1192: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1193: END IF;
1194:
1195: RETURN TRUE;
1196: EXCEPTION
1203: ,'KEY'
1204: ,p_batch_header.batch_no);
1205: RETURN FALSE;
1206: WHEN OTHERS THEN
1207: IF g_debug <= gme_debug.g_log_unexpected THEN
1208: gme_debug.put_line ( 'When others exception in '
1209: || g_pkg_name
1210: || '.'
1211: || l_api_name
1204: ,p_batch_header.batch_no);
1205: RETURN FALSE;
1206: WHEN OTHERS THEN
1207: IF g_debug <= gme_debug.g_log_unexpected THEN
1208: gme_debug.put_line ( 'When others exception in '
1209: || g_pkg_name
1210: || '.'
1211: || l_api_name
1212: || ' Error is '