[Home] [Help]
44: WHERE NAME = 'utl_file_dir';
45: l_debug_file VARCHAR2(80) := pG_ouputFileName||TO_CHAR(SYSDATE,'DDMONYYHH24MISS');
46:
47: l_out_dir VARCHAR2(2000);
48: l_message_list Error_Handler.Error_Tbl_Type;
49: l_debug_error_status VARCHAR2(1);
50: l_debug_error_mesg VARCHAR2(2000);
51:
52: BEGIN
49: l_debug_error_status VARCHAR2(1);
50: l_debug_error_mesg VARCHAR2(2000);
51:
52: BEGIN
53: IF Error_Handler.Get_Debug <> 'Y'
54: THEN
55: IF G_HAS_UTL_FILE_DIR = 'N'
56: THEN
57: OPEN c_get_utl_file_dir;
68: G_UTL_FILE_DIR := l_out_dir;
69: ELSE
70: l_out_dir := G_UTL_FILE_DIR;
71: END IF; -- G_HAS_UTL_FILE_DIR
72: Error_Handler.Initialize;
73: Error_Handler.Set_Debug ('Y');
74: Bom_Globals.Set_Debug ('Y');
75:
76: Error_Handler.Open_Debug_Session
69: ELSE
70: l_out_dir := G_UTL_FILE_DIR;
71: END IF; -- G_HAS_UTL_FILE_DIR
72: Error_Handler.Initialize;
73: Error_Handler.Set_Debug ('Y');
74: Bom_Globals.Set_Debug ('Y');
75:
76: Error_Handler.Open_Debug_Session
77: ( p_debug_filename => l_debug_file
72: Error_Handler.Initialize;
73: Error_Handler.Set_Debug ('Y');
74: Bom_Globals.Set_Debug ('Y');
75:
76: Error_Handler.Open_Debug_Session
77: ( p_debug_filename => l_debug_file
78: , p_output_dir => l_out_dir
79: , x_return_status => l_debug_error_status
80: , x_error_mesg => l_debug_error_mesg
319: IS
320: l_debug BOOLEAN := Init_Debug();
321: BEGIN
322: IF l_debug = true THEN
323: Error_Handler.write_debug(p_message);
324: END IF;
325: END;
326:
327: --Update any rows with null transactionids with proper sequence
499: x_error_code OUT NOCOPY number)*/
500:
501: PROCEDURE Retrieve_Batch_Options
502: ( p_batch_id IN NUMBER,
503: x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type,
504: x_error_code IN OUT NOCOPY VARCHAR2)
505: IS
506: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
507: l_Token_Tbl Error_Handler.Token_Tbl_Type;
502: ( p_batch_id IN NUMBER,
503: x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type,
504: x_error_code IN OUT NOCOPY VARCHAR2)
505: IS
506: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
507: l_Token_Tbl Error_Handler.Token_Tbl_Type;
508: CURSOR batch_options_cr IS
509: SELECT
510: b.SOURCE_SYSTEM_ID,
503: x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type,
504: x_error_code IN OUT NOCOPY VARCHAR2)
505: IS
506: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
507: l_Token_Tbl Error_Handler.Token_Tbl_Type;
508: CURSOR batch_options_cr IS
509: SELECT
510: b.SOURCE_SYSTEM_ID,
511: b.BATCH_TYPE,
560: dual;
561: /*
562: l_Token_Tbl(1).token_name := 'BATCH_ID';
563: l_Token_Tbl(1).token_value := p_batch_id;
564: Error_Handler.Add_Error_Token
565: (
566: p_message_name => 'BOM_SOURCE_SYSTEM_INVALID'
567: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
568: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
579: EXCEPTION
580: WHEN OTHERS THEN
581: l_Token_Tbl(1).token_name := 'BATCH_ID';
582: l_Token_Tbl(1).token_value := p_batch_id;
583: Error_Handler.Add_Error_Token
584: (
585: p_message_name => 'BOM_SOURCE_SYSTEM_INVALID'
586: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
587: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
860: p_batch_id IN NUMBER
861: )
862: IS
863: l_errbuff VARCHAR2(3000);
864: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
865: l_retCode VARCHAR2(1);
866: BEGIN
867: Retrieve_Batch_Options(p_batch_id => p_batch_id,
868: x_Mesg_Token_Tbl => l_Mesg_Token_Tbl,
891: )
892: IS
893: l_ret_code VARCHAR2(2);
894: l_err_buff VARCHAR2(1000);
895: l_message_list Error_Handler.Error_Tbl_Type;
896: l_request_id NUMBER := 0;
897: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
898: l_from_jcp VARCHAR2(1) := 'N';
899: l_start_upload VARCHAR(1) := p_start_upload;
893: l_ret_code VARCHAR2(2);
894: l_err_buff VARCHAR2(1000);
895: l_message_list Error_Handler.Error_Tbl_Type;
896: l_request_id NUMBER := 0;
897: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
898: l_from_jcp VARCHAR2(1) := 'N';
899: l_start_upload VARCHAR(1) := p_start_upload;
900: G_EXC_SEV_QUIT_OBJECT EXCEPTION;
901: BEGIN
1043: EXCEPTION
1044: WHEN G_EXC_SEV_QUIT_OBJECT THEN
1045: write_debug('Exception Occured');
1046: x_retcode := 'E';
1047: Error_Handler.Get_Message_List( x_message_list => l_message_list);
1048: END Process_Structure_Data;
1049:
1050: /****************** Resolve Cross References **************************
1051: * Procedure : RESOLVE_XREFS_FOR_BATCH
1060:
1061: PROCEDURE RESOLVE_XREFS_FOR_BATCH
1062: (
1063: p_batch_id IN NUMBER
1064: ,x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1065: ,x_Return_Status IN OUT NOCOPY VARCHAR2
1066: )
1067: IS
1068: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1064: ,x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1065: ,x_Return_Status IN OUT NOCOPY VARCHAR2
1066: )
1067: IS
1068: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1069: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1070: l_err_text VARCHAR2(1000);
1071:
1072: TYPE num_type IS TABLE OF NUMBER;
1065: ,x_Return_Status IN OUT NOCOPY VARCHAR2
1066: )
1067: IS
1068: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1069: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1070: l_err_text VARCHAR2(1000);
1071:
1072: TYPE num_type IS TABLE OF NUMBER;
1073: TYPE var_type IS TABLE OF VARCHAR2(1000);
1138: FOR i IN 1..l_count
1139: LOOP
1140: IF l_ss_record_table(i) IS NULL OR l_ss_record_table(i) = FND_API.G_MISS_CHAR
1141: THEN
1142: Error_Handler.Add_Error_Token
1143: (
1144: p_message_name => 'BOM_SOURCE_SYS_REF_INVALID'
1145: ,p_Mesg_token_Tbl => l_Mesg_Token_Tbl
1146: ,x_Mesg_token_Tbl => l_Mesg_Token_Tbl
1170: FOR i IN 1..l_count
1171: LOOP
1172: IF l_ss_record_table(i) IS NULL OR l_ss_record_table(i) = FND_API.G_MISS_CHAR
1173: THEN
1174: Error_Handler.Add_Error_Token
1175: (
1176: p_message_name => 'BOM_SOURCE_SYS_REF_INVALID'
1177: ,p_Mesg_token_Tbl => l_Mesg_Token_Tbl
1178: ,x_Mesg_token_Tbl => l_Mesg_Token_Tbl
1218:
1219: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1220: THEN
1221: l_err_text := SUBSTR(SQLERRM, 1, 200);
1222: Error_Handler.Add_Error_Token
1223: (
1224: p_Message_Name => NULL
1225: , p_Message_Text => l_err_text
1226: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1237: PROCEDURE UPDATE_MATCH_DATA
1238: (
1239: p_batch_id IN NUMBER
1240: , p_source_system_id IN NUMBER
1241: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1242: , x_Return_Status IN OUT NOCOPY VARCHAR2
1243: )
1244: IS
1245: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1241: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1242: , x_Return_Status IN OUT NOCOPY VARCHAR2
1243: )
1244: IS
1245: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1246: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1247: l_err_text VARCHAR2(1000);
1248:
1249: TYPE num_type IS TABLE OF NUMBER;
1242: , x_Return_Status IN OUT NOCOPY VARCHAR2
1243: )
1244: IS
1245: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1246: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1247: l_err_text VARCHAR2(1000);
1248:
1249: TYPE num_type IS TABLE OF NUMBER;
1250: TYPE var_type IS TABLE OF VARCHAR2(1000);
1305: FOR i IN 1..l_count
1306: LOOP
1307: IF ( (l_ss_record_table(i) IS NULL AND l_item_num_table(i) IS NULL ) OR ( l_ss_record_table(i) = FND_API.G_MISS_CHAR AND l_item_num_table(i) = FND_API.G_MISS_CHAR) )
1308: THEN
1309: Error_Handler.Add_Error_Token
1310: (
1311: p_message_name => 'BOM_SOURCE_SYS_REF_INVALID'
1312: ,p_Mesg_token_Tbl => l_Mesg_Token_Tbl
1313: ,x_Mesg_token_Tbl => l_Mesg_Token_Tbl
1339: FOR i IN 1..l_count
1340: LOOP
1341: IF ( (l_ss_record_table(i) IS NULL AND l_item_num_table(i) IS NULL ) OR ( l_ss_record_table(i) = FND_API.G_MISS_CHAR AND l_item_num_table(i) = FND_API.G_MISS_CHAR) )
1342: THEN
1343: Error_Handler.Add_Error_Token
1344: (
1345: p_message_name => 'BOM_SOURCE_SYS_REF_INVALID'
1346: ,p_Mesg_token_Tbl => l_Mesg_Token_Tbl
1347: ,x_Mesg_token_Tbl => l_Mesg_Token_Tbl
1387: Write_Debug('Unexpected Error occured..'|| SQLERRM);
1388: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1389: THEN
1390: l_err_text := SUBSTR(SQLERRM, 1, 200);
1391: Error_Handler.Add_Error_Token
1392: (
1393: p_Message_Name => NULL
1394: , p_Message_Text => l_err_text
1395: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1404:
1405: PROCEDURE UPDATE_BILL_INFO
1406: (
1407: p_batch_id IN NUMBER
1408: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1409: , x_Return_Status IN OUT NOCOPY VARCHAR2
1410: )
1411: IS
1412:
1416: TYPE num_type IS TABLE OF NUMBER;
1417: TYPE var_type IS TABLE OF VARCHAR2(1000);
1418:
1419: l_err_text VARCHAR2(1000);
1420: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1421:
1422: l_comp_seq_id NUMBER;
1423: l_header_count NUMBER;
1424: l_comp_count NUMBER;
1720: Write_Debug('Unexpected Error occured' || SQLERRM);
1721: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1722: THEN
1723: l_err_text := SUBSTR(SQLERRM, 1, 200);
1724: Error_Handler.Add_Error_Token
1725: (
1726: p_Message_Name => NULL
1727: , p_Message_Text => l_err_text
1728: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1754: )
1755: IS
1756: G_EXC_SEV_QUIT_OBJECT EXCEPTION;
1757:
1758: l_message_list Error_Handler.Error_Tbl_Type;
1759: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1760: l_other_message VARCHAR2(50);
1761: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1762: l_err_text VARCHAR2(2000);
1755: IS
1756: G_EXC_SEV_QUIT_OBJECT EXCEPTION;
1757:
1758: l_message_list Error_Handler.Error_Tbl_Type;
1759: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1760: l_other_message VARCHAR2(50);
1761: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1762: l_err_text VARCHAR2(2000);
1763: l_return_status VARCHAR2(1);
1757:
1758: l_message_list Error_Handler.Error_Tbl_Type;
1759: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1760: l_other_message VARCHAR2(50);
1761: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1762: l_err_text VARCHAR2(2000);
1763: l_return_status VARCHAR2(1);
1764: l_debug_flag VARCHAR2(1) := p_debug;
1765: l_debug BOOLEAN := FALSE;
1885:
1886: BEGIN
1887: IF p_init_msg_list = 'Y'
1888: THEN
1889: Error_Handler.Initialize();
1890: END IF;
1891:
1892: IF l_debug_flag = 'Y'
1893: THEN
1895: trim(p_output_dir) = ''
1896: THEN
1897: -- IF debug is Y THEN out dir must be
1898: -- specified
1899: Error_Handler.Add_Error_Token
1900: ( p_Message_text =>
1901: 'Debug is set to Y so an output directory' ||
1902: ' must be specified. Debug will be turned' ||
1903: ' off since no directory is specified'
1910:
1911: IF trim(p_debug_filename) IS NULL OR
1912: trim(p_debug_filename) = ''
1913: THEN
1914: Error_Handler.Add_Error_Token
1915: ( p_Message_text =>
1916: 'Debug is set to Y so an output filename' ||
1917: ' must be specified. Debug will be turned' ||
1918: ' off since no filename is specified'
1925: Bom_Globals.Set_Debug(l_debug_flag);
1926:
1927: IF Bom_Globals.Get_Debug = 'Y'
1928: THEN
1929: Error_Handler.Open_Debug_Session
1930: ( p_debug_filename => p_debug_filename
1931: , p_output_dir => p_output_dir
1932: , x_return_status => l_return_status
1933: , p_mesg_token_tbl => l_mesg_token_tbl
1942: END IF;
1943:
1944: Bom_Globals.Set_Debug(l_debug_flag);
1945:
1946: IF Error_Handler.get_debug <> 'Y' THEN
1947: l_debug := Init_Debug;
1948: ELSE
1949: l_debug := TRUE;
1950: END IF;
1958: l_app_id := FND_GLOBAL.RESP_APPL_ID;
1959:
1960: IF (NVL(l_user_id,-1)=-1 OR NVL(l_resp_id,-1)=-1 OR NVL(l_app_id,-1)=-1)
1961: THEN
1962: Error_Handler.Add_Error_Token
1963: ( p_Message_Name => 'BOM_IMPORT_USER_INVALID'
1964: , p_Mesg_Token_Tbl => l_Mesg_Token_tbl
1965: , x_Mesg_Token_Tbl => l_Mesg_Token_tbl
1966: , p_Token_Tbl => l_token_tbl
1965: , x_Mesg_Token_Tbl => l_Mesg_Token_tbl
1966: , p_Token_Tbl => l_token_tbl
1967: );
1968:
1969: Error_Handler.Translate_And_Insert_Messages
1970: ( p_mesg_token_tbl => l_Mesg_Token_tbl
1971: , p_application_id => 'BOM'
1972: );
1973:
1970: ( p_mesg_token_tbl => l_Mesg_Token_tbl
1971: , p_application_id => 'BOM'
1972: );
1973:
1974: Error_Handler.Get_Message_List( x_message_list => l_message_list);
1975: x_Error_Mesg := l_message_list(1).Message_Text;
1976: x_return_status := FND_API.G_RET_STS_ERROR;
1977: RETURN;
1978: END IF;
1996: , l_return_status
1997: );
1998: IF l_return_status <> 'S'
1999: THEN
2000: Error_Handler.Add_Error_Token
2001: (
2002: p_message_name => NULL
2003: , p_Mesg_Token_Tbl => l_mesg_token_tbl
2004: , x_Mesg_Token_Tbl => l_mesg_token_tbl
2229: );
2230: IF l_return_status <> 'S'
2231: THEN
2232:
2233: Error_Handler.Add_Error_Token
2234: (
2235: p_message_name => NULL
2236: , p_Mesg_Token_Tbl => l_mesg_token_tbl
2237: , x_Mesg_Token_Tbl => l_mesg_token_tbl
2240: END IF;
2241:
2242:
2243: x_return_status := l_return_status;
2244: Error_Handler.Get_Message_List( x_message_list => l_message_list);
2245: x_Error_Mesg := l_message_list(1).Message_Text;
2246:
2247: EXCEPTION
2248:
2246:
2247: EXCEPTION
2248:
2249:
2250: Error_Handler.Add_Error_Token
2251: (
2252: p_message_name => NULL
2253: , p_Mesg_token_Tbl => l_Mesg_Token_Tbl
2254: , x_Mesg_token_Tbl => l_Mesg_Token_Tbl
2255: , p_token_Tbl => l_Token_Tbl
2256: , p_message_type => 'E'
2257: );
2258:
2259: x_return_status := Error_Handler.G_STATUS_UNEXPECTED;
2260: Error_Handler.Get_Message_List( x_message_list => l_message_list);
2261: x_Error_Mesg := l_message_list(1).Message_Text;
2262:
2263: IF Bom_Globals.Get_Debug = 'Y'
2256: , p_message_type => 'E'
2257: );
2258:
2259: x_return_status := Error_Handler.G_STATUS_UNEXPECTED;
2260: Error_Handler.Get_Message_List( x_message_list => l_message_list);
2261: x_Error_Mesg := l_message_list(1).Message_Text;
2262:
2263: IF Bom_Globals.Get_Debug = 'Y'
2264: THEN
2261: x_Error_Mesg := l_message_list(1).Message_Text;
2262:
2263: IF Bom_Globals.Get_Debug = 'Y'
2264: THEN
2265: Error_Handler.Write_Debug('After getting exception for invalid batch id ');
2266: Error_Handler.Write_To_DebugFile;
2267: Error_Handler.Dump_Message_List;
2268: Error_Handler.Close_Debug_Session;
2269: END IF;
2262:
2263: IF Bom_Globals.Get_Debug = 'Y'
2264: THEN
2265: Error_Handler.Write_Debug('After getting exception for invalid batch id ');
2266: Error_Handler.Write_To_DebugFile;
2267: Error_Handler.Dump_Message_List;
2268: Error_Handler.Close_Debug_Session;
2269: END IF;
2270: */
2263: IF Bom_Globals.Get_Debug = 'Y'
2264: THEN
2265: Error_Handler.Write_Debug('After getting exception for invalid batch id ');
2266: Error_Handler.Write_To_DebugFile;
2267: Error_Handler.Dump_Message_List;
2268: Error_Handler.Close_Debug_Session;
2269: END IF;
2270: */
2271:
2264: THEN
2265: Error_Handler.Write_Debug('After getting exception for invalid batch id ');
2266: Error_Handler.Write_To_DebugFile;
2267: Error_Handler.Dump_Message_List;
2268: Error_Handler.Close_Debug_Session;
2269: END IF;
2270: */
2271:
2272: END Data_Upload_Complete;
2774: )
2775: IS
2776: G_EXC_SEV_QUIT_OBJECT EXCEPTION;
2777:
2778: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2779: l_other_message VARCHAR2(50);
2780: l_Token_Tbl Error_Handler.Token_Tbl_Type;
2781: l_err_text VARCHAR2(2000);
2782: l_return_status VARCHAR2(1);
2776: G_EXC_SEV_QUIT_OBJECT EXCEPTION;
2777:
2778: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2779: l_other_message VARCHAR2(50);
2780: l_Token_Tbl Error_Handler.Token_Tbl_Type;
2781: l_err_text VARCHAR2(2000);
2782: l_return_status VARCHAR2(1);
2783: l_Debug_flag VARCHAR2(1) := p_debug;
2784: l_source_system_id NUMBER;
2786:
2787: BEGIN
2788: IF p_init_msg_list = 'Y'
2789: THEN
2790: Error_Handler.Initialize();
2791: END IF;
2792:
2793: IF l_debug_flag = 'Y'
2794: THEN
2797: THEN
2798: -- IF debug is Y THEN out dir must be
2799: -- specified
2800:
2801: Error_Handler.Add_Error_Token
2802: ( p_Message_text =>
2803: 'Debug is set to Y so an output directory' ||
2804: ' must be specified. Debug will be turned' ||
2805: ' off since no directory is specified'
2812:
2813: IF trim(p_debug_filename) IS NULL OR
2814: trim(p_debug_filename) = ''
2815: THEN
2816: Error_Handler.Add_Error_Token
2817: ( p_Message_text =>
2818: 'Debug is set to Y so an output filename' ||
2819: ' must be specified. Debug will be turned' ||
2820: ' off since no filename is specified'
2827: BOM_Globals.Set_Debug(l_debug_flag);
2828:
2829: IF BOM_Globals.Get_Debug = 'Y'
2830: THEN
2831: Error_Handler.Open_Debug_Session
2832: ( p_debug_filename => p_debug_filename
2833: , p_output_dir => p_output_dir
2834: , x_return_status => l_return_status
2835: , p_mesg_token_tbl => l_mesg_token_tbl
2852: l_Token_Tbl(1).token_value := p_batch_id;
2853: RAISE G_EXC_SEV_QUIT_OBJECT;
2854: END IF;*/
2855:
2856: IF Error_Handler.Get_Debug <> 'Y' THEN
2857: l_debug := Init_Debug();
2858: ELSE
2859: l_debug := TRUE;
2860: END IF;
2890: x_Return_Status => l_return_status
2891: );
2892: IF l_return_status <> 'S'
2893: THEN
2894: Error_Handler.Add_Error_Token
2895: (
2896: p_message_name => NULL
2897: , p_Mesg_Token_Tbl => l_mesg_token_tbl
2898: , x_Mesg_Token_Tbl => l_mesg_token_tbl
2912: );
2913:
2914: IF l_return_status <> 'S'
2915: THEN
2916: Error_Handler.Add_Error_Token
2917: (
2918: p_message_name => NULL
2919: , p_Mesg_Token_Tbl => l_mesg_token_tbl
2920: , x_Mesg_Token_Tbl => l_mesg_token_tbl
2931:
2932: EXCEPTION
2933: WHEN G_EXC_SEV_QUIT_OBJECT THEN
2934:
2935: Error_Handler.Add_Error_Token
2936: (
2937: p_message_name => NULL
2938: , p_Mesg_token_Tbl => l_Mesg_Token_Tbl
2939: , x_Mesg_token_Tbl => l_Mesg_Token_Tbl
2939: , x_Mesg_token_Tbl => l_Mesg_Token_Tbl
2940: , p_token_Tbl => l_Token_Tbl
2941: , p_message_type => 'E'
2942: );
2943: x_return_status := Error_Handler.G_STATUS_UNEXPECTED;
2944: x_Error_Mesg := l_other_message;
2945:
2946: IF Bom_Globals.Get_Debug = 'Y'
2947: THEN
2944: x_Error_Mesg := l_other_message;
2945:
2946: IF Bom_Globals.Get_Debug = 'Y'
2947: THEN
2948: Error_Handler.Write_Debug('After getting exception for invalid batch id');
2949: Error_Handler.Write_To_DebugFile;
2950: Error_Handler.Dump_Message_List;
2951: Error_Handler.Close_Debug_Session;
2952: END IF;
2945:
2946: IF Bom_Globals.Get_Debug = 'Y'
2947: THEN
2948: Error_Handler.Write_Debug('After getting exception for invalid batch id');
2949: Error_Handler.Write_To_DebugFile;
2950: Error_Handler.Dump_Message_List;
2951: Error_Handler.Close_Debug_Session;
2952: END IF;
2953:
2946: IF Bom_Globals.Get_Debug = 'Y'
2947: THEN
2948: Error_Handler.Write_Debug('After getting exception for invalid batch id');
2949: Error_Handler.Write_To_DebugFile;
2950: Error_Handler.Dump_Message_List;
2951: Error_Handler.Close_Debug_Session;
2952: END IF;
2953:
2954: END Matching_Complete;
2947: THEN
2948: Error_Handler.Write_Debug('After getting exception for invalid batch id');
2949: Error_Handler.Write_To_DebugFile;
2950: Error_Handler.Dump_Message_List;
2951: Error_Handler.Close_Debug_Session;
2952: END IF;
2953:
2954: END Matching_Complete;
2955:
3132: l_error_attr_name VARCHAR2(2000);
3133: l_dynamic_sql VARCHAR2(2000);
3134: l_attr_group_name VARCHAR2(250);
3135: l_error_message VARCHAR2(250);
3136: l_err_token_table ERROR_HANDLER.Token_Tbl_Type;
3137: --l_com_error_status VARCHAR2(1);
3138:
3139: BEGIN
3140:
3422: -- l_err_token_table(1).token_name := 'ATTR_GROUP_NAME';
3423: -- l_err_token_table(1).token_value := l_attr_group_name;
3424:
3425:
3426: -- ERROR_HANDLER.Add_Error_Message
3427: -- (p_message_name => l_error_message
3428: -- ,p_application_id => 'EGO'
3429: -- ,p_token_tbl => l_err_token_table
3430: -- ,p_message_type => 'E'
3435: -- ,p_entity_code => NULL
3436: -- );
3437:
3438:
3439: -- ERROR_HANDLER.Log_Error
3440: -- (p_write_err_to_inttable => 'Y'
3441: -- ,p_write_err_to_conclog => 'Y'
3442: -- ,p_write_err_to_debugfile => ERROR_HANDLER.Get_Debug()
3443: -- );
3438:
3439: -- ERROR_HANDLER.Log_Error
3440: -- (p_write_err_to_inttable => 'Y'
3441: -- ,p_write_err_to_conclog => 'Y'
3442: -- ,p_write_err_to_debugfile => ERROR_HANDLER.Get_Debug()
3443: -- );
3444: --
3445: -- -- Calling commit to save data into interface errors table
3446: -- commit;
3563: )
3564: IS
3565: l_debug BOOLEAN := FALSE;
3566: l_request_id NUMBER;
3567: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3568: BEGIN
3569:
3570: --Update the Batch Record for reference
3571: IF Error_Handler.get_debug = 'Y' THEN
3567: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3568: BEGIN
3569:
3570: --Update the Batch Record for reference
3571: IF Error_Handler.get_debug = 'Y' THEN
3572: l_debug := TRUE;
3573: ELSE
3574: l_debug := Init_Debug();
3575: END IF;
3649: p_batch_id IN NUMBER
3650: , p_items_import_complete IN VARCHAR2
3651: , x_error_message OUT NOCOPY VARCHAR2
3652: , x_return_code OUT NOCOPY VARCHAR2
3653: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3654: )
3655: IS
3656: l_item_infcrows_exists NUMBER;
3657: BEGIN
4027: TYPE num_type IS TABLE OF NUMBER;
4028: TYPE var_type IS TABLE OF VARCHAR2(1000);
4029: TYPE date_type IS TABLE OF DATE;
4030:
4031: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
4032: l_other_message VARCHAR2(50);
4033: l_Token_Tbl Error_Handler.Token_Tbl_Type;
4034: l_err_text VARCHAR2(2000);
4035: l_return_status VARCHAR2(1);
4029: TYPE date_type IS TABLE OF DATE;
4030:
4031: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
4032: l_other_message VARCHAR2(50);
4033: l_Token_Tbl Error_Handler.Token_Tbl_Type;
4034: l_err_text VARCHAR2(2000);
4035: l_return_status VARCHAR2(1);
4036: l_message_list Error_Handler.Error_Tbl_Type;
4037: -- l_debug_flag VARCHAR2(1) := p_debug;
4032: l_other_message VARCHAR2(50);
4033: l_Token_Tbl Error_Handler.Token_Tbl_Type;
4034: l_err_text VARCHAR2(2000);
4035: l_return_status VARCHAR2(1);
4036: l_message_list Error_Handler.Error_Tbl_Type;
4037: -- l_debug_flag VARCHAR2(1) := p_debug;
4038: l_debug BOOLEAN := FALSE;
4039:
4040:
4078:
4079: BEGIN
4080: update_transaction_ids(p_batch_id);
4081:
4082: IF Error_Handler.Get_Debug <> 'Y' THEN
4083: l_debug := Init_Debug();
4084: ELSE
4085: l_debug := TRUE;
4086: END IF;
4302: END IF;
4303:
4304: x_Return_Status := l_Return_Status;
4305: IF x_Return_Status <> 'S' THEN
4306: Error_Handler.Get_Message_List( x_message_list => l_message_list);
4307: x_Error_Mesg := l_message_list(1).Message_Text;
4308: END IF;
4309:
4310: EXCEPTION
4309:
4310: EXCEPTION
4311: WHEN G_EXC_SEV_QUIT_OBJECT THEN
4312:
4313: Error_Handler.Add_Error_Token
4314: (
4315: p_message_name => NULL
4316: , p_Mesg_token_Tbl => l_Mesg_Token_Tbl
4317: , x_Mesg_token_Tbl => l_Mesg_Token_Tbl
4318: , p_token_Tbl => l_Token_Tbl
4319: , p_message_type => 'E'
4320: );
4321:
4322: x_return_status := Error_Handler.G_STATUS_UNEXPECTED;
4323: Error_Handler.Get_Message_List( x_message_list => l_message_list);
4324: x_Error_Mesg := l_message_list(1).Message_Text;
4325:
4326: END Update_Bill_Val_Id;
4319: , p_message_type => 'E'
4320: );
4321:
4322: x_return_status := Error_Handler.G_STATUS_UNEXPECTED;
4323: Error_Handler.Get_Message_List( x_message_list => l_message_list);
4324: x_Error_Mesg := l_message_list(1).Message_Text;
4325:
4326: END Update_Bill_Val_Id;
4327:
4398: PROCEDURE Check_Change_Options
4399: (
4400: p_batch_id IN NUMBER,
4401: x_error_code IN OUT NOCOPY VARCHAR2,
4402: x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
4403: )
4404: IS
4405: TYPE num_type IS TABLE OF NUMBER;
4406: l_bill_seq_table num_type;
4405: TYPE num_type IS TABLE OF NUMBER;
4406: l_bill_seq_table num_type;
4407: l_change_policy VARCHAR2(500);
4408: l_change_flag VARCHAR2(1);
4409: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
4410: l_Token_Tbl Error_Handler.Token_Tbl_Type;
4411:
4412: CURSOR Get_Bill_Seq_Id
4413: IS
4406: l_bill_seq_table num_type;
4407: l_change_policy VARCHAR2(500);
4408: l_change_flag VARCHAR2(1);
4409: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
4410: l_Token_Tbl Error_Handler.Token_Tbl_Type;
4411:
4412: CURSOR Get_Bill_Seq_Id
4413: IS
4414: SELECT bill_sequence_id
4436: IF l_change_flag = 'N' OR l_change_flag IS NULL THEN
4437: l_change_policy := Bom_Globals.Get_Change_Policy_Val(l_bill_seq_table(i),NULL);
4438: IF l_change_policy = 'NOT_ALLOWED' THEN
4439: -- Thorw error
4440: Error_Handler.Add_Error_Token
4441: (
4442: p_message_name => 'BOM_CHANGES_NOT_ALLOWED'
4443: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4444: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4468:
4469: PROCEDURE PROCESS_ALL_COMPS_BATCH
4470: (
4471: p_batch_id IN NUMBER
4472: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
4473: , x_Return_Status IN OUT NOCOPY VARCHAR2
4474: )
4475: IS
4476: TYPE bom_comp_intf_type IS TABLE OF bom_inventory_comps_interface%ROWTYPE;
4477: TYPE bom_comp_type IS TABLE OF bom_components_b%ROWTYPE;
4478: TYPE num_type IS TABLE OF NUMBER;
4479: TYPE var_type IS TABLE OF VARCHAR2(1000);
4480: l_err_text VARCHAR2(1000);
4481: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
4482: l_comp_seq_id NUMBER;
4483: l_header_count NUMBER;
4484: l_comp_count NUMBER;
4485: l_comp_seq_count NUMBER;
4546: BEGIN
4547:
4548: --logMessage_forsnell(' Inside New method' || 2933);
4549:
4550: IF Error_Handler.get_debug <> 'Y' THEN
4551: l_debug := Init_Debug;
4552: ELSE
4553: l_debug := TRUE;
4554: END IF;
5073: Write_Debug('Unexpected Error occured' || SQLERRM);
5074: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5075: THEN
5076: l_err_text := SUBSTR(SQLERRM, 1, 200);
5077: Error_Handler.Add_Error_Token
5078: (
5079: p_Message_Name => NULL
5080: , p_Message_Text => l_err_text
5081: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5123: stmt_num NUMBER;
5124: BEGIN
5125:
5126: stmt_num := 0;
5127: IF Error_Handler.get_debug <> 'Y' THEN
5128: l_debug := Init_Debug;
5129: ELSE
5130: l_debug := TRUE;
5131: END IF;