3:
4:
5: -- Logging Static Variables
6: G_CURRENT_RUNTIME_LEVEL NUMBER;
7: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
8: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
4:
5: -- Logging Static Variables
6: G_CURRENT_RUNTIME_LEVEL NUMBER;
7: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
8: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
5: -- Logging Static Variables
6: G_CURRENT_RUNTIME_LEVEL NUMBER;
7: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
8: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
13: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ICX.PLSQL.POR_AMENDMENT_PKG';
6: G_CURRENT_RUNTIME_LEVEL NUMBER;
7: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
8: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
13: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ICX.PLSQL.POR_AMENDMENT_PKG';
14:
7: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
8: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
13: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ICX.PLSQL.POR_AMENDMENT_PKG';
14:
15: g_po_wf_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('PO_SET_DEBUG_WORKFLOW_ON'),'N');
8: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
13: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ICX.PLSQL.POR_AMENDMENT_PKG';
14:
15: g_po_wf_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('PO_SET_DEBUG_WORKFLOW_ON'),'N');
16:
91: BEGIN
92:
93:
94: v_progress:='000';
95: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
96: l_log_msg := 'Invoked '||l_procedure_name;
97: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
98: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num||', p_table_name :'||p_table_name;
99: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
93:
94: v_progress:='000';
95: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
96: l_log_msg := 'Invoked '||l_procedure_name;
97: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
98: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num||', p_table_name :'||p_table_name;
99: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
100: END IF;
101:
95: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
96: l_log_msg := 'Invoked '||l_procedure_name;
97: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
98: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num||', p_table_name :'||p_table_name;
99: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
100: END IF;
101:
102: -- SQL What: Querying the archive table for the given revision_num and previous revision_num
103: -- SQL Why: Need to compare the values for each column
380: p_level:= 'UDA_LINES';
381: END IF;
382:
383: v_progress:='001';
384: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
385: l_log_msg := v_progress||' : After creating queries';
386: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
387: END IF;
388:
382:
383: v_progress:='001';
384: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
385: l_log_msg := v_progress||' : After creating queries';
386: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
387: END IF;
388:
389: -- Comparing the data between two revisions
390: compare(sql_stmt1, sql_stmt2, p_level, p_revision_num, amend_num);
389: -- Comparing the data between two revisions
390: compare(sql_stmt1, sql_stmt2, p_level, p_revision_num, amend_num);
391:
392: v_progress:='006';
393: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
394: l_log_msg := v_progress||' : After comparing two revisions';
395: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
396: END IF;
397:
391:
392: v_progress:='006';
393: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
394: l_log_msg := v_progress||' : After comparing two revisions';
395: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
396: END IF;
397:
398:
399: EXCEPTION
398:
399: EXCEPTION
400: WHEN others THEN
401:
402: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
403: l_log_msg := v_progress||' : Exception : '|| SQLERRM;
404: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
405: END IF;
406: RAISE;
400: WHEN others THEN
401:
402: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
403: l_log_msg := v_progress||' : Exception : '|| SQLERRM;
404: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
405: END IF;
406: RAISE;
407:
408: END compare_table;
493:
494:
495: v_progress:='000';
496:
497: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
498: l_log_msg := 'Invoked '||l_procedure_name;
499: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
500: END IF;
501:
495: v_progress:='000';
496:
497: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
498: l_log_msg := 'Invoked '||l_procedure_name;
499: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
500: END IF;
501:
502: -- UDA related changes
503:
540: x_xml1:= create_xml(sql_stmt1);
541: x_xml2:= create_xml(sql_stmt2);
542:
543: v_progress:='002';
544: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
545: l_log_msg := v_progress||' : After creating XMLs';
546: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
547: END IF;
548:
542:
543: v_progress:='002';
544: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
545: l_log_msg := v_progress||' : After creating XMLs';
546: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
547: END IF;
548:
549:
550: IF (x_xml2 IS NOT NULL) THEN
933: END LOOP;
934: END IF; -- If x_xml1 is NOT NULL
935:
936: v_progress:='006';
937: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
938: l_log_msg := v_progress||' : After comparing xmls';
939: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
940: END IF;
941:
935:
936: v_progress:='006';
937: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
938: l_log_msg := v_progress||' : After comparing xmls';
939: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
940: END IF;
941:
942:
943: EXCEPTION
942:
943: EXCEPTION
944: WHEN others THEN
945:
946: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
947: l_log_msg := v_progress||' : Exception : '|| SQLERRM;
948: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
949: END IF;
950: RAISE;
944: WHEN others THEN
945:
946: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
947: l_log_msg := v_progress||' : Exception : '|| SQLERRM;
948: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
949: END IF;
950: RAISE;
951:
952: END compare;
990: l_log_msg VARCHAR2(2000);
991:
992: BEGIN
993: v_progress := '000';
994: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
995: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
996: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
997: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num||', p_sequence_num : '||p_sequence_num;
998: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
992: BEGIN
993: v_progress := '000';
994: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
995: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
996: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
997: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num||', p_sequence_num : '||p_sequence_num;
998: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
999: END IF;
1000:
994: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
995: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
996: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
997: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num||', p_sequence_num : '||p_sequence_num;
998: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
999: END IF;
1000:
1001: v_progress := '001';
1002: compare_table('PO_REQUISITION_HEADERS_ALL',p_revision_num,p_confirmed_id,amend_num);
1015: v_progress := '005';
1016: compare_table('PO_REQ_LINES_UDA',p_revision_num,p_confirmed_id,amend_num);
1017: -- UDA related Changes
1018:
1019: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1020: l_log_msg := v_progress||': After comparing header, lines and distributions';
1021: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1022: END IF;
1023:
1017: -- UDA related Changes
1018:
1019: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1020: l_log_msg := v_progress||': After comparing header, lines and distributions';
1021: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1022: END IF;
1023:
1024: v_progress := '006';
1025:
1024: v_progress := '006';
1025:
1026: insert_changes(p_sequence_num,p_confirmed_id);
1027:
1028: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1029: l_log_msg := v_progress||': After inserting into temp tabl';
1030: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1031: END IF;
1032:
1026: insert_changes(p_sequence_num,p_confirmed_id);
1027:
1028: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1029: l_log_msg := v_progress||': After inserting into temp tabl';
1030: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1031: END IF;
1032:
1033: v_progress := '007';
1034: verify_no_differences(p_sequence_num,p_revision_num,amend_num);
1032:
1033: v_progress := '007';
1034: verify_no_differences(p_sequence_num,p_revision_num,amend_num);
1035:
1036: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1037: l_log_msg := v_progress||': After verifying if there is no changes';
1038: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1039: END IF;
1040:
1034: verify_no_differences(p_sequence_num,p_revision_num,amend_num);
1035:
1036: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1037: l_log_msg := v_progress||': After verifying if there is no changes';
1038: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1039: END IF;
1040:
1041:
1042: EXCEPTION
1040:
1041:
1042: EXCEPTION
1043: WHEN OTHERS THEN
1044: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1045: l_log_msg := v_progress||': Exception at procedure change_history';
1046: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1047: END IF;
1048: RAISE;
1042: EXCEPTION
1043: WHEN OTHERS THEN
1044: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1045: l_log_msg := v_progress||': Exception at procedure change_history';
1046: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1047: END IF;
1048: RAISE;
1049: END change_history;
1050:
1125: BEGIN
1126:
1127: v_progress := '000';
1128:
1129: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1130: l_log_msg := 'Inside procedure '||l_procedure_name;
1131: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1132: l_log_msg := 'p_confirmed_id: ' ||p_confirmed_id || ' p_revision_num: '||p_revision_num||' p_comparison_flag: '||p_comparison_flag;
1133: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1127: v_progress := '000';
1128:
1129: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1130: l_log_msg := 'Inside procedure '||l_procedure_name;
1131: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1132: l_log_msg := 'p_confirmed_id: ' ||p_confirmed_id || ' p_revision_num: '||p_revision_num||' p_comparison_flag: '||p_comparison_flag;
1133: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1134: END IF;
1135:
1129: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1130: l_log_msg := 'Inside procedure '||l_procedure_name;
1131: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1132: l_log_msg := 'p_confirmed_id: ' ||p_confirmed_id || ' p_revision_num: '||p_revision_num||' p_comparison_flag: '||p_comparison_flag;
1133: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1134: END IF;
1135:
1136: rec_index := 1;
1137:
1141: SELECT icx_po_history_details_s.nextval
1142: INTO p_sequence_num
1143: FROM DUAL;
1144:
1145: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1146: l_log_msg := v_progress||' : Getting sequence number: '||p_sequence_num;
1147: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1148: END IF;
1149:
1143: FROM DUAL;
1144:
1145: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1146: l_log_msg := v_progress||' : Getting sequence number: '||p_sequence_num;
1147: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1148: END IF;
1149:
1150:
1151: v_sequence_num:=p_sequence_num;
1159: INTO v_revision_counter
1160: FROM po_requisition_headers_all
1161: WHERE conformed_header_id=p_confirmed_id;
1162:
1163: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1164: l_log_msg := v_progress||' : Getting sequence number: '||p_sequence_num;
1165: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1166: END IF;
1167:
1161: WHERE conformed_header_id=p_confirmed_id;
1162:
1163: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1164: l_log_msg := v_progress||' : Getting sequence number: '||p_sequence_num;
1165: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1166: END IF;
1167:
1168:
1169: END IF;
1206:
1207: EXCEPTION
1208: WHEN others THEN
1209:
1210: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1211: l_log_msg := v_progress||' : Exception : '|| SQLERRM;
1212: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1213: END IF;
1214: RAISE;
1208: WHEN others THEN
1209:
1210: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1211: l_log_msg := v_progress||' : Exception : '|| SQLERRM;
1212: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1213: END IF;
1214: RAISE;
1215:
1216: END compare_req;
1292:
1293: BEGIN
1294:
1295: v_progress := '000';
1296: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1297: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
1298: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1299: l_log_msg := 'p_line_seq: ' ||p_line_seq || ' p_confirmed_id: '||p_confirmed_id;
1300: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1294:
1295: v_progress := '000';
1296: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1297: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
1298: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1299: l_log_msg := 'p_line_seq: ' ||p_line_seq || ' p_confirmed_id: '||p_confirmed_id;
1300: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1301: END IF;
1302:
1296: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1297: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
1298: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1299: l_log_msg := 'p_line_seq: ' ||p_line_seq || ' p_confirmed_id: '||p_confirmed_id;
1300: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1301: END IF;
1302:
1303: FORALL i in po_num_tab.FIRST..po_num_tab.LAST
1304: INSERT INTO
1338:
1339: EXCEPTION
1340: WHEN others THEN
1341:
1342: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1343: l_log_msg := v_progress||' : Exception at procedure insert_changes: '|| SQLERRM;
1344: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1345: END IF;
1346: RAISE;
1340: WHEN others THEN
1341:
1342: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1343: l_log_msg := v_progress||' : Exception at procedure insert_changes: '|| SQLERRM;
1344: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1345: END IF;
1346: RAISE;
1347:
1348: END insert_changes;
1377: id VARCHAR2(1000);
1378:
1379: BEGIN
1380: v_progress:= '000';
1381: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1382: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
1383: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1384: l_log_msg := 'p_id: ' ||p_id || ' label: '||label;
1385: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1379: BEGIN
1380: v_progress:= '000';
1381: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1382: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
1383: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1384: l_log_msg := 'p_id: ' ||p_id || ' label: '||label;
1385: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1386: END IF;
1387:
1381: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1382: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
1383: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1384: l_log_msg := 'p_id: ' ||p_id || ' label: '||label;
1385: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1386: END IF;
1387:
1388: IF label IN ('DELIVER_TO_LOCATION_ID') THEN
1389: id:= po_compare_revisions.get_location(p_id);
1448: END IF;
1449:
1450: v_progress:= '001';
1451:
1452: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1453: l_log_msg := v_progress||' : Function map_id_to_num returns: '||id;
1454: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1455: END IF;
1456:
1450: v_progress:= '001';
1451:
1452: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1453: l_log_msg := v_progress||' : Function map_id_to_num returns: '||id;
1454: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1455: END IF;
1456:
1457: RETURN id;
1458:
1458:
1459: EXCEPTION
1460: WHEN others THEN
1461:
1462: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1463: l_log_msg := v_progress||' : Exception at function map_id_to_num : '|| SQLERRM;
1464: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1465: END IF;
1466: RETURN NULL;
1460: WHEN others THEN
1461:
1462: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1463: l_log_msg := v_progress||' : Exception at function map_id_to_num : '|| SQLERRM;
1464: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1465: END IF;
1466: RETURN NULL;
1467:
1468: END map_id_to_num;
1505:
1506: BEGIN
1507:
1508: v_progress := '000';
1509: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1510: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
1511: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1512: l_log_msg := 'p_line_seq: ' ||p_line_seq || ' p_revision_num: '||p_revision_num;
1513: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1507:
1508: v_progress := '000';
1509: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1510: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
1511: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1512: l_log_msg := 'p_line_seq: ' ||p_line_seq || ' p_revision_num: '||p_revision_num;
1513: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1514: END IF;
1515:
1509: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1510: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
1511: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1512: l_log_msg := 'p_line_seq: ' ||p_line_seq || ' p_revision_num: '||p_revision_num;
1513: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1514: END IF;
1515:
1516: SELECT COUNT(*)
1517: INTO records_exist
1519: WHERE line_seq = p_line_seq;
1520:
1521: v_progress := '001';
1522:
1523: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1524: l_log_msg := v_progress||' : Number of records in temp table: '||records_exist;
1525: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1526: END IF;
1527:
1521: v_progress := '001';
1522:
1523: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1524: l_log_msg := v_progress||' : Number of records in temp table: '||records_exist;
1525: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1526: END IF;
1527:
1528: IF records_exist = 0 THEN
1529:
1566:
1567: EXCEPTION
1568: WHEN others THEN
1569:
1570: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1571: l_log_msg := v_progress||' : Exception at procedure verify_no_differences : '|| SQLERRM;
1572: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1573: END IF;
1574: RAISE;
1568: WHEN others THEN
1569:
1570: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1571: l_log_msg := v_progress||' : Exception at procedure verify_no_differences : '|| SQLERRM;
1572: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1573: END IF;
1574: RAISE;
1575:
1576: END verify_no_differences;
1668:
1669:
1670: v_progress:='000';
1671:
1672: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1673: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
1674: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1675: l_log_msg := 'p_table_name: ' ||p_table_name ||' p_confirmed_id: '||p_confirmed_id|| ' p_revision_num: '||p_revision_num;
1676: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1670: v_progress:='000';
1671:
1672: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1673: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
1674: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1675: l_log_msg := 'p_table_name: ' ||p_table_name ||' p_confirmed_id: '||p_confirmed_id|| ' p_revision_num: '||p_revision_num;
1676: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1677: END IF;
1678:
1672: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1673: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
1674: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1675: l_log_msg := 'p_table_name: ' ||p_table_name ||' p_confirmed_id: '||p_confirmed_id|| ' p_revision_num: '||p_revision_num;
1676: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1677: END IF;
1678:
1679: -- SQL What: Querying the archive table for the given revision_num and previous revision_num
1680: -- SQL Why: Need to compare the values for each column
1847:
1848: END IF;
1849:
1850: v_progress:='001';
1851: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1852: l_log_msg := v_progress||' : After creating queries';
1853: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1854: END IF;
1855:
1849:
1850: v_progress:='001';
1851: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1852: l_log_msg := v_progress||' : After creating queries';
1853: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1854: END IF;
1855:
1856:
1857: -- Getting the XMLs based on the dynamic queries
1859: x_xml1:= create_xml(sql_stmt1);
1860: x_xml2:= create_xml(sql_stmt2);
1861:
1862: v_progress:='002';
1863: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1864: l_log_msg := v_progress||' : After creating XMLs';
1865: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1866: END IF;
1867:
1861:
1862: v_progress:='002';
1863: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1864: l_log_msg := v_progress||' : After creating XMLs';
1865: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1866: END IF;
1867:
1868:
1869: IF (x_xml1 IS NOT NULL AND x_xml2 IS NOT NULL) THEN
2170:
2171: END IF; -- If x_xml1 is NOT NULL
2172:
2173: v_progress:='005';
2174: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2175: l_log_msg := v_progress||' : After comparing xmls';
2176: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2177: END IF;
2178:
2172:
2173: v_progress:='005';
2174: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2175: l_log_msg := v_progress||' : After comparing xmls';
2176: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2177: END IF;
2178:
2179:
2180: EXCEPTION
2179:
2180: EXCEPTION
2181: WHEN others THEN
2182:
2183: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2184: l_log_msg := v_progress||' : Exception at procedure set_amendment_status : '|| SQLERRM;
2185: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2186: END IF;
2187: RAISE;
2181: WHEN others THEN
2182:
2183: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2184: l_log_msg := v_progress||' : Exception at procedure set_amendment_status : '|| SQLERRM;
2185: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2186: END IF;
2187: RAISE;
2188:
2189: END set_amendment_status;
2221: BEGIN
2222:
2223: v_progress:='000';
2224:
2225: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2226: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
2227: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2228: l_log_msg := 'p_confirmed_id: ' ||p_confirmed_id || ' p_revision_num: '||p_revision_num;
2229: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2223: v_progress:='000';
2224:
2225: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2226: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
2227: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2228: l_log_msg := 'p_confirmed_id: ' ||p_confirmed_id || ' p_revision_num: '||p_revision_num;
2229: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2230: END IF;
2231:
2225: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2226: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
2227: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2228: l_log_msg := 'p_confirmed_id: ' ||p_confirmed_id || ' p_revision_num: '||p_revision_num;
2229: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2230: END IF;
2231:
2232: set_amendment_status('PO_REQUISITION_HEADERS_ALL',p_revision_num,p_confirmed_id);
2233: set_amendment_status('PO_REQUISITION_LINES_ALL',p_revision_num,p_confirmed_id);
2234: set_amendment_status('PO_REQ_DISTRIBUTIONS_ALL',p_revision_num,p_confirmed_id);
2235:
2236: v_progress:='001';
2237:
2238: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2239: l_log_msg := v_progress||' : Update completes';
2240: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2241: END IF;
2242:
2236: v_progress:='001';
2237:
2238: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2239: l_log_msg := v_progress||' : Update completes';
2240: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2241: END IF;
2242:
2243: COMMIT;
2244:
2246: WHEN OTHERS THEN
2247:
2248: ROLLBACK;
2249:
2250: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2251: l_log_msg := v_progress||' : Exception at procedure update_amendment : '|| SQLERRM;
2252: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2253: END IF;
2254: RAISE;
2248: ROLLBACK;
2249:
2250: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2251: l_log_msg := v_progress||' : Exception at procedure update_amendment : '|| SQLERRM;
2252: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2253: END IF;
2254: RAISE;
2255:
2256: END update_amendment;
2273: l_log_msg VARCHAR2(2000);
2274:
2275: BEGIN
2276:
2277: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2278: l_log_msg := 'Inside procedure : '||l_procedure_name;
2279: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2280: l_log_msg := 'p_req_header_id : '||p_req_header_id||', p_req_number : '||p_req_number;
2281: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2275: BEGIN
2276:
2277: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2278: l_log_msg := 'Inside procedure : '||l_procedure_name;
2279: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2280: l_log_msg := 'p_req_header_id : '||p_req_header_id||', p_req_number : '||p_req_number;
2281: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2282: END IF;
2283:
2277: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2278: l_log_msg := 'Inside procedure : '||l_procedure_name;
2279: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2280: l_log_msg := 'p_req_header_id : '||p_req_header_id||', p_req_number : '||p_req_number;
2281: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2282: END IF;
2283:
2284:
2285: BEGIN
2292: END IF;
2293:
2294: EXCEPTION
2295: WHEN No_Data_Found THEN
2296: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2297: l_log_msg := 'Inside No_DATA_FOUND';
2298: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2299: END IF;
2300:
2294: EXCEPTION
2295: WHEN No_Data_Found THEN
2296: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2297: l_log_msg := 'Inside No_DATA_FOUND';
2298: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2299: END IF;
2300:
2301: x_revision_num := 1;
2302: END;
2304: SELECT LPad(x_revision_num ,3,'0') INTO l_val FROM dual;
2305:
2306: x_segment1 := p_req_number||'-'||l_val;
2307:
2308: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2309: l_log_msg := 'Exiting with values x_revision_num : '||x_revision_num||', x_segment1: '||x_segment1;
2310: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2311: END IF;
2312:
2306: x_segment1 := p_req_number||'-'||l_val;
2307:
2308: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2309: l_log_msg := 'Exiting with values x_revision_num : '||x_revision_num||', x_segment1: '||x_segment1;
2310: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2311: END IF;
2312:
2313:
2314: END getAmendmentAttributes;
2342:
2343: BEGIN
2344:
2345: v_progress := '000';
2346: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2347: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
2348: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2349: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num;
2350: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2344:
2345: v_progress := '000';
2346: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2347: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
2348: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2349: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num;
2350: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2351: END IF;
2352:
2346: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2347: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
2348: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2349: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num;
2350: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2351: END IF;
2352:
2353: -- Creating the sql statement
2354:
2417: '',
2418: '',
2419: '');
2420: v_progress := '005';
2421: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2422: l_log_msg := v_progress||' : After merging attachments for Header';
2423: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2424: END IF;
2425: /* Merging attachments - end */
2419: '');
2420: v_progress := '005';
2421: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2422: l_log_msg := v_progress||' : After merging attachments for Header';
2423: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2424: END IF;
2425: /* Merging attachments - end */
2426:
2427:
2427:
2428: EXCEPTION
2429: WHEN OTHERS THEN
2430:
2431: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2432: l_log_msg := v_progress||' : Exception at merge_amendment_header : '|| SQLERRM;
2433: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2434: END IF;
2435: RAISE;
2429: WHEN OTHERS THEN
2430:
2431: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2432: l_log_msg := v_progress||' : Exception at merge_amendment_header : '|| SQLERRM;
2433: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2434: END IF;
2435: RAISE;
2436: END merge_amendment_header;
2437:
2445: l_log_msg VARCHAR2(2000);
2446:
2447:
2448: BEGIN
2449: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2450: l_log_msg := ': Inside procedure '||l_procedure_name;
2451: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2452: END IF;
2453:
2447:
2448: BEGIN
2449: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2450: l_log_msg := ': Inside procedure '||l_procedure_name;
2451: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2452: END IF;
2453:
2454: SELECT po_req_distributions_s.NEXTVAL
2455: INTO x_new_dist_id
2621: WHERE distribution_id = p_from_dist_id;
2622:
2623: EXCEPTION
2624: WHEN OTHERS THEN
2625: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2626: l_log_msg := ' : Exception at create_amd_dist_on_conf_copy: '|| SQLERRM;
2627: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2628: END IF;
2629: RAISE;
2623: EXCEPTION
2624: WHEN OTHERS THEN
2625: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2626: l_log_msg := ' : Exception at create_amd_dist_on_conf_copy: '|| SQLERRM;
2627: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2628: END IF;
2629: RAISE;
2630:
2631: END create_amd_dist_on_conf_copy;
2638: l_procedure_name VARCHAR2(100) := 'update_amd_dist_on_conf_copy';
2639: l_log_msg VARCHAR2(2000);
2640:
2641: BEGIN
2642: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2643: l_log_msg := ': Inside procedure '||l_procedure_name;
2644: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2645: END IF;
2646:
2640:
2641: BEGIN
2642: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2643: l_log_msg := ': Inside procedure '||l_procedure_name;
2644: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2645: END IF;
2646:
2647: MERGE
2648: INTO po_req_distributions_all target
2679: target.change_in_funded_value = Nvl(source.change_in_funded_value,0) ;
2680: -- <
2681: EXCEPTION
2682: WHEN OTHERS THEN
2683: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2684: l_log_msg := ' : Exception at update_amd_dist_on_conf_copy: '|| SQLERRM;
2685: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2686: END IF;
2687: RAISE;
2681: EXCEPTION
2682: WHEN OTHERS THEN
2683: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2684: l_log_msg := ' : Exception at update_amd_dist_on_conf_copy: '|| SQLERRM;
2685: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2686: END IF;
2687: RAISE;
2688: END update_amd_dist_on_conf_copy;
2689:
2705: l_info_line_temp_id NUMBER;
2706:
2707: BEGIN
2708: v_progress := '000';
2709: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2710: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
2711: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2712: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num;
2713: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2707: BEGIN
2708: v_progress := '000';
2709: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2710: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
2711: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2712: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num;
2713: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2714: END IF;
2715:
2709: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2710: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
2711: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2712: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num;
2713: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2714: END IF;
2715:
2716: SELECT distribution_id, requisition_line_id, conformed_dist_id, info_line_id
2717: BULK COLLECT INTO l_distribution_ids, l_req_line_id, l_conformed_dist_ids, l_info_line_id
2740:
2741:
2742: EXCEPTION
2743: WHEN OTHERS THEN
2744: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2745: l_log_msg := v_progress||' : Exception at merge_amendment_distribution: '|| SQLERRM;
2746: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2747: END IF;
2748: RAISE;
2742: EXCEPTION
2743: WHEN OTHERS THEN
2744: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2745: l_log_msg := v_progress||' : Exception at merge_amendment_distribution: '|| SQLERRM;
2746: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2747: END IF;
2748: RAISE;
2749: END merge_amendment_distribution;
2750:
2757: l_procedure_name VARCHAR2(100) := 'update_amd_line_on_conf_copy';
2758: l_log_msg VARCHAR2(2000);
2759:
2760: BEGIN
2761: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2762: l_log_msg := ': Inside procedure '||l_procedure_name;
2763: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2764: END IF;
2765:
2759:
2760: BEGIN
2761: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2762: l_log_msg := ': Inside procedure '||l_procedure_name;
2763: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2764: END IF;
2765:
2766: MERGE
2767: INTO po_requisition_lines_all target
2840: target.CLM_MIPR_OBLIGATION_TYPE = source.CLM_MIPR_OBLIGATION_TYPE;
2841:
2842: EXCEPTION
2843: WHEN OTHERS THEN
2844: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2845: l_log_msg := ' : Exception at update_amd_line_on_conf_copy : '|| SQLERRM;
2846: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2847: END IF;
2848: RAISE;
2842: EXCEPTION
2843: WHEN OTHERS THEN
2844: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2845: l_log_msg := ' : Exception at update_amd_line_on_conf_copy : '|| SQLERRM;
2846: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2847: END IF;
2848: RAISE;
2849:
2850: END update_amd_line_on_conf_copy;
2861: l_log_msg VARCHAR2(2000);
2862:
2863:
2864: BEGIN
2865: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2866: l_log_msg := ': Inside procedure '||l_procedure_name;
2867: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2868: END IF;
2869:
2863:
2864: BEGIN
2865: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2866: l_log_msg := ': Inside procedure '||l_procedure_name;
2867: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
2868: END IF;
2869:
2870: SELECT po_requisition_lines_s.NEXTVAL
2871: INTO x_new_line_id
3299: WHERE source.requisition_line_id = p_from_line_id;
3300:
3301: EXCEPTION
3302: WHEN OTHERS THEN
3303: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3304: l_log_msg := ' : Exception at create_amd_line_on_conf_copy : '|| SQLERRM;
3305: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3306: END IF;
3307: RAISE;
3301: EXCEPTION
3302: WHEN OTHERS THEN
3303: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3304: l_log_msg := ' : Exception at create_amd_line_on_conf_copy : '|| SQLERRM;
3305: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3306: END IF;
3307: RAISE;
3308:
3309: END create_amd_line_on_conf_copy;
3318: l_log_msg VARCHAR2(2000);
3319:
3320: BEGIN
3321: v_progress := '000';
3322: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3323: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
3324: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3325: END IF;
3326:
3320: BEGIN
3321: v_progress := '000';
3322: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3323: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
3324: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3325: END IF;
3326:
3327: /* Merging one time location - start */
3328:
3384: WHERE piav.requisition_line_id = p_from_line_id;
3385:
3386: v_progress := '003';
3387:
3388: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3389: l_log_msg := v_progress||' : After merging one time location for line';
3390: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3391: END IF;
3392:
3386: v_progress := '003';
3387:
3388: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3389: l_log_msg := v_progress||' : After merging one time location for line';
3390: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3391: END IF;
3392:
3393: /* Merging one time location - end */
3394:
3425: '');
3426:
3427:
3428: v_progress := '005';
3429: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3430: l_log_msg := v_progress||' : After merging attachments for Lines';
3431: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3432: END IF;
3433: /* Merging attachments - end */
3427:
3428: v_progress := '005';
3429: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3430: l_log_msg := v_progress||' : After merging attachments for Lines';
3431: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3432: END IF;
3433: /* Merging attachments - end */
3434:
3435: EXCEPTION
3433: /* Merging attachments - end */
3434:
3435: EXCEPTION
3436: WHEN OTHERS THEN
3437: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3438: l_log_msg := ' : Exception at update_oneTimeL_and_Atchmnt : '|| SQLERRM;
3439: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3440: END IF;
3441:
3435: EXCEPTION
3436: WHEN OTHERS THEN
3437: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3438: l_log_msg := ' : Exception at update_oneTimeL_and_Atchmnt : '|| SQLERRM;
3439: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3440: END IF;
3441:
3442: END update_oneTimeL_and_Atchmnt;
3443:
3459:
3460: BEGIN
3461:
3462: v_progress := '000';
3463: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3464: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
3465: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3466: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num;
3467: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3461:
3462: v_progress := '000';
3463: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3464: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
3465: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3466: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num;
3467: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3468: END IF;
3469:
3463: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3464: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
3465: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3466: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num;
3467: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3468: END IF;
3469:
3470: SELECT requisition_header_id
3471: INTO l_req_header_id
3472: FROM po_requisition_headers_all
3473: WHERE conformed_header_id = p_confirmed_id
3474: AND revision_num = p_revision_num;
3475:
3476: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3477: l_log_msg := v_progress||': req_header_id of the amendment record : '||l_req_header_id;
3478: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3479: END IF;
3480:
3474: AND revision_num = p_revision_num;
3475:
3476: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3477: l_log_msg := v_progress||': req_header_id of the amendment record : '||l_req_header_id;
3478: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3479: END IF;
3480:
3481: /*
3482: For merging lines, we have to do at line by line basis.
3611: merge_amendment_distribution(p_confirmed_id,p_revision_num, line_map);
3612:
3613: EXCEPTION
3614: WHEN OTHERS THEN
3615: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3616: l_log_msg := v_progress||' : Exception at merge_amendment_line: '|| SQLERRM;
3617: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3618: END IF;
3619: RAISE;
3613: EXCEPTION
3614: WHEN OTHERS THEN
3615: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3616: l_log_msg := v_progress||' : Exception at merge_amendment_line: '|| SQLERRM;
3617: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3618: END IF;
3619: RAISE;
3620: END merge_amendment_line;
3621:
3630: max_seq NUMBER;
3631: BEGIN
3632:
3633: v_progress:='000';
3634: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3635: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
3636: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3637: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num;
3638: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3632:
3633: v_progress:='000';
3634: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3635: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
3636: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3637: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num;
3638: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3639: END IF;
3640:
3634: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3635: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
3636: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3637: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num;
3638: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3639: END IF;
3640:
3641: SELECT Max(sequence_num)
3642: INTO max_seq
3648: AND object_type_code = 'REQUISITION';
3649:
3650: v_progress:='001';
3651:
3652: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3653: l_log_msg := v_progress||' At procedure merge_action_history: max_seq: '|| max_seq;
3654: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3655: END IF;
3656:
3650: v_progress:='001';
3651:
3652: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3653: l_log_msg := v_progress||' At procedure merge_action_history: max_seq: '|| max_seq;
3654: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3655: END IF;
3656:
3657: INSERT INTO po_action_history(
3658: object_id,
3706: AND revision_num =p_revision_num)
3707: AND object_type_code = 'REQUISITION';
3708:
3709: v_progress:='002';
3710: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3711: l_log_msg := v_progress||' After merging requisition action history';
3712: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3713: END IF;
3714:
3708:
3709: v_progress:='002';
3710: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3711: l_log_msg := v_progress||' After merging requisition action history';
3712: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3713: END IF;
3714:
3715:
3716: EXCEPTION
3714:
3715:
3716: EXCEPTION
3717: WHEN OTHERS THEN
3718: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3719: l_log_msg := v_progress||' : Exception at procedure merge_action_history '|| SQLERRM;
3720: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3721: END IF;
3722: RAISE;
3716: EXCEPTION
3717: WHEN OTHERS THEN
3718: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3719: l_log_msg := v_progress||' : Exception at procedure merge_action_history '|| SQLERRM;
3720: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3721: END IF;
3722: RAISE;
3723: END merge_action_history;
3724:
3734: -- Standard start of API savepoint
3735: SAVEPOINT MERGE_AMENDMENT;
3736:
3737: v_progress:='000';
3738: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3739: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
3740: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3741: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num;
3742: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3736:
3737: v_progress:='000';
3738: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3739: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
3740: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3741: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num;
3742: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3743: END IF;
3744:
3738: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3739: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
3740: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3741: l_log_msg := 'p_confirmed_id : '||p_confirmed_id||', p_revision_num : '||p_revision_num;
3742: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3743: END IF;
3744:
3745: merge_amendment_header(p_confirmed_id,p_revision_num);
3746: v_progress:='001';
3761:
3762: EXCEPTION
3763: WHEN OTHERS THEN
3764: ROLLBACK TO SAVEPOINT MERGE_AMENDMENT;
3765: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3766: l_log_msg := v_progress||' : Exception : '|| SQLERRM;
3767: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3768: END IF;
3769: RAISE;
3763: WHEN OTHERS THEN
3764: ROLLBACK TO SAVEPOINT MERGE_AMENDMENT;
3765: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3766: l_log_msg := v_progress||' : Exception : '|| SQLERRM;
3767: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3768: END IF;
3769: RAISE;
3770: END merge_amendment;
3771:
3784: l_log_msg VARCHAR2(2000);
3785: BEGIN
3786:
3787: v_progress := '000';
3788: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3789: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
3790: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3791: l_log_msg := 'p_from_req_header_id: ' ||p_from_req_header_id;
3792: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3786:
3787: v_progress := '000';
3788: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3789: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
3790: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3791: l_log_msg := 'p_from_req_header_id: ' ||p_from_req_header_id;
3792: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3793: END IF;
3794:
3788: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3789: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
3790: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3791: l_log_msg := 'p_from_req_header_id: ' ||p_from_req_header_id;
3792: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3793: END IF;
3794:
3795: -- Standard start of API savepoint
3796: SAVEPOINT CREATE_BASE_COPY;
3803: v_progress := '002';
3804: /* Call the procedure to copy the header*/
3805: copy_header(p_from_req_header_id, 0, x_to_req_header_id, x_return_status, x_return_msg);
3806:
3807: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3808: l_log_msg := v_progress||' : Procedure copy_header: x_return_status: '||x_return_status ||' x_to_req_header_id: '||x_to_req_header_id ||' x_return_msg: '||x_return_msg;
3809: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3810: END IF;
3811:
3805: copy_header(p_from_req_header_id, 0, x_to_req_header_id, x_return_status, x_return_msg);
3806:
3807: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3808: l_log_msg := v_progress||' : Procedure copy_header: x_return_status: '||x_return_status ||' x_to_req_header_id: '||x_to_req_header_id ||' x_return_msg: '||x_return_msg;
3809: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3810: END IF;
3811:
3812: copy_lines(p_from_req_header_id, x_to_req_header_id, x_return_status, x_return_msg);
3813:
3810: END IF;
3811:
3812: copy_lines(p_from_req_header_id, x_to_req_header_id, x_return_status, x_return_msg);
3813:
3814: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3815: l_log_msg := v_progress||' : x_return_status: '||x_return_status ||' x_to_req_header_id: '||x_to_req_header_id||' x_return_msg: '||x_return_msg;
3816: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3817: END IF;
3818:
3812: copy_lines(p_from_req_header_id, x_to_req_header_id, x_return_status, x_return_msg);
3813:
3814: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3815: l_log_msg := v_progress||' : x_return_status: '||x_return_status ||' x_to_req_header_id: '||x_to_req_header_id||' x_return_msg: '||x_return_msg;
3816: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3817: END IF;
3818:
3819: v_progress := '003';
3820: --Copy Uda lines into base version.
3819: v_progress := '003';
3820: --Copy Uda lines into base version.
3821: POR_UDA_PKG.copy_uda_header(p_from_req_header_id, x_to_req_header_id, x_return_status, x_return_msg);
3822:
3823: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3824: l_log_msg := v_progress||' : x_return_status: '||x_return_status ||' x_to_req_header_id: '||x_to_req_header_id||' x_return_msg: '||x_return_msg;
3825: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3826: END IF;
3827:
3821: POR_UDA_PKG.copy_uda_header(p_from_req_header_id, x_to_req_header_id, x_return_status, x_return_msg);
3822:
3823: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3824: l_log_msg := v_progress||' : x_return_status: '||x_return_status ||' x_to_req_header_id: '||x_to_req_header_id||' x_return_msg: '||x_return_msg;
3825: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3826: END IF;
3827:
3828: v_progress := '004';
3829: POR_UDA_PKG.copy_uda_line(p_from_req_header_id, x_to_req_header_id, x_return_status, x_return_msg);
3827:
3828: v_progress := '004';
3829: POR_UDA_PKG.copy_uda_line(p_from_req_header_id, x_to_req_header_id, x_return_status, x_return_msg);
3830:
3831: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3832: l_log_msg := v_progress||' : x_return_status: '||x_return_status ||' x_to_req_header_id: '||x_to_req_header_id||' x_return_msg: '||x_return_msg;
3833: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3834: END IF;
3835:
3829: POR_UDA_PKG.copy_uda_line(p_from_req_header_id, x_to_req_header_id, x_return_status, x_return_msg);
3830:
3831: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3832: l_log_msg := v_progress||' : x_return_status: '||x_return_status ||' x_to_req_header_id: '||x_to_req_header_id||' x_return_msg: '||x_return_msg;
3833: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3834: END IF;
3835:
3836: v_progress := '005';
3837:
3836: v_progress := '005';
3837:
3838: COMMIT;
3839:
3840: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3841: l_log_msg := v_progress||' : After Commit';
3842: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3843: END IF;
3844:
3838: COMMIT;
3839:
3840: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3841: l_log_msg := v_progress||' : After Commit';
3842: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3843: END IF;
3844:
3845:
3846: EXCEPTION
3846: EXCEPTION
3847: WHEN OTHERS THEN
3848: ROLLBACK TO SAVEPOINT CREATE_BASE_COPY;
3849:
3850: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3851: l_log_msg := v_progress||' : Exception at create_base_copy: '|| SQLERRM;
3852: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3853: END IF;
3854: RAISE;
3848: ROLLBACK TO SAVEPOINT CREATE_BASE_COPY;
3849:
3850: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3851: l_log_msg := v_progress||' : Exception at create_base_copy: '|| SQLERRM;
3852: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3853: END IF;
3854: RAISE;
3855: END create_base_copy;
3856:
3868: BEGIN
3869:
3870: v_progress := '000';
3871: x_return_status := FND_API.g_ret_sts_success;
3872: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3873: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
3874: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3875: l_log_msg := 'p_from_req_header_id: ' ||p_from_req_header_id;
3876: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3870: v_progress := '000';
3871: x_return_status := FND_API.g_ret_sts_success;
3872: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3873: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
3874: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3875: l_log_msg := 'p_from_req_header_id: ' ||p_from_req_header_id;
3876: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3877: END IF;
3878:
3872: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3873: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
3874: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3875: l_log_msg := 'p_from_req_header_id: ' ||p_from_req_header_id;
3876: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3877: END IF;
3878:
3879: x_return_msg := NULL;
3880:
3882: INTO x_to_req_header_id
3883: FROM dual;
3884:
3885: v_progress := '001';
3886: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3887: l_log_msg := v_progress||' : x_to_req_header_id: ' ||x_to_req_header_id;
3888: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3889: END IF;
3890:
3884:
3885: v_progress := '001';
3886: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3887: l_log_msg := v_progress||' : x_to_req_header_id: ' ||x_to_req_header_id;
3888: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
3889: END IF;
3890:
3891:
3892: INSERT INTO po_requisition_headers_all (
4074: FROM po_requisition_headers_all
4075: WHERE requisition_header_id = p_from_req_header_id;
4076:
4077: v_progress := '002';
4078: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4079: l_log_msg := v_progress||' : After insert into po_requisition_headers_all';
4080: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4081: END IF;
4082:
4076:
4077: v_progress := '002';
4078: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4079: l_log_msg := v_progress||' : After insert into po_requisition_headers_all';
4080: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4081: END IF;
4082:
4083:
4084: /* Copying header level attachments */
4101: '',
4102: '');
4103:
4104: v_progress := '003';
4105: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4106: l_log_msg := v_progress||' : After copying header level attachments';
4107: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4108: END IF;
4109:
4103:
4104: v_progress := '003';
4105: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4106: l_log_msg := v_progress||' : After copying header level attachments';
4107: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4108: END IF;
4109:
4110: /* Copying header level attachments - end */
4111:
4114:
4115: x_return_msg := SQLERRM;
4116: x_return_status := FND_API.g_ret_sts_error;
4117:
4118: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4119: l_log_msg := v_progress||' : Exception at copy_header: '|| SQLERRM;
4120: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4121: END IF;
4122:
4116: x_return_status := FND_API.g_ret_sts_error;
4117:
4118: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4119: l_log_msg := v_progress||' : Exception at copy_header: '|| SQLERRM;
4120: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4121: END IF;
4122:
4123: RAISE;
4124: END copy_header;
4151: v_progress := '000';
4152:
4153: x_return_status := fnd_api.G_RET_STS_SUCCESS;
4154:
4155: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4156: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
4157: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4158: l_log_msg := 'p_from_req_header_id: ' ||p_from_req_header_id || ' p_to_req_header_id: '||p_to_req_header_id;
4159: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4153: x_return_status := fnd_api.G_RET_STS_SUCCESS;
4154:
4155: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4156: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
4157: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4158: l_log_msg := 'p_from_req_header_id: ' ||p_from_req_header_id || ' p_to_req_header_id: '||p_to_req_header_id;
4159: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4160: END IF;
4161:
4155: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4156: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
4157: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4158: l_log_msg := 'p_from_req_header_id: ' ||p_from_req_header_id || ' p_to_req_header_id: '||p_to_req_header_id;
4159: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4160: END IF;
4161:
4162: x_return_msg := NULL;
4163:
4598: WHERE prl.requisition_line_id = from_req_line_id;
4599:
4600: v_progress := '002';
4601:
4602: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4603: l_log_msg := v_progress||' : After inserting line: '||to_req_line_id;
4604: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4605: END IF;
4606:
4600: v_progress := '002';
4601:
4602: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4603: l_log_msg := v_progress||' : After inserting line: '||to_req_line_id;
4604: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4605: END IF;
4606:
4607: /* Copying header level attachments */
4608:
4624: '',
4625: '');
4626:
4627: v_progress := '003';
4628: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4629: l_log_msg := v_progress||' : After copying line level attachments';
4630: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4631: END IF;
4632:
4626:
4627: v_progress := '003';
4628: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4629: l_log_msg := v_progress||' : After copying line level attachments';
4630: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4631: END IF;
4632:
4633: /* Copying header level attachments - end */
4634:
4691: AND item_type = 'AD_HOC_LOCATION';
4692:
4693: v_progress := '005';
4694:
4695: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4696: l_log_msg := v_progress||' : After copying one time location for line: '||to_req_line_id;
4697: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4698: END IF;
4699:
4693: v_progress := '005';
4694:
4695: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4696: l_log_msg := v_progress||' : After copying one time location for line: '||to_req_line_id;
4697: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4698: END IF;
4699:
4700: /* Copying One Time location - end */
4701:
4702: copy_distributions(from_req_line_id,to_req_line_id,x_return_status,x_return_msg);
4703:
4704: v_progress := '006';
4705:
4706: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4707: l_log_msg := v_progress||' : After inserting distributions for line: '||to_req_line_id;
4708: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4709: END IF;
4710:
4704: v_progress := '006';
4705:
4706: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4707: l_log_msg := v_progress||' : After inserting distributions for line: '||to_req_line_id;
4708: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4709: END IF;
4710:
4711: END LOOP;
4712:
4711: END LOOP;
4712:
4713: v_progress := '007';
4714:
4715: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4716: l_log_msg := v_progress||' : After insert into po_requisition_lines_all and po_req_distributions_all';
4717: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4718: END IF;
4719:
4713: v_progress := '007';
4714:
4715: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4716: l_log_msg := v_progress||' : After insert into po_requisition_lines_all and po_req_distributions_all';
4717: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4718: END IF;
4719:
4720: EXCEPTION
4721: WHEN OTHERS THEN
4722:
4723: x_return_msg := SQLERRM;
4724: x_return_status := FND_API.g_ret_sts_error;
4725:
4726: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4727: l_log_msg := v_progress||' : Exception at copy_lines: '|| SQLERRM;
4728: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4729: END IF;
4730: RAISE;
4724: x_return_status := FND_API.g_ret_sts_error;
4725:
4726: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4727: l_log_msg := v_progress||' : Exception at copy_lines: '|| SQLERRM;
4728: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4729: END IF;
4730: RAISE;
4731: END copy_lines;
4732:
4746: BEGIN
4747:
4748: v_progress := '000';
4749: x_return_status := fnd_api.G_RET_STS_SUCCESS;
4750: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4751: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
4752: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4753: l_log_msg := 'p_from_req_line_id: ' ||p_from_req_line_id || ' p_to_req_line_id: '||p_to_req_line_id;
4754: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4748: v_progress := '000';
4749: x_return_status := fnd_api.G_RET_STS_SUCCESS;
4750: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4751: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
4752: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4753: l_log_msg := 'p_from_req_line_id: ' ||p_from_req_line_id || ' p_to_req_line_id: '||p_to_req_line_id;
4754: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4755: END IF;
4756:
4750: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4751: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
4752: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4753: l_log_msg := 'p_from_req_line_id: ' ||p_from_req_line_id || ' p_to_req_line_id: '||p_to_req_line_id;
4754: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4755: END IF;
4756:
4757: x_return_msg := NULL;
4758:
4926: WHERE requisition_line_id = p_from_req_line_id;
4927:
4928: v_progress := '001';
4929:
4930: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4931: l_log_msg := v_progress||' : After inserting distribution';
4932: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4933: END IF;
4934:
4928: v_progress := '001';
4929:
4930: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4931: l_log_msg := v_progress||' : After inserting distribution';
4932: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4933: END IF;
4934:
4935: EXCEPTION
4936: WHEN OTHERS THEN
4937:
4938: x_return_msg := SQLERRM;
4939: x_return_status := FND_API.g_ret_sts_error;
4940:
4941: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4942: l_log_msg := v_progress||' : Exception at copy_distributions: '|| SQLERRM;
4943: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4944: END IF;
4945: RAISE;
4939: x_return_status := FND_API.g_ret_sts_error;
4940:
4941: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4942: l_log_msg := v_progress||' : Exception at copy_distributions: '|| SQLERRM;
4943: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4944: END IF;
4945: RAISE;
4946: END copy_distributions;
4947:
4952: l_procedure_name VARCHAR2(100) := 'carry_auto_aceept_and_reject';
4953: l_log_msg VARCHAR2(2000);
4954: BEGIN
4955:
4956: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4957: l_log_msg := ' Begin ';
4958: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4959: END IF;
4960:
4954: BEGIN
4955:
4956: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4957: l_log_msg := ' Begin ';
4958: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
4959: END IF;
4960:
4961: --First update all those lines and distribution to accepted whose
4962: --conformed_ids are null and they are CLIN
5012: WHERE prla1.requisition_line_id = prla.conformed_line_id
5013: AND prla1.line_location_id IS NULL
5014: AND prla1.auction_header_id is NULL));
5015:
5016: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5017: l_log_msg := ' Auto Accept completed';
5018: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5019: END IF;
5020:
5014: AND prla1.auction_header_id is NULL));
5015:
5016: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5017: l_log_msg := ' Auto Accept completed';
5018: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5019: END IF;
5020:
5021:
5022: END carry_auto_aceept_and_reject;
5608: END IF;
5609:
5610: EXCEPTION
5611: WHEN OTHERS THEN
5612: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5613: l_log_msg := x_progress||'CException: '||SQLERRM;
5614: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_api_name, l_log_msg);
5615:
5616: END IF;
5610: EXCEPTION
5611: WHEN OTHERS THEN
5612: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5613: l_log_msg := x_progress||'CException: '||SQLERRM;
5614: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_api_name, l_log_msg);
5615:
5616: END IF;
5617: wf_core.context('POR_AMENDMENT_PKG','amendment_post_merge_actions',x_progress);
5618: raise;
5637:
5638: x_return_status := FND_API.g_ret_sts_success;
5639:
5640: v_progress := '000';
5641: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5642: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
5643: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5644: l_log_msg := 'p_from_req_header_id: ' ||p_from_req_header_id;
5645: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5639:
5640: v_progress := '000';
5641: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5642: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
5643: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5644: l_log_msg := 'p_from_req_header_id: ' ||p_from_req_header_id;
5645: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5646: END IF;
5647:
5641: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5642: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
5643: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5644: l_log_msg := 'p_from_req_header_id: ' ||p_from_req_header_id;
5645: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5646: END IF;
5647:
5648: -- Standard start of API savepoint
5649: SAVEPOINT CREATE_CANCEL_AMENDMENT;
5658:
5659: /* Call the procedure to copy the header*/
5660: copy_header(p_from_req_header_id, l_revision_num+1, l_to_req_header_id, l_return_status, l_return_msg);
5661:
5662: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5663: l_log_msg := v_progress||' : Procedure copy_header: l_return_status: '||l_return_status ||' l_to_req_header_id: '||l_to_req_header_id ||' l_return_msg: '||l_return_msg;
5664: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5665: END IF;
5666:
5660: copy_header(p_from_req_header_id, l_revision_num+1, l_to_req_header_id, l_return_status, l_return_msg);
5661:
5662: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5663: l_log_msg := v_progress||' : Procedure copy_header: l_return_status: '||l_return_status ||' l_to_req_header_id: '||l_to_req_header_id ||' l_return_msg: '||l_return_msg;
5664: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5665: END IF;
5666:
5667: update po_requisition_headers_all
5668: set amendment_reason = p_cancel_Reason
5671: v_progress := '002';
5672:
5673: copy_lines(p_from_req_header_id, l_to_req_header_id, l_return_status, l_return_msg);
5674:
5675: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5676: l_log_msg := v_progress||' : l_return_status: '||l_return_status ||' l_to_req_header_id: '||l_to_req_header_id||' l_return_msg: '||l_return_msg;
5677: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5678: END IF;
5679:
5673: copy_lines(p_from_req_header_id, l_to_req_header_id, l_return_status, l_return_msg);
5674:
5675: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5676: l_log_msg := v_progress||' : l_return_status: '||l_return_status ||' l_to_req_header_id: '||l_to_req_header_id||' l_return_msg: '||l_return_msg;
5677: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5678: END IF;
5679:
5680: x_return_status := l_return_status;
5681: x_amendment_header_id := l_to_req_header_id;
5683: EXCEPTION
5684: WHEN OTHERS THEN
5685: ROLLBACK TO SAVEPOINT CREATE_CANCEL_AMENDMENT;
5686:
5687: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5688: l_log_msg := v_progress||' : Exception at CREATE_CANCEL_AMENDMENT: '|| SQLERRM;
5689: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5690: END IF;
5691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5685: ROLLBACK TO SAVEPOINT CREATE_CANCEL_AMENDMENT;
5686:
5687: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5688: l_log_msg := v_progress||' : Exception at CREATE_CANCEL_AMENDMENT: '|| SQLERRM;
5689: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5690: END IF;
5691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5692:
5693: END create_cancel_amendment;
5703:
5704: BEGIN
5705:
5706: v_progress := '000';
5707: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5708: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
5709: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5710: END IF;
5711:
5705:
5706: v_progress := '000';
5707: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5708: l_log_msg := v_progress||': Inside procedure '||l_procedure_name;
5709: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5710: END IF;
5711:
5712:
5713: v_progress := '001';
5719: cancel_flag='Y'
5720: where requisition_header_id = p_req_header_id
5721: and conformed_line_id = p_line_id_list(i);
5722:
5723: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5724: l_log_msg := v_progress||': Bulk set amendment type completed'||l_procedure_name;
5725: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5726: END IF;
5727:
5721: and conformed_line_id = p_line_id_list(i);
5722:
5723: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5724: l_log_msg := v_progress||': Bulk set amendment type completed'||l_procedure_name;
5725: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5726: END IF;
5727:
5728: EXCEPTION
5729: WHEN OTHERS THEN
5727:
5728: EXCEPTION
5729: WHEN OTHERS THEN
5730:
5731: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5732: l_log_msg := v_progress||' : Exception at set_amend_lines_cancel: '|| SQLERRM;
5733: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5734: END IF;
5735: raise;
5729: WHEN OTHERS THEN
5730:
5731: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5732: l_log_msg := v_progress||' : Exception at set_amend_lines_cancel: '|| SQLERRM;
5733: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5734: END IF;
5735: raise;
5736:
5737: END set_amend_lines_cancel;
5848:
5849: --introduced to hold the value of drop_ship_flag for shipments
5850: BEGIN
5851:
5852: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5853: l_log_msg := l_progress||' Create_distributions: po_line_loc_id: '||x_line_location_id;
5854: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5855:
5856: l_log_msg := l_progress||' Create_distributions: po_release_id: '||x_po_release_id;
5850: BEGIN
5851:
5852: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5853: l_log_msg := l_progress||' Create_distributions: po_line_loc_id: '||x_line_location_id;
5854: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5855:
5856: l_log_msg := l_progress||' Create_distributions: po_release_id: '||x_po_release_id;
5857: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5858:
5853: l_log_msg := l_progress||' Create_distributions: po_line_loc_id: '||x_line_location_id;
5854: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5855:
5856: l_log_msg := l_progress||' Create_distributions: po_release_id: '||x_po_release_id;
5857: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5858:
5859: END IF;
5860:
5861: /*
5885: FROM po_requisition_lines_all
5886: WHERE requisition_line_id = x_requisition_line_id);
5887:
5888:
5889: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5890: l_log_msg := l_progress||'Create_distributions: Order type: '||x_order_type_lookup_code;
5891: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5892:
5893: END IF;
5887:
5888:
5889: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5890: l_log_msg := l_progress||'Create_distributions: Order type: '||x_order_type_lookup_code;
5891: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5892:
5893: END IF;
5894:
5895: SELECT PRH.org_id
5974: Exception
5975: WHEN NO_DATA_FOUND THEN
5976: /* Not all req has kanban id */
5977:
5978: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5979: l_log_msg := l_progress||'NO_DATA_FOUND: '||SQLERRM;
5980: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5981:
5982: END IF;
5976: /* Not all req has kanban id */
5977:
5978: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5979: l_log_msg := l_progress||'NO_DATA_FOUND: '||SQLERRM;
5980: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5981:
5982: END IF;
5983:
5984: WHEN OTHERS THEN
5981:
5982: END IF;
5983:
5984: WHEN OTHERS THEN
5985: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5986: l_log_msg := l_progress||'OTHER EXCEPTON: '||SQLERRM;
5987: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5988:
5989: END IF;
5983:
5984: WHEN OTHERS THEN
5985: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5986: l_log_msg := l_progress||'OTHER EXCEPTON: '||SQLERRM;
5987: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
5988:
5989: END IF;
5990:
5991: raise;
6051: WHERE pol.po_line_id = pll.po_line_id
6052: AND pll.line_location_id = x_line_location_id;
6053:
6054:
6055: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6056: l_log_msg := l_progress||'Create_distributions: PO UOM is: '||x_po_uom;
6057: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6058:
6059: END IF;
6053:
6054:
6055: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6056: l_log_msg := l_progress||'Create_distributions: PO UOM is: '||x_po_uom;
6057: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6058:
6059: END IF;
6060:
6061:
6069: WHERE prl.requisition_line_id = x_requisition_line_id;
6070:
6071:
6072:
6073: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6074: l_log_msg := l_progress||'Create_distributions: Req UOM is: '||x_req_uom;
6075: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6076:
6077: END IF;
6071:
6072:
6073: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6074: l_log_msg := l_progress||'Create_distributions: Req UOM is: '||x_req_uom;
6075: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6076:
6077: END IF;
6078:
6079:
6092: x_conversion_rate := 1;
6093:
6094: end if;
6095:
6096: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6097: l_log_msg := l_progress||'Create_distributions: Conversion rate is: '||x_conversion_rate;
6098: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6099:
6100: END IF;
6094: end if;
6095:
6096: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6097: l_log_msg := l_progress||'Create_distributions: Conversion rate is: '||x_conversion_rate;
6098: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6099:
6100: END IF;
6101:
6102:
6511:
6512: EXCEPTION
6513: WHEN OTHERS THEN
6514:
6515: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6516: l_log_msg := l_progress||'CException: '||SQLERRM;
6517: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6518:
6519: END IF;
6513: WHEN OTHERS THEN
6514:
6515: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6516: l_log_msg := l_progress||'CException: '||SQLERRM;
6517: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6518:
6519: END IF;
6520: po_message_s.sql_error('CREATE_DISTRIBUTIONS',l_progress,sqlcode);
6521: raise;
6566:
6567: BEGIN
6568:
6569: l_progress :='000';
6570: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6571: l_log_msg := 'Invoked '||l_procedure_name;
6572: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6573: END IF;
6574:
6568:
6569: l_progress :='000';
6570: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6571: l_log_msg := 'Invoked '||l_procedure_name;
6572: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6573: END IF;
6574:
6575: OPEN valid_lines(x_req_line_id);
6576:
6587:
6588: EXCEPTION
6589: WHEN OTHERS THEN
6590:
6591: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6592: l_log_msg := l_progress||'Exception: '||SQLERRM;
6593: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6594:
6595: END IF;
6589: WHEN OTHERS THEN
6590:
6591: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6592: l_log_msg := l_progress||'Exception: '||SQLERRM;
6593: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6594:
6595: END IF;
6596: raise;
6597: END implement_dist_auto;
6622:
6623: BEGIN
6624:
6625: l_progress :='000';
6626: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6627: l_log_msg := 'Invoked '||l_procedure_name;
6628: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6629: END IF;
6630:
6624:
6625: l_progress :='000';
6626: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6627: l_log_msg := 'Invoked '||l_procedure_name;
6628: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6629: END IF;
6630:
6631: IF dest_doc_id IS NOT NULL THEN
6632: auction_id := To_Number(dest_doc_id);
6642: AND slin.group_line_id IS NOT NULL ;
6643: END IF;
6644:
6645: l_progress :='001';
6646: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6647: l_log_msg := 'valid slin found in'||l_procedure_name;
6648: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6649: END IF;
6650:
6644:
6645: l_progress :='001';
6646: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6647: l_log_msg := 'valid slin found in'||l_procedure_name;
6648: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6649: END IF;
6650:
6651: po_negotiations_sv1.add_line_to_negotiation(auction_id,x_req_line_id,x_result,x_error_code,x_error_message );
6652:
6651: po_negotiations_sv1.add_line_to_negotiation(auction_id,x_req_line_id,x_result,x_error_code,x_error_message );
6652:
6653:
6654: l_progress :='002';
6655: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6656: l_log_msg := 'sourcing API called in '||l_procedure_name;
6657: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6658: END IF;
6659:
6653:
6654: l_progress :='002';
6655: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6656: l_log_msg := 'sourcing API called in '||l_procedure_name;
6657: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6658: END IF;
6659:
6660:
6661: EXCEPTION
6659:
6660:
6661: EXCEPTION
6662: WHEN NO_DATA_FOUND THEN
6663: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6664: l_log_msg := l_progress||'No Valid Slin Found '||SQLERRM;
6665: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6666: l_log_msg := 'x_error_code:'|| x_error_code|| ' x_error_message:'||x_error_message;
6667: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6661: EXCEPTION
6662: WHEN NO_DATA_FOUND THEN
6663: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6664: l_log_msg := l_progress||'No Valid Slin Found '||SQLERRM;
6665: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6666: l_log_msg := 'x_error_code:'|| x_error_code|| ' x_error_message:'||x_error_message;
6667: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6668:
6669: END IF;
6663: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6664: l_log_msg := l_progress||'No Valid Slin Found '||SQLERRM;
6665: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6666: l_log_msg := 'x_error_code:'|| x_error_code|| ' x_error_message:'||x_error_message;
6667: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6668:
6669: END IF;
6670:
6671:
6670:
6671:
6672: WHEN OTHERS THEN
6673:
6674: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6675: l_log_msg := l_progress||'Exception: '||SQLERRM;
6676: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6677: l_log_msg := 'x_error_code:'|| x_error_code|| ' x_error_message:'||x_error_message;
6678: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6672: WHEN OTHERS THEN
6673:
6674: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6675: l_log_msg := l_progress||'Exception: '||SQLERRM;
6676: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6677: l_log_msg := 'x_error_code:'|| x_error_code|| ' x_error_message:'||x_error_message;
6678: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6679:
6680:
6674: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6675: l_log_msg := l_progress||'Exception: '||SQLERRM;
6676: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6677: l_log_msg := 'x_error_code:'|| x_error_code|| ' x_error_message:'||x_error_message;
6678: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6679:
6680:
6681: END IF;
6682: raise;
6728: BEGIN
6729:
6730: v_progress := '000';
6731:
6732: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6733: l_log_msg := 'Inside procedure '||l_procedure_name;
6734: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6735: END IF;
6736:
6730: v_progress := '000';
6731:
6732: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6733: l_log_msg := 'Inside procedure '||l_procedure_name;
6734: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6735: END IF;
6736:
6737: rec_index := 1;
6738:
6744: INTO p_sequence_num
6745: FROM DUAL;
6746: END IF;
6747:
6748: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6749: l_log_msg := v_progress||' : Getting sequence number: '||p_sequence_num;
6750: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6751: END IF;
6752:
6746: END IF;
6747:
6748: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6749: l_log_msg := v_progress||' : Getting sequence number: '||p_sequence_num;
6750: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6751: END IF;
6752:
6753: SELECT getLatestAmendmentNum(prh.requisition_header_id)
6754: INTO x_amendment_num
6875:
6876: EXCEPTION
6877: WHEN others THEN
6878:
6879: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6880: l_log_msg := v_progress||' : Exception : '|| SQLERRM;
6881: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6882: END IF;
6883: RAISE;
6877: WHEN others THEN
6878:
6879: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6880: l_log_msg := v_progress||' : Exception : '|| SQLERRM;
6881: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6882: END IF;
6883: RAISE;
6884:
6885: END compare_for_implement;
6931:
6932: BEGIN
6933:
6934: v_progress:='000';
6935: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6936: l_log_msg := 'Invoked '||l_procedure_name;
6937: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6938: END IF;
6939:
6933:
6934: v_progress:='000';
6935: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6936: l_log_msg := 'Invoked '||l_procedure_name;
6937: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
6938: END IF;
6939:
6940: -- SQL What: Querying the archive table for the given revision_num and previous revision_num
6941: -- SQL Why: Need to compare the values for each column
7071: END IF;
7072:
7073:
7074: v_progress:='001';
7075: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
7076: l_log_msg := v_progress||' : After creating queries';
7077: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
7078: END IF;
7079:
7073:
7074: v_progress:='001';
7075: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
7076: l_log_msg := v_progress||' : After creating queries';
7077: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
7078: END IF;
7079:
7080:
7081: -- Comparing the data between two revisions
7083:
7084:
7085:
7086: v_progress:='002';
7087: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
7088: l_log_msg := v_progress||' : After comparing two revisions';
7089: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
7090: END IF;
7091:
7085:
7086: v_progress:='002';
7087: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
7088: l_log_msg := v_progress||' : After comparing two revisions';
7089: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
7090: END IF;
7091:
7092:
7093: -- Insert the comparison result into the temp table
7093: -- Insert the comparison result into the temp table
7094: insert_changes(p_sequence_num,p_from_req_line_id);
7095:
7096: v_progress:='003';
7097: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
7098: l_log_msg := v_progress||' : After cinserting into the temp table';
7099: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
7100: END IF;
7101:
7095:
7096: v_progress:='003';
7097: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
7098: l_log_msg := v_progress||' : After cinserting into the temp table';
7099: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
7100: END IF;
7101:
7102:
7103: EXCEPTION
7102:
7103: EXCEPTION
7104: WHEN others THEN
7105:
7106: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
7107: l_log_msg := v_progress||' : Exception : '|| SQLERRM;
7108: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
7109: END IF;
7110: RAISE;
7104: WHEN others THEN
7105:
7106: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
7107: l_log_msg := v_progress||' : Exception : '|| SQLERRM;
7108: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
7109: END IF;
7110: RAISE;
7111:
7112: END compare_table_for_implement;
7149:
7150: BEGIN
7151:
7152: v_progress:='000';
7153: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
7154: l_log_msg := 'Invoked '||l_procedure_name;
7155: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
7156: END IF;
7157:
7151:
7152: v_progress:='000';
7153: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
7154: l_log_msg := 'Invoked '||l_procedure_name;
7155: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
7156: END IF;
7157:
7158: IF implement_mode = 'ACCEPT' THEN
7159: FOR i IN 1..selected_lines.count
7270:
7271: EXCEPTION
7272: WHEN others THEN
7273:
7274: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
7275: l_log_msg := v_progress||' : Exception : '|| SQLERRM;
7276: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
7277: END IF;
7278: RAISE;
7272: WHEN others THEN
7273:
7274: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
7275: l_log_msg := v_progress||' : Exception : '|| SQLERRM;
7276: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
7277: END IF;
7278: RAISE;
7279:
7280: END implement_amendment_changes;
7411: END IF;
7412:
7413: EXCEPTION
7414: WHEN OTHERS THEN
7415: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
7416: l_log_msg := x_progress||'CException: '||SQLERRM;
7417: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_api_name, l_log_msg);
7418:
7419: END IF;
7413: EXCEPTION
7414: WHEN OTHERS THEN
7415: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
7416: l_log_msg := x_progress||'CException: '||SQLERRM;
7417: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_api_name, l_log_msg);
7418:
7419: END IF;
7420: wf_core.context('POR_AMENDMENT_PKG','set_amendment_related_attrib',x_progress);
7421: raise;
7843:
7844: EXCEPTION
7845: WHEN others THEN
7846:
7847: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
7848: l_log_msg := l_progress||' : Exception at function getUDAAttributeName : '|| SQLERRM;
7849: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
7850: END IF;
7851: RETURN p_node_name;
7845: WHEN others THEN
7846:
7847: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
7848: l_log_msg := l_progress||' : Exception at function getUDAAttributeName : '|| SQLERRM;
7849: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
7850: END IF;
7851: RETURN p_node_name;
7852:
7853: END getUDAAttributeName;
8023:
8024: EXCEPTION
8025: WHEN others THEN
8026:
8027: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
8028: l_log_msg := l_progress||' : Exception at function getUDAAttributeValue : '|| SQLERRM;
8029: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
8030: END IF;
8031: RETURN l_attr_disp_value;
8025: WHEN others THEN
8026:
8027: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
8028: l_log_msg := l_progress||' : Exception at function getUDAAttributeValue : '|| SQLERRM;
8029: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
8030: END IF;
8031: RETURN l_attr_disp_value;
8032:
8033: END getUDAAttributeValue;