1190: , p_pkg_type => 'B'
1191: );
1192:
1193: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
1194: FND_FILE.put_line(FND_FILE.LOG, 'Success from GenerateRuleExecPkgs');
1195: ELSE
1196: FND_FILE.put_line(FND_FILE.LOG, 'Error from GenerateRuleExecPkgs:');
1197: X_RETURN_STATUS := fnd_api.g_ret_sts_error; -- Expected Error
1198: retcode := 1;
1192:
1193: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
1194: FND_FILE.put_line(FND_FILE.LOG, 'Success from GenerateRuleExecPkgs');
1195: ELSE
1196: FND_FILE.put_line(FND_FILE.LOG, 'Error from GenerateRuleExecPkgs:');
1197: X_RETURN_STATUS := fnd_api.g_ret_sts_error; -- Expected Error
1198: retcode := 1;
1199:
1200: FOR i IN 1 .. l_msg_count LOOP
1197: X_RETURN_STATUS := fnd_api.g_ret_sts_error; -- Expected Error
1198: retcode := 1;
1199:
1200: FOR i IN 1 .. l_msg_count LOOP
1201: --fnd_file.put_line(fnd_file.LOG, 'Error:');
1202: l_error_string := fnd_message.get;
1203: --fnd_file.put_line(fnd_file.LOG, l_error_string);
1204: errbuf := errbuf || ' Error: GenerateRuleExecPkgs ' || l_error_string;
1205: END LOOP;
1199:
1200: FOR i IN 1 .. l_msg_count LOOP
1201: --fnd_file.put_line(fnd_file.LOG, 'Error:');
1202: l_error_string := fnd_message.get;
1203: --fnd_file.put_line(fnd_file.LOG, l_error_string);
1204: errbuf := errbuf || ' Error: GenerateRuleExecPkgs ' || l_error_string;
1205: END LOOP;
1206: END IF;
1207: EXCEPTION
1212: fnd_msg_pub.add_exc_msg(g_pkg_name, 'BuildRulePkg');
1213: END IF;
1214:
1215: fnd_msg_pub.count_and_get(p_count => l_msg_count, p_data => l_msg_data);
1216: --fnd_file.put_line(fnd_file.LOG, 'Exception');
1217: --fnd_file.put_line(fnd_file.LOG, l_msg_data);
1218: errbuf := errbuf || 'Error in BuildRulesPkg:' || l_msg_data;
1219: END buildrulespkg;
1220:
1213: END IF;
1214:
1215: fnd_msg_pub.count_and_get(p_count => l_msg_count, p_data => l_msg_data);
1216: --fnd_file.put_line(fnd_file.LOG, 'Exception');
1217: --fnd_file.put_line(fnd_file.LOG, l_msg_data);
1218: errbuf := errbuf || 'Error in BuildRulesPkg:' || l_msg_data;
1219: END buildrulespkg;
1220:
1221: --
17551: FROM wms_rules_b
17552: WHERE enabled_flag = 'Y'
17553: ORDER BY rule_id;
17554: BEGIN
17555: --fnd_file.put_names('genall.log', 'genall.out', '/home/jcearley/work/');
17556: retcode := 0;
17557:
17558: /* Adding for bug#13565649*/
17559: IF ad_zd.get_edition('PATCH') IS NOT NULL THEN
17565: RETURN;
17566: END IF;
17567:
17568: BEGIN
17569: --fnd_file.put_line(fnd_file.LOG, '===Compiling All Rule Packages===');
17570: OPEN l_enabled_rules;
17571:
17572: LOOP
17573: FETCH l_enabled_rules INTO l_rule_id;
17571:
17572: LOOP
17573: FETCH l_enabled_rules INTO l_rule_id;
17574: EXIT WHEN l_enabled_rules%NOTFOUND;
17575: --fnd_file.put_line(fnd_file.LOG, 'Compiling Rule ID= ' || l_rule_id);
17576: wms_rule_pvt.generaterulepackage(
17577: p_api_version => 1.0
17578: , p_init_msg_list => fnd_api.g_true
17579: , p_validation_level => fnd_api.g_valid_level_full
17588: -- Used FND APIs to check the return status of the called procedure
17589: -- instead of using hard coded values.
17590: --
17591: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
17592: FND_FILE.put_line(FND_FILE.LOG, 'Success from GenerateRulePackage');
17593: ELSE
17594: FND_FILE.put_line(FND_FILE.LOG, 'Error from GenerateRulePackage:');
17595: retcode := 1;
17596:
17590: --
17591: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
17592: FND_FILE.put_line(FND_FILE.LOG, 'Success from GenerateRulePackage');
17593: ELSE
17594: FND_FILE.put_line(FND_FILE.LOG, 'Error from GenerateRulePackage:');
17595: retcode := 1;
17596:
17597: FOR i IN 1 .. l_msg_count LOOP
17598: --fnd_file.put_line(fnd_file.LOG, 'Error:');
17594: FND_FILE.put_line(FND_FILE.LOG, 'Error from GenerateRulePackage:');
17595: retcode := 1;
17596:
17597: FOR i IN 1 .. l_msg_count LOOP
17598: --fnd_file.put_line(fnd_file.LOG, 'Error:');
17599: l_error_string := fnd_message.get;
17600: --fnd_file.put_line(fnd_file.LOG, l_error_string);
17601: errbuf := errbuf || ' Error: Rule ' || l_rule_id || '
17602: ' || l_error_string;
17596:
17597: FOR i IN 1 .. l_msg_count LOOP
17598: --fnd_file.put_line(fnd_file.LOG, 'Error:');
17599: l_error_string := fnd_message.get;
17600: --fnd_file.put_line(fnd_file.LOG, l_error_string);
17601: errbuf := errbuf || ' Error: Rule ' || l_rule_id || '
17602: ' || l_error_string;
17603: END LOOP;
17604: END IF;
17608: --- this package should be called stand alone .
17609: buildrulespkg(l_errbuf, l_return_code, l_return_status);
17610:
17611: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
17612: FND_FILE.put_line(FND_FILE.LOG, 'Success from BuildRulesPkg');
17613: ELSE
17614: FND_FILE.put_line(FND_FILE.LOG, 'Error from BuildRulesPkg:');
17615: retcode := 1;
17616:
17610:
17611: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
17612: FND_FILE.put_line(FND_FILE.LOG, 'Success from BuildRulesPkg');
17613: ELSE
17614: FND_FILE.put_line(FND_FILE.LOG, 'Error from BuildRulesPkg:');
17615: retcode := 1;
17616:
17617: FOR i IN 1 .. l_msg_count LOOP
17618: --fnd_file.put_line(fnd_file.LOG, 'Error:');
17614: FND_FILE.put_line(FND_FILE.LOG, 'Error from BuildRulesPkg:');
17615: retcode := 1;
17616:
17617: FOR i IN 1 .. l_msg_count LOOP
17618: --fnd_file.put_line(fnd_file.LOG, 'Error:');
17619: l_error_string := fnd_message.get;
17620: --fnd_file.put_line(fnd_file.LOG, l_error_string);
17621: errbuf := errbuf || ' Error: Creating WMS Rule List Package ' || l_error_string;
17622: END LOOP;
17616:
17617: FOR i IN 1 .. l_msg_count LOOP
17618: --fnd_file.put_line(fnd_file.LOG, 'Error:');
17619: l_error_string := fnd_message.get;
17620: --fnd_file.put_line(fnd_file.LOG, l_error_string);
17621: errbuf := errbuf || ' Error: Creating WMS Rule List Package ' || l_error_string;
17622: END LOOP;
17623: END IF;
17624: EXCEPTION
17628: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Compile All Rule Packages');
17629: END IF;
17630:
17631: fnd_msg_pub.count_and_get(p_count => l_msg_count, p_data => l_msg_data);
17632: --fnd_file.put_line(fnd_file.LOG, 'Exception in compile_all_rule_packages');
17633: --fnd_file.put_line(fnd_file.LOG, l_msg_data);
17634: errbuf := errbuf || 'Error: ' || l_msg_data;
17635: END;
17636: END compile_all_rule_packages;
17629: END IF;
17630:
17631: fnd_msg_pub.count_and_get(p_count => l_msg_count, p_data => l_msg_data);
17632: --fnd_file.put_line(fnd_file.LOG, 'Exception in compile_all_rule_packages');
17633: --fnd_file.put_line(fnd_file.LOG, l_msg_data);
17634: errbuf := errbuf || 'Error: ' || l_msg_data;
17635: END;
17636: END compile_all_rule_packages;
17637: