18: END set_debug_flag;
19:
20: PROCEDURE default_log (p_log_msg IN VARCHAR2) IS
21: BEGIN
22: fnd_file.new_line (fnd_file.LOG, 1);
23: fnd_file.put (fnd_file.LOG, p_log_msg);
24: fnd_file.new_line (fnd_file.output, 1);
25: fnd_file.put (fnd_file.output, p_log_msg);
26: END default_log;
19:
20: PROCEDURE default_log (p_log_msg IN VARCHAR2) IS
21: BEGIN
22: fnd_file.new_line (fnd_file.LOG, 1);
23: fnd_file.put (fnd_file.LOG, p_log_msg);
24: fnd_file.new_line (fnd_file.output, 1);
25: fnd_file.put (fnd_file.output, p_log_msg);
26: END default_log;
27:
20: PROCEDURE default_log (p_log_msg IN VARCHAR2) IS
21: BEGIN
22: fnd_file.new_line (fnd_file.LOG, 1);
23: fnd_file.put (fnd_file.LOG, p_log_msg);
24: fnd_file.new_line (fnd_file.output, 1);
25: fnd_file.put (fnd_file.output, p_log_msg);
26: END default_log;
27:
28: PROCEDURE DEBUG (p_log_msg IN VARCHAR2) IS
21: BEGIN
22: fnd_file.new_line (fnd_file.LOG, 1);
23: fnd_file.put (fnd_file.LOG, p_log_msg);
24: fnd_file.new_line (fnd_file.output, 1);
25: fnd_file.put (fnd_file.output, p_log_msg);
26: END default_log;
27:
28: PROCEDURE DEBUG (p_log_msg IN VARCHAR2) IS
29: BEGIN
581: default_log (' ');
582: default_log (l_string);
583:
584: -- Making new line entry and prompting users about MSNR request
585: fnd_file.new_line (fnd_file.LOG, 1);
586: --FND_FILE.NEW_LINE(FND_FILE.OUTPUT,1);
587: fnd_message.set_name ('GMD', 'GMD_SPVL_REPLACE_MESG');
588: fnd_message.set_token ('OBJECT_TYPE', get_object_rec.object_type);
589: fnd_message.set_token ('NAME', get_object_rec.object_name);
582: default_log (l_string);
583:
584: -- Making new line entry and prompting users about MSNR request
585: fnd_file.new_line (fnd_file.LOG, 1);
586: --FND_FILE.NEW_LINE(FND_FILE.OUTPUT,1);
587: fnd_message.set_name ('GMD', 'GMD_SPVL_REPLACE_MESG');
588: fnd_message.set_token ('OBJECT_TYPE', get_object_rec.object_type);
589: fnd_message.set_token ('NAME', get_object_rec.object_name);
590: fnd_message.set_token ('VERSION', get_object_rec.object_vers);
588: fnd_message.set_token ('OBJECT_TYPE', get_object_rec.object_type);
589: fnd_message.set_token ('NAME', get_object_rec.object_name);
590: fnd_message.set_token ('VERSION', get_object_rec.object_vers);
591: fnd_message.set_token ('REPLACE_TYPE', get_object_rec.replace_type);
592: fnd_file.put (fnd_file.LOG, fnd_message.get);
593: fnd_file.new_line (fnd_file.LOG, 1);
594: --FND_FILE.PUT(FND_FILE.OUTPUT,FND_MESSAGE.GET);
595: --FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
596:
589: fnd_message.set_token ('NAME', get_object_rec.object_name);
590: fnd_message.set_token ('VERSION', get_object_rec.object_vers);
591: fnd_message.set_token ('REPLACE_TYPE', get_object_rec.replace_type);
592: fnd_file.put (fnd_file.LOG, fnd_message.get);
593: fnd_file.new_line (fnd_file.LOG, 1);
594: --FND_FILE.PUT(FND_FILE.OUTPUT,FND_MESSAGE.GET);
595: --FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
596:
597: IF pobject_type = 'SPECIFICATION' THEN
590: fnd_message.set_token ('VERSION', get_object_rec.object_vers);
591: fnd_message.set_token ('REPLACE_TYPE', get_object_rec.replace_type);
592: fnd_file.put (fnd_file.LOG, fnd_message.get);
593: fnd_file.new_line (fnd_file.LOG, 1);
594: --FND_FILE.PUT(FND_FILE.OUTPUT,FND_MESSAGE.GET);
595: --FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
596:
597: IF pobject_type = 'SPECIFICATION' THEN
598: /* REPLACE TYPE could be on of the following
591: fnd_message.set_token ('REPLACE_TYPE', get_object_rec.replace_type);
592: fnd_file.put (fnd_file.LOG, fnd_message.get);
593: fnd_file.new_line (fnd_file.LOG, 1);
594: --FND_FILE.PUT(FND_FILE.OUTPUT,FND_MESSAGE.GET);
595: --FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
596:
597: IF pobject_type = 'SPECIFICATION' THEN
598: /* REPLACE TYPE could be on of the following
599: REPSTATUS , REPOWNER, REPOWNERORG
1578: || ' Error text is '
1579: || l_error_text);
1580: END IF;
1581:
1582: fnd_file.put (fnd_file.LOG, fnd_message.get);
1583: fnd_file.new_line (fnd_file.LOG, 1);
1584: -- outer excepption handles all error that occur prior to or after
1585: -- Mass updates (or within LOOP above)
1586: WHEN OTHERS THEN
1579: || l_error_text);
1580: END IF;
1581:
1582: fnd_file.put (fnd_file.LOG, fnd_message.get);
1583: fnd_file.new_line (fnd_file.LOG, 1);
1584: -- outer excepption handles all error that occur prior to or after
1585: -- Mass updates (or within LOOP above)
1586: WHEN OTHERS THEN
1587: --ret_code := 2;
1598: END IF;
1599:
1600: fnd_message.set_token ('OBJECT_TYPE', pobject_type);
1601: fnd_message.set_token ('ERRMSG', SQLERRM);
1602: fnd_file.put (fnd_file.LOG, fnd_message.get);
1603: fnd_file.new_line (fnd_file.LOG, 1);
1604: END mass_replace_oper_spec_val;
1605:
1606: /* PROCEDURE default_spectest_from_test
1599:
1600: fnd_message.set_token ('OBJECT_TYPE', pobject_type);
1601: fnd_message.set_token ('ERRMSG', SQLERRM);
1602: fnd_file.put (fnd_file.LOG, fnd_message.get);
1603: fnd_file.new_line (fnd_file.LOG, 1);
1604: END mass_replace_oper_spec_val;
1605:
1606: /* PROCEDURE default_spectest_from_test
1607: This procedure default the spec_test record from the test user wants to add