73: IS
74: SELECT wip_entities_s.NEXTVAL
75: FROM DUAL;
76: BEGIN
77: IF g_debug <= gme_debug.g_log_procedure THEN
78: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
79: || l_api_name);
80: END IF;
81:
74: SELECT wip_entities_s.NEXTVAL
75: FROM DUAL;
76: BEGIN
77: IF g_debug <= gme_debug.g_log_procedure THEN
78: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
79: || l_api_name);
80: END IF;
81:
82: x_batch_header := p_batch_header;
217: ,x_batch_header.fixed_process_loss_applied);
218:
219: x_batch_header.batch_id := l_wip_entity_id;
220:
221: IF g_debug <= gme_debug.g_log_procedure THEN
222: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
223: END IF;
224:
225: IF SQL%FOUND THEN
218:
219: x_batch_header.batch_id := l_wip_entity_id;
220:
221: IF g_debug <= gme_debug.g_log_procedure THEN
222: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
223: END IF;
224:
225: IF SQL%FOUND THEN
226: RETURN TRUE;
229: END IF;
230: EXCEPTION
231: --Bug280440
232: WHEN OTHERS THEN
233: IF g_debug <= gme_debug.g_log_unexpected THEN
234: gme_debug.put_line ( 'When others exception in '
235: || g_pkg_name
236: || '.'
237: || l_api_name
230: EXCEPTION
231: --Bug280440
232: WHEN OTHERS THEN
233: IF g_debug <= gme_debug.g_log_unexpected THEN
234: gme_debug.put_line ( 'When others exception in '
235: || g_pkg_name
236: || '.'
237: || l_api_name
238: || ' Error is '
282: l_batch_no VARCHAR2 (32);
283: l_batch_type NUMBER (5);
284: l_api_name CONSTANT VARCHAR2 (30) := 'fetch_row';
285: BEGIN
286: IF g_debug <= gme_debug.g_log_procedure THEN
287: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
288: || l_api_name);
289: END IF;
290:
283: l_batch_type NUMBER (5);
284: l_api_name CONSTANT VARCHAR2 (30) := 'fetch_row';
285: BEGIN
286: IF g_debug <= gme_debug.g_log_procedure THEN
287: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
288: || l_api_name);
289: END IF;
290:
291: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
287: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
288: || l_api_name);
289: END IF;
290:
291: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
292: gme_debug.put_line ( 'Retrieving batch id: '
293: || TO_CHAR (p_batch_header.batch_id) );
294: END IF;
295:
288: || l_api_name);
289: END IF;
290:
291: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
292: gme_debug.put_line ( 'Retrieving batch id: '
293: || TO_CHAR (p_batch_header.batch_id) );
294: END IF;
295:
296: l_batch_id := p_batch_header.batch_id;
658: ,g_table_name);
659: RETURN FALSE;
660: END IF;
661:
662: IF g_debug <= gme_debug.g_log_procedure THEN
663: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
664: END IF;
665:
666: x_batch_header := l_gme_batch_header;
659: RETURN FALSE;
660: END IF;
661:
662: IF g_debug <= gme_debug.g_log_procedure THEN
663: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
664: END IF;
665:
666: x_batch_header := l_gme_batch_header;
667: RETURN TRUE;
671: ,'TABLE_NAME'
672: ,g_table_name);
673: RETURN FALSE;
674: WHEN OTHERS THEN
675: IF g_debug <= gme_debug.g_log_unexpected THEN
676: gme_debug.put_line ( 'When others exception in '
677: || g_pkg_name
678: || '.'
679: || l_api_name
672: ,g_table_name);
673: RETURN FALSE;
674: WHEN OTHERS THEN
675: IF g_debug <= gme_debug.g_log_unexpected THEN
676: gme_debug.put_line ( 'When others exception in '
677: || g_pkg_name
678: || '.'
679: || l_api_name
680: || ' Error is '
723: l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_ROW';
724: locked_by_other_user EXCEPTION;
725: PRAGMA EXCEPTION_INIT (locked_by_other_user, -54);
726: BEGIN
727: IF g_debug <= gme_debug.g_log_procedure THEN
728: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
729: || l_api_name);
730: END IF;
731:
724: locked_by_other_user EXCEPTION;
725: PRAGMA EXCEPTION_INIT (locked_by_other_user, -54);
726: BEGIN
727: IF g_debug <= gme_debug.g_log_procedure THEN
728: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
729: || l_api_name);
730: END IF;
731:
732: l_batch_id := p_batch_header.batch_id;
781: RETURN FALSE;
782: END IF;
783: END IF;
784:
785: IF g_debug <= gme_debug.g_log_procedure THEN
786: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
787: END IF;
788:
789: RETURN TRUE;
782: END IF;
783: END IF;
784:
785: IF g_debug <= gme_debug.g_log_procedure THEN
786: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
787: END IF;
788:
789: RETURN TRUE;
790: EXCEPTION
798: ,p_batch_header.batch_no);
799: RETURN FALSE;
800: --Bug2804440
801: WHEN OTHERS THEN
802: IF g_debug <= gme_debug.g_log_unexpected THEN
803: gme_debug.put_line ( 'When others exception in '
804: || g_pkg_name
805: || '.'
806: || l_api_name
799: RETURN FALSE;
800: --Bug2804440
801: WHEN OTHERS THEN
802: IF g_debug <= gme_debug.g_log_unexpected THEN
803: gme_debug.put_line ( 'When others exception in '
804: || g_pkg_name
805: || '.'
806: || l_api_name
807: || ' Error is '
850: locked_by_other_user EXCEPTION;
851: PRAGMA EXCEPTION_INIT (locked_by_other_user, -54);
852: l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_ROW';
853: BEGIN
854: IF g_debug <= gme_debug.g_log_procedure THEN
855: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
856: || l_api_name);
857: END IF;
858:
851: PRAGMA EXCEPTION_INIT (locked_by_other_user, -54);
852: l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_ROW';
853: BEGIN
854: IF g_debug <= gme_debug.g_log_procedure THEN
855: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
856: || l_api_name);
857: END IF;
858:
859: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
855: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
856: || l_api_name);
857: END IF;
858:
859: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
860: gme_debug.put_line ( 'Inside update_row for batch_id: '
861: || TO_CHAR (p_batch_header.batch_id) );
862: END IF;
863:
856: || l_api_name);
857: END IF;
858:
859: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
860: gme_debug.put_line ( 'Inside update_row for batch_id: '
861: || TO_CHAR (p_batch_header.batch_id) );
862: END IF;
863:
864: l_batch_id := p_batch_header.batch_id;
1064: ,g_table_name);
1065: RETURN FALSE;
1066: END IF;
1067: IF SQL%ROWCOUNT <> 0 THEN
1068: IF g_debug <= gme_debug.g_log_procedure THEN
1069: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1070: END IF;
1071: RETURN TRUE;
1072: ELSE
1065: RETURN FALSE;
1066: END IF;
1067: IF SQL%ROWCOUNT <> 0 THEN
1068: IF g_debug <= gme_debug.g_log_procedure THEN
1069: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1070: END IF;
1071: RETURN TRUE;
1072: ELSE
1073: RAISE NO_DATA_FOUND;
1097: ,p_batch_header.batch_no);
1098: RETURN FALSE;
1099: --Bug2804440
1100: WHEN OTHERS THEN
1101: IF g_debug <= gme_debug.g_log_unexpected THEN
1102: gme_debug.put_line ( 'When others exception in '
1103: || g_pkg_name
1104: || '.'
1105: || l_api_name
1098: RETURN FALSE;
1099: --Bug2804440
1100: WHEN OTHERS THEN
1101: IF g_debug <= gme_debug.g_log_unexpected THEN
1102: gme_debug.put_line ( 'When others exception in '
1103: || g_pkg_name
1104: || '.'
1105: || l_api_name
1106: || ' Error is '
1144: IS
1145: l_dummy NUMBER;
1146: l_api_name CONSTANT VARCHAR2 (30) := 'LOCK_ROW';
1147: BEGIN
1148: IF g_debug <= gme_debug.g_log_procedure THEN
1149: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1150: || l_api_name);
1151: END IF;
1152:
1145: l_dummy NUMBER;
1146: l_api_name CONSTANT VARCHAR2 (30) := 'LOCK_ROW';
1147: BEGIN
1148: IF g_debug <= gme_debug.g_log_procedure THEN
1149: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1150: || l_api_name);
1151: END IF;
1152:
1153: IF p_batch_header.batch_id IS NOT NULL THEN
1172: ,g_table_name);
1173: RETURN FALSE;
1174: END IF;
1175:
1176: IF g_debug <= gme_debug.g_log_procedure THEN
1177: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1178: END IF;
1179:
1180: RETURN TRUE;
1173: RETURN FALSE;
1174: END IF;
1175:
1176: IF g_debug <= gme_debug.g_log_procedure THEN
1177: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1178: END IF;
1179:
1180: RETURN TRUE;
1181: EXCEPTION
1188: ,'KEY'
1189: ,p_batch_header.batch_no);
1190: RETURN FALSE;
1191: WHEN OTHERS THEN
1192: IF g_debug <= gme_debug.g_log_unexpected THEN
1193: gme_debug.put_line ( 'When others exception in '
1194: || g_pkg_name
1195: || '.'
1196: || l_api_name
1189: ,p_batch_header.batch_no);
1190: RETURN FALSE;
1191: WHEN OTHERS THEN
1192: IF g_debug <= gme_debug.g_log_unexpected THEN
1193: gme_debug.put_line ( 'When others exception in '
1194: || g_pkg_name
1195: || '.'
1196: || l_api_name
1197: || ' Error is '