46: BEGIN
47:
48: -- Check for multiple parent
49:
50: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
51: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking if any nodes have multiple parents');
52: FND_FILE.PUT_LINE(FND_FILE.LOG, '----------------------------------------- ');
53: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : CATEGORIES WITH MULTIPLE PARENTS');
54: FND_FILE.PUT_LINE(FND_FILE.LOG, '----------------------------------------- ');
47:
48: -- Check for multiple parent
49:
50: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
51: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking if any nodes have multiple parents');
52: FND_FILE.PUT_LINE(FND_FILE.LOG, '----------------------------------------- ');
53: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : CATEGORIES WITH MULTIPLE PARENTS');
54: FND_FILE.PUT_LINE(FND_FILE.LOG, '----------------------------------------- ');
55: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
48: -- Check for multiple parent
49:
50: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
51: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking if any nodes have multiple parents');
52: FND_FILE.PUT_LINE(FND_FILE.LOG, '----------------------------------------- ');
53: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : CATEGORIES WITH MULTIPLE PARENTS');
54: FND_FILE.PUT_LINE(FND_FILE.LOG, '----------------------------------------- ');
55: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
56: FND_FILE.PUT_LINE(FND_FILE.LOG, '--------------');
49:
50: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
51: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking if any nodes have multiple parents');
52: FND_FILE.PUT_LINE(FND_FILE.LOG, '----------------------------------------- ');
53: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : CATEGORIES WITH MULTIPLE PARENTS');
54: FND_FILE.PUT_LINE(FND_FILE.LOG, '----------------------------------------- ');
55: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
56: FND_FILE.PUT_LINE(FND_FILE.LOG, '--------------');
57:
50: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
51: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking if any nodes have multiple parents');
52: FND_FILE.PUT_LINE(FND_FILE.LOG, '----------------------------------------- ');
53: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : CATEGORIES WITH MULTIPLE PARENTS');
54: FND_FILE.PUT_LINE(FND_FILE.LOG, '----------------------------------------- ');
55: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
56: FND_FILE.PUT_LINE(FND_FILE.LOG, '--------------');
57:
58: l_cnt := 0;
51: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking if any nodes have multiple parents');
52: FND_FILE.PUT_LINE(FND_FILE.LOG, '----------------------------------------- ');
53: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : CATEGORIES WITH MULTIPLE PARENTS');
54: FND_FILE.PUT_LINE(FND_FILE.LOG, '----------------------------------------- ');
55: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
56: FND_FILE.PUT_LINE(FND_FILE.LOG, '--------------');
57:
58: l_cnt := 0;
59:
52: FND_FILE.PUT_LINE(FND_FILE.LOG, '----------------------------------------- ');
53: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : CATEGORIES WITH MULTIPLE PARENTS');
54: FND_FILE.PUT_LINE(FND_FILE.LOG, '----------------------------------------- ');
55: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
56: FND_FILE.PUT_LINE(FND_FILE.LOG, '--------------');
57:
58: l_cnt := 0;
59:
60: FOR i IN C_DUP LOOP
57:
58: l_cnt := 0;
59:
60: FOR i IN C_DUP LOOP
61: FND_FILE.PUT_LINE(FND_FILE.LOG, i.child_code);
62: l_cnt := 1;
63: END LOOP;
64: IF l_cnt = 0 THEN
65: FND_FILE.PUT_LINE(FND_FILE.LOG,' --- None --- ');
61: FND_FILE.PUT_LINE(FND_FILE.LOG, i.child_code);
62: l_cnt := 1;
63: END LOOP;
64: IF l_cnt = 0 THEN
65: FND_FILE.PUT_LINE(FND_FILE.LOG,' --- None --- ');
66: ELSE
67: l_report_error := 1;
68: END IF;
69:
69:
70: -- Check for item assignments
71:
72: l_cnt := 0;
73: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
74: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for any parent nodes having item assignments');
75: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
76: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : PARENT CATEGORIES WITH ITEM ASSIGNMENTS');
77: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
70: -- Check for item assignments
71:
72: l_cnt := 0;
73: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
74: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for any parent nodes having item assignments');
75: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
76: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : PARENT CATEGORIES WITH ITEM ASSIGNMENTS');
77: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
78: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
71:
72: l_cnt := 0;
73: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
74: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for any parent nodes having item assignments');
75: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
76: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : PARENT CATEGORIES WITH ITEM ASSIGNMENTS');
77: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
78: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
79: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
72: l_cnt := 0;
73: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
74: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for any parent nodes having item assignments');
75: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
76: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : PARENT CATEGORIES WITH ITEM ASSIGNMENTS');
77: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
78: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
79: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
80:
73: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
74: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for any parent nodes having item assignments');
75: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
76: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : PARENT CATEGORIES WITH ITEM ASSIGNMENTS');
77: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
78: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
79: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
80:
81: FOR i in c_parent_item_assgn(g_struct_id, g_catset_id) LOOP
74: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for any parent nodes having item assignments');
75: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
76: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : PARENT CATEGORIES WITH ITEM ASSIGNMENTS');
77: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
78: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
79: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
80:
81: FOR i in c_parent_item_assgn(g_struct_id, g_catset_id) LOOP
82: FND_FILE.PUT_LINE(FND_FILE.LOG, i.segment1);
75: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
76: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : PARENT CATEGORIES WITH ITEM ASSIGNMENTS');
77: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
78: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
79: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
80:
81: FOR i in c_parent_item_assgn(g_struct_id, g_catset_id) LOOP
82: FND_FILE.PUT_LINE(FND_FILE.LOG, i.segment1);
83: l_cnt := 1;
78: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
79: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
80:
81: FOR i in c_parent_item_assgn(g_struct_id, g_catset_id) LOOP
82: FND_FILE.PUT_LINE(FND_FILE.LOG, i.segment1);
83: l_cnt := 1;
84: END LOOP;
85: IF l_cnt = 0 THEN
86: FND_FILE.PUT_LINE(FND_FILE.LOG,' --- None --- ');
82: FND_FILE.PUT_LINE(FND_FILE.LOG, i.segment1);
83: l_cnt := 1;
84: END LOOP;
85: IF l_cnt = 0 THEN
86: FND_FILE.PUT_LINE(FND_FILE.LOG,' --- None --- ');
87: ELSE
88: l_report_error := 1;
89: END IF;
90:
91: -- Report any categories which is a parent node in the value set
92: -- hierarchy but is also a default category of the default category
93: -- set. This will not be allowed:
94:
95: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
96: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking if default category lies outside the hierarchy');
97: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
98: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : DEFAULT CATEGORY IS NOT UNDER THE TOP NODE');
99: FND_FILE.PUT_LINE(FND_FILE.LOG,'IN THE VALUE SET, IT WILL BE PLACED AS AS INDEPENDENT');
92: -- hierarchy but is also a default category of the default category
93: -- set. This will not be allowed:
94:
95: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
96: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking if default category lies outside the hierarchy');
97: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
98: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : DEFAULT CATEGORY IS NOT UNDER THE TOP NODE');
99: FND_FILE.PUT_LINE(FND_FILE.LOG,'IN THE VALUE SET, IT WILL BE PLACED AS AS INDEPENDENT');
100: FND_FILE.PUT_LINE(FND_FILE.LOG,'TOP LEVEL CATEGORY');
93: -- set. This will not be allowed:
94:
95: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
96: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking if default category lies outside the hierarchy');
97: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
98: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : DEFAULT CATEGORY IS NOT UNDER THE TOP NODE');
99: FND_FILE.PUT_LINE(FND_FILE.LOG,'IN THE VALUE SET, IT WILL BE PLACED AS AS INDEPENDENT');
100: FND_FILE.PUT_LINE(FND_FILE.LOG,'TOP LEVEL CATEGORY');
101: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
94:
95: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
96: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking if default category lies outside the hierarchy');
97: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
98: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : DEFAULT CATEGORY IS NOT UNDER THE TOP NODE');
99: FND_FILE.PUT_LINE(FND_FILE.LOG,'IN THE VALUE SET, IT WILL BE PLACED AS AS INDEPENDENT');
100: FND_FILE.PUT_LINE(FND_FILE.LOG,'TOP LEVEL CATEGORY');
101: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
102: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
95: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
96: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking if default category lies outside the hierarchy');
97: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
98: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : DEFAULT CATEGORY IS NOT UNDER THE TOP NODE');
99: FND_FILE.PUT_LINE(FND_FILE.LOG,'IN THE VALUE SET, IT WILL BE PLACED AS AS INDEPENDENT');
100: FND_FILE.PUT_LINE(FND_FILE.LOG,'TOP LEVEL CATEGORY');
101: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
102: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
103: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
96: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking if default category lies outside the hierarchy');
97: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
98: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : DEFAULT CATEGORY IS NOT UNDER THE TOP NODE');
99: FND_FILE.PUT_LINE(FND_FILE.LOG,'IN THE VALUE SET, IT WILL BE PLACED AS AS INDEPENDENT');
100: FND_FILE.PUT_LINE(FND_FILE.LOG,'TOP LEVEL CATEGORY');
101: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
102: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
103: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
104:
97: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
98: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : DEFAULT CATEGORY IS NOT UNDER THE TOP NODE');
99: FND_FILE.PUT_LINE(FND_FILE.LOG,'IN THE VALUE SET, IT WILL BE PLACED AS AS INDEPENDENT');
100: FND_FILE.PUT_LINE(FND_FILE.LOG,'TOP LEVEL CATEGORY');
101: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
102: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
103: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
104:
105: BEGIN
98: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : DEFAULT CATEGORY IS NOT UNDER THE TOP NODE');
99: FND_FILE.PUT_LINE(FND_FILE.LOG,'IN THE VALUE SET, IT WILL BE PLACED AS AS INDEPENDENT');
100: FND_FILE.PUT_LINE(FND_FILE.LOG,'TOP LEVEL CATEGORY');
101: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
102: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
103: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
104:
105: BEGIN
106: SELECT A.segment1 INTO l_catg
99: FND_FILE.PUT_LINE(FND_FILE.LOG,'IN THE VALUE SET, IT WILL BE PLACED AS AS INDEPENDENT');
100: FND_FILE.PUT_LINE(FND_FILE.LOG,'TOP LEVEL CATEGORY');
101: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
102: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
103: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
104:
105: BEGIN
106: SELECT A.segment1 INTO l_catg
107: FROM mtl_categories_B A,
112: AND NOT EXISTS (SELECT child_code FROM eni_vset_hrchy_temp
113: WHERE child_code = a.segment1
114: AND hrchy_flag = 'Y');
115:
116: FND_FILE.PUT_LINE(FND_FILE.LOG, l_catg);
117:
118: EXCEPTION
119: WHEN NO_DATA_FOUND THEN
120: FND_FILE.PUT_LINE(FND_FILE.LOG, ' --- None --- ');
116: FND_FILE.PUT_LINE(FND_FILE.LOG, l_catg);
117:
118: EXCEPTION
119: WHEN NO_DATA_FOUND THEN
120: FND_FILE.PUT_LINE(FND_FILE.LOG, ' --- None --- ');
121: END;
122:
123:
124: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
120: FND_FILE.PUT_LINE(FND_FILE.LOG, ' --- None --- ');
121: END;
122:
123:
124: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
125: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking if any parent node is specified as default category');
126:
127: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
128: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : DEFAULT CATEGORY CANNOT BE CONVERTED TO A PARENT ');
121: END;
122:
123:
124: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
125: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking if any parent node is specified as default category');
126:
127: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
128: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : DEFAULT CATEGORY CANNOT BE CONVERTED TO A PARENT ');
129: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
123:
124: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
125: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking if any parent node is specified as default category');
126:
127: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
128: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : DEFAULT CATEGORY CANNOT BE CONVERTED TO A PARENT ');
129: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
130: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
131: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
124: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
125: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking if any parent node is specified as default category');
126:
127: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
128: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : DEFAULT CATEGORY CANNOT BE CONVERTED TO A PARENT ');
129: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
130: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
131: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
132:
125: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking if any parent node is specified as default category');
126:
127: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
128: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : DEFAULT CATEGORY CANNOT BE CONVERTED TO A PARENT ');
129: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
130: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
131: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
132:
133: BEGIN
126:
127: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
128: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : DEFAULT CATEGORY CANNOT BE CONVERTED TO A PARENT ');
129: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
130: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
131: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
132:
133: BEGIN
134: SELECT a.segment1 INTO l_catg
127: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
128: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR : DEFAULT CATEGORY CANNOT BE CONVERTED TO A PARENT ');
129: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------ ');
130: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
131: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
132:
133: BEGIN
134: SELECT a.segment1 INTO l_catg
135: FROM mtl_categories_b a,
140: AND a.segment1 = c.parent_code
141: AND c.hrchy_flag = 'Y'
142: AND ROWNUM = 1;
143:
144: FND_FILE.PUT_LINE(FND_FILE.LOG, l_catg);
145:
146: EXCEPTION
147: WHEN NO_DATA_FOUND THEN
148: FND_FILE.PUT_LINE(FND_FILE.LOG, ' --- None --- ');
144: FND_FILE.PUT_LINE(FND_FILE.LOG, l_catg);
145:
146: EXCEPTION
147: WHEN NO_DATA_FOUND THEN
148: FND_FILE.PUT_LINE(FND_FILE.LOG, ' --- None --- ');
149: END;
150:
151: -- Report any categories that is new in the value set and should be
152: -- created
150:
151: -- Report any categories that is new in the value set and should be
152: -- created
153: l_cnt := 0;
154: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
155: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for new nodes in the value set hierarchy');
156: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
157: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR: NEW NODES IN THE VALUE SET THAT DO NOT HAVE CORRESPONDING CATEGORIES');
158: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
151: -- Report any categories that is new in the value set and should be
152: -- created
153: l_cnt := 0;
154: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
155: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for new nodes in the value set hierarchy');
156: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
157: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR: NEW NODES IN THE VALUE SET THAT DO NOT HAVE CORRESPONDING CATEGORIES');
158: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
159: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Flex Values');
152: -- created
153: l_cnt := 0;
154: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
155: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for new nodes in the value set hierarchy');
156: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
157: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR: NEW NODES IN THE VALUE SET THAT DO NOT HAVE CORRESPONDING CATEGORIES');
158: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
159: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Flex Values');
160: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
153: l_cnt := 0;
154: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
155: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for new nodes in the value set hierarchy');
156: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
157: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR: NEW NODES IN THE VALUE SET THAT DO NOT HAVE CORRESPONDING CATEGORIES');
158: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
159: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Flex Values');
160: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
161:
154: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
155: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for new nodes in the value set hierarchy');
156: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
157: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR: NEW NODES IN THE VALUE SET THAT DO NOT HAVE CORRESPONDING CATEGORIES');
158: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
159: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Flex Values');
160: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
161:
162: FOR i in c_new_nodes(g_struct_id) LOOP
155: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for new nodes in the value set hierarchy');
156: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
157: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR: NEW NODES IN THE VALUE SET THAT DO NOT HAVE CORRESPONDING CATEGORIES');
158: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
159: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Flex Values');
160: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
161:
162: FOR i in c_new_nodes(g_struct_id) LOOP
163: FND_FILE.PUT_LINE(FND_FILE.LOG, i.child_code);
156: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
157: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR: NEW NODES IN THE VALUE SET THAT DO NOT HAVE CORRESPONDING CATEGORIES');
158: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
159: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Flex Values');
160: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
161:
162: FOR i in c_new_nodes(g_struct_id) LOOP
163: FND_FILE.PUT_LINE(FND_FILE.LOG, i.child_code);
164: l_cnt := 1;
159: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Flex Values');
160: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
161:
162: FOR i in c_new_nodes(g_struct_id) LOOP
163: FND_FILE.PUT_LINE(FND_FILE.LOG, i.child_code);
164: l_cnt := 1;
165: END LOOP;
166:
167: IF l_cnt = 0 THEN
164: l_cnt := 1;
165: END LOOP;
166:
167: IF l_cnt = 0 THEN
168: FND_FILE.PUT_LINE(FND_FILE.LOG,' --- None --- ');
169: ELSE
170: FND_FILE.PUT_LINE(FND_FILE.LOG,'Please run concurrent program: Create item categories from value set to create categories for the new nodes');
171: l_report_error := 1;
172: END IF;
166:
167: IF l_cnt = 0 THEN
168: FND_FILE.PUT_LINE(FND_FILE.LOG,' --- None --- ');
169: ELSE
170: FND_FILE.PUT_LINE(FND_FILE.LOG,'Please run concurrent program: Create item categories from value set to create categories for the new nodes');
171: l_report_error := 1;
172: END IF;
173:
174: RETURN l_report_error;
338: l_error := ENI_VALUESET_CATEGORY.ENI_VALIDATE_STRUCTURE;
339:
340: IF l_error THEN
341: errbuf:= 'ERROR: in structure/ segment validation';
342: FND_FILE.PUT_LINE(FND_FILE.LOG,'ERROR: in structure/ segment validation');
343: retcode := 2;
344: RAISE_APPLICATION_ERROR(-20009, 'ERROR: in structure/ segment validation');
345: END IF;
346:
351: g_value_set_id := ENI_VALUESET_CATEGORY.GET_FLEX_VALUE_SET_ID('401','MCAT',g_catset_id);
352:
353: IF g_value_set_id IS NULL THEN
354: errbuf := 'ERROR: There is no value set associated with the default category set structure. Aborting....';
355: FND_FILE.PUT_LINE(FND_FILE.LOG,'ERROR: There is no value set associated with the default category set structure. ');
356: retcode := 2;
357: RAISE_APPLICATION_ERROR(-20009, 'Error: No value set is associated with the structure');
358: END IF;
359:
366: -- Call Validate_structure from this procedure to do all the
367: -- validations. If everything is alright then move ahead.
368:
369: -- populating the entire value set into the temp table
370: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Truncating the temp table ... ');
371: EXECUTE IMMEDIATE 'TRUNCATE TABLE ' || l_schema || '.ENI_VSET_HRCHY_TEMP';
372:
373: INSERT INTO ENI_VSET_HRCHY_TEMP(
374: CHILD_CODE,
386:
387: -- populating the hierarchy from only the top node down
388: -- into the temp table
389:
390: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Populating hierarchy in temp table under the top node');
391:
392: INSERT INTO ENI_VSET_HRCHY_TEMP (
393: CHILD_CODE,
394: PARENT_CODE,
397: FROM ENI_VSET_HRCHY_TEMP H
398: CONNECT BY PRIOR CHILD_CODE = PARENT_CODE
399: START WITH CHILD_CODE = p_top_node;
400:
401: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Rows inserted: ' || sql%rowcount);
402:
403: COMMIT;
404:
405: IF p_validation_mode = 'Y' THEN
403: COMMIT;
404:
405: IF p_validation_mode = 'Y' THEN
406:
407: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
408: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Running in Validation Mode');
409: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
410:
411: -- Calling function to validate setup. Erroring out if any error
404:
405: IF p_validation_mode = 'Y' THEN
406:
407: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
408: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Running in Validation Mode');
409: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
410:
411: -- Calling function to validate setup. Erroring out if any error
412: -- is reported.
405: IF p_validation_mode = 'Y' THEN
406:
407: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
408: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Running in Validation Mode');
409: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
410:
411: -- Calling function to validate setup. Erroring out if any error
412: -- is reported.
413: l_cnt := ENI_VALIDATE_SETUP;
415: -- Report any categories that will be removed from the category set
416: -- as they do not exist in the value set hierarchy
417:
418: l_cnt := 0;
419: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
420: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for categories that do not exist in the value set hierarchy');
421: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
422: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: THE FOLLOWING CATEGORIES ARE NOT UNDER THE TOP NODE ');
423: FND_FILE.PUT_LINE(FND_FILE.LOG,'IN THE VALUE SET AND HAVE NO ITEM ASSIGNMENTS, HENCE WILL BE REMOVED');
416: -- as they do not exist in the value set hierarchy
417:
418: l_cnt := 0;
419: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
420: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for categories that do not exist in the value set hierarchy');
421: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
422: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: THE FOLLOWING CATEGORIES ARE NOT UNDER THE TOP NODE ');
423: FND_FILE.PUT_LINE(FND_FILE.LOG,'IN THE VALUE SET AND HAVE NO ITEM ASSIGNMENTS, HENCE WILL BE REMOVED');
424: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------- ');
417:
418: l_cnt := 0;
419: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
420: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for categories that do not exist in the value set hierarchy');
421: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
422: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: THE FOLLOWING CATEGORIES ARE NOT UNDER THE TOP NODE ');
423: FND_FILE.PUT_LINE(FND_FILE.LOG,'IN THE VALUE SET AND HAVE NO ITEM ASSIGNMENTS, HENCE WILL BE REMOVED');
424: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------- ');
425: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
418: l_cnt := 0;
419: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
420: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for categories that do not exist in the value set hierarchy');
421: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
422: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: THE FOLLOWING CATEGORIES ARE NOT UNDER THE TOP NODE ');
423: FND_FILE.PUT_LINE(FND_FILE.LOG,'IN THE VALUE SET AND HAVE NO ITEM ASSIGNMENTS, HENCE WILL BE REMOVED');
424: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------- ');
425: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
426: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
419: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
420: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for categories that do not exist in the value set hierarchy');
421: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
422: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: THE FOLLOWING CATEGORIES ARE NOT UNDER THE TOP NODE ');
423: FND_FILE.PUT_LINE(FND_FILE.LOG,'IN THE VALUE SET AND HAVE NO ITEM ASSIGNMENTS, HENCE WILL BE REMOVED');
424: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------- ');
425: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
426: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
427:
420: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for categories that do not exist in the value set hierarchy');
421: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
422: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: THE FOLLOWING CATEGORIES ARE NOT UNDER THE TOP NODE ');
423: FND_FILE.PUT_LINE(FND_FILE.LOG,'IN THE VALUE SET AND HAVE NO ITEM ASSIGNMENTS, HENCE WILL BE REMOVED');
424: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------- ');
425: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
426: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
427:
428: FOR i in c_out_hrchy(g_struct_id, g_catset_id) LOOP
421: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
422: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: THE FOLLOWING CATEGORIES ARE NOT UNDER THE TOP NODE ');
423: FND_FILE.PUT_LINE(FND_FILE.LOG,'IN THE VALUE SET AND HAVE NO ITEM ASSIGNMENTS, HENCE WILL BE REMOVED');
424: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------- ');
425: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
426: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
427:
428: FOR i in c_out_hrchy(g_struct_id, g_catset_id) LOOP
429: FND_FILE.PUT_LINE(FND_FILE.LOG, i.SEGMENT1);
422: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: THE FOLLOWING CATEGORIES ARE NOT UNDER THE TOP NODE ');
423: FND_FILE.PUT_LINE(FND_FILE.LOG,'IN THE VALUE SET AND HAVE NO ITEM ASSIGNMENTS, HENCE WILL BE REMOVED');
424: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------- ');
425: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
426: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
427:
428: FOR i in c_out_hrchy(g_struct_id, g_catset_id) LOOP
429: FND_FILE.PUT_LINE(FND_FILE.LOG, i.SEGMENT1);
430: l_cnt := 1;
425: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
426: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
427:
428: FOR i in c_out_hrchy(g_struct_id, g_catset_id) LOOP
429: FND_FILE.PUT_LINE(FND_FILE.LOG, i.SEGMENT1);
430: l_cnt := 1;
431: END LOOP;
432: IF l_cnt = 0 THEN
433: FND_FILE.PUT_LINE(FND_FILE.LOG,' --- None --- ');
429: FND_FILE.PUT_LINE(FND_FILE.LOG, i.SEGMENT1);
430: l_cnt := 1;
431: END LOOP;
432: IF l_cnt = 0 THEN
433: FND_FILE.PUT_LINE(FND_FILE.LOG,' --- None --- ');
434: END IF;
435:
436:
437: -- Report any categories that will be left in the valid cats table
437: -- Report any categories that will be left in the valid cats table
438: -- as stray categories. These categories have item assignments
439:
440: l_cnt := 0;
441: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
442: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for categories that do not exist in the value set hierarchy but has item assignments');
443: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
444: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: THE FOLLOWING CATEGORIES ARE NOT UNDER THE ');
445: FND_FILE.PUT_LINE(FND_FILE.LOG,'TOP NODE IN THE VALUE SET BUT HAS ITEM ASSIGNMENTS.');
438: -- as stray categories. These categories have item assignments
439:
440: l_cnt := 0;
441: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
442: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for categories that do not exist in the value set hierarchy but has item assignments');
443: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
444: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: THE FOLLOWING CATEGORIES ARE NOT UNDER THE ');
445: FND_FILE.PUT_LINE(FND_FILE.LOG,'TOP NODE IN THE VALUE SET BUT HAS ITEM ASSIGNMENTS.');
446: FND_FILE.PUT_LINE(FND_FILE.LOG, 'HENCE WILL BE PLACED AS INDEPENDENT TOP LEVEL CATEGORIES');
439:
440: l_cnt := 0;
441: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
442: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for categories that do not exist in the value set hierarchy but has item assignments');
443: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
444: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: THE FOLLOWING CATEGORIES ARE NOT UNDER THE ');
445: FND_FILE.PUT_LINE(FND_FILE.LOG,'TOP NODE IN THE VALUE SET BUT HAS ITEM ASSIGNMENTS.');
446: FND_FILE.PUT_LINE(FND_FILE.LOG, 'HENCE WILL BE PLACED AS INDEPENDENT TOP LEVEL CATEGORIES');
447: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
440: l_cnt := 0;
441: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
442: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for categories that do not exist in the value set hierarchy but has item assignments');
443: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
444: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: THE FOLLOWING CATEGORIES ARE NOT UNDER THE ');
445: FND_FILE.PUT_LINE(FND_FILE.LOG,'TOP NODE IN THE VALUE SET BUT HAS ITEM ASSIGNMENTS.');
446: FND_FILE.PUT_LINE(FND_FILE.LOG, 'HENCE WILL BE PLACED AS INDEPENDENT TOP LEVEL CATEGORIES');
447: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
448: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
441: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
442: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for categories that do not exist in the value set hierarchy but has item assignments');
443: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
444: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: THE FOLLOWING CATEGORIES ARE NOT UNDER THE ');
445: FND_FILE.PUT_LINE(FND_FILE.LOG,'TOP NODE IN THE VALUE SET BUT HAS ITEM ASSIGNMENTS.');
446: FND_FILE.PUT_LINE(FND_FILE.LOG, 'HENCE WILL BE PLACED AS INDEPENDENT TOP LEVEL CATEGORIES');
447: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
448: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
449: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
442: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for categories that do not exist in the value set hierarchy but has item assignments');
443: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
444: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: THE FOLLOWING CATEGORIES ARE NOT UNDER THE ');
445: FND_FILE.PUT_LINE(FND_FILE.LOG,'TOP NODE IN THE VALUE SET BUT HAS ITEM ASSIGNMENTS.');
446: FND_FILE.PUT_LINE(FND_FILE.LOG, 'HENCE WILL BE PLACED AS INDEPENDENT TOP LEVEL CATEGORIES');
447: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
448: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
449: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
450:
443: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
444: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: THE FOLLOWING CATEGORIES ARE NOT UNDER THE ');
445: FND_FILE.PUT_LINE(FND_FILE.LOG,'TOP NODE IN THE VALUE SET BUT HAS ITEM ASSIGNMENTS.');
446: FND_FILE.PUT_LINE(FND_FILE.LOG, 'HENCE WILL BE PLACED AS INDEPENDENT TOP LEVEL CATEGORIES');
447: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
448: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
449: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
450:
451: FOR i in c_stray_catg(g_struct_id, g_catset_id) LOOP
444: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: THE FOLLOWING CATEGORIES ARE NOT UNDER THE ');
445: FND_FILE.PUT_LINE(FND_FILE.LOG,'TOP NODE IN THE VALUE SET BUT HAS ITEM ASSIGNMENTS.');
446: FND_FILE.PUT_LINE(FND_FILE.LOG, 'HENCE WILL BE PLACED AS INDEPENDENT TOP LEVEL CATEGORIES');
447: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
448: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
449: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
450:
451: FOR i in c_stray_catg(g_struct_id, g_catset_id) LOOP
452: FND_FILE.PUT_LINE(FND_FILE.LOG, i.SEGMENT1);
445: FND_FILE.PUT_LINE(FND_FILE.LOG,'TOP NODE IN THE VALUE SET BUT HAS ITEM ASSIGNMENTS.');
446: FND_FILE.PUT_LINE(FND_FILE.LOG, 'HENCE WILL BE PLACED AS INDEPENDENT TOP LEVEL CATEGORIES');
447: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
448: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
449: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
450:
451: FOR i in c_stray_catg(g_struct_id, g_catset_id) LOOP
452: FND_FILE.PUT_LINE(FND_FILE.LOG, i.SEGMENT1);
453: l_cnt := 1;
448: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
449: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
450:
451: FOR i in c_stray_catg(g_struct_id, g_catset_id) LOOP
452: FND_FILE.PUT_LINE(FND_FILE.LOG, i.SEGMENT1);
453: l_cnt := 1;
454: END LOOP;
455: IF l_cnt = 0 THEN
456: FND_FILE.PUT_LINE(FND_FILE.LOG,' --- None --- ');
452: FND_FILE.PUT_LINE(FND_FILE.LOG, i.SEGMENT1);
453: l_cnt := 1;
454: END LOOP;
455: IF l_cnt = 0 THEN
456: FND_FILE.PUT_LINE(FND_FILE.LOG,' --- None --- ');
457: END IF;
458:
459: ELSIF p_validation_mode = 'N' then
460:
457: END IF;
458:
459: ELSIF p_validation_mode = 'N' then
460:
461: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
462: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Running in Upgrade Mode');
463: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
464:
465: -- Calling function to validate hierarchy setup.
458:
459: ELSIF p_validation_mode = 'N' then
460:
461: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
462: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Running in Upgrade Mode');
463: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
464:
465: -- Calling function to validate hierarchy setup.
466: -- Error out if setup fails
459: ELSIF p_validation_mode = 'N' then
460:
461: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
462: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Running in Upgrade Mode');
463: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
464:
465: -- Calling function to validate hierarchy setup.
466: -- Error out if setup fails
467:
481: -- If there are other categories that have item assignments
482: -- as well but do not belong in mtl valid cats, then those
483: -- categories will be created as a standalone node in the
484: -- valid categories table
485: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
486: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for categories that do not exist in the value set hierarchy but has item assignments');
487: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
488: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: CATEGORIES NOT UNDER THE TOP NODE BUT HAS ITEM ');
489: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ASSIGNMENTS. WILL REMAIN AS INDEPENDENT TOP LEVEL CATEGORIES');
482: -- as well but do not belong in mtl valid cats, then those
483: -- categories will be created as a standalone node in the
484: -- valid categories table
485: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
486: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for categories that do not exist in the value set hierarchy but has item assignments');
487: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
488: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: CATEGORIES NOT UNDER THE TOP NODE BUT HAS ITEM ');
489: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ASSIGNMENTS. WILL REMAIN AS INDEPENDENT TOP LEVEL CATEGORIES');
490: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
483: -- categories will be created as a standalone node in the
484: -- valid categories table
485: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
486: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for categories that do not exist in the value set hierarchy but has item assignments');
487: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
488: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: CATEGORIES NOT UNDER THE TOP NODE BUT HAS ITEM ');
489: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ASSIGNMENTS. WILL REMAIN AS INDEPENDENT TOP LEVEL CATEGORIES');
490: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
491: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
484: -- valid categories table
485: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
486: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for categories that do not exist in the value set hierarchy but has item assignments');
487: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
488: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: CATEGORIES NOT UNDER THE TOP NODE BUT HAS ITEM ');
489: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ASSIGNMENTS. WILL REMAIN AS INDEPENDENT TOP LEVEL CATEGORIES');
490: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
491: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
492: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
485: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
486: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for categories that do not exist in the value set hierarchy but has item assignments');
487: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
488: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: CATEGORIES NOT UNDER THE TOP NODE BUT HAS ITEM ');
489: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ASSIGNMENTS. WILL REMAIN AS INDEPENDENT TOP LEVEL CATEGORIES');
490: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
491: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
492: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
493:
486: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Checking for categories that do not exist in the value set hierarchy but has item assignments');
487: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
488: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: CATEGORIES NOT UNDER THE TOP NODE BUT HAS ITEM ');
489: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ASSIGNMENTS. WILL REMAIN AS INDEPENDENT TOP LEVEL CATEGORIES');
490: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
491: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
492: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
493:
494: FOR i IN c_item_assign(g_struct_id, g_catset_id) LOOP
487: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
488: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: CATEGORIES NOT UNDER THE TOP NODE BUT HAS ITEM ');
489: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ASSIGNMENTS. WILL REMAIN AS INDEPENDENT TOP LEVEL CATEGORIES');
490: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
491: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
492: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
493:
494: FOR i IN c_item_assign(g_struct_id, g_catset_id) LOOP
495:
488: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INFORMATION: CATEGORIES NOT UNDER THE TOP NODE BUT HAS ITEM ');
489: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ASSIGNMENTS. WILL REMAIN AS INDEPENDENT TOP LEVEL CATEGORIES');
490: FND_FILE.PUT_LINE(FND_FILE.LOG, '------------------------------------------------------------------ ');
491: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code ');
492: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- ');
493:
494: FOR i IN c_item_assign(g_struct_id, g_catset_id) LOOP
495:
496: IF i.flag = 1 THEN
523:
524:
525: IF l_return_status <> 'S' THEN
526: FND_MSG_PUB.Get(p_msg_index=>fnd_msg_pub.G_LAST, p_encoded=>FND_API.G_FALSE, p_msg_index_out=>l_msg_index_out, p_data=>l_data);
527: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error while updating category: '||to_char(i.category_id)||' from product hierarchy');
528: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR: '||l_data);
529: errbuf := 'Error :' || l_data;
530: retcode := 2;
531: goto end_block;
524:
525: IF l_return_status <> 'S' THEN
526: FND_MSG_PUB.Get(p_msg_index=>fnd_msg_pub.G_LAST, p_encoded=>FND_API.G_FALSE, p_msg_index_out=>l_msg_index_out, p_data=>l_data);
527: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error while updating category: '||to_char(i.category_id)||' from product hierarchy');
528: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR: '||l_data);
529: errbuf := 'Error :' || l_data;
530: retcode := 2;
531: goto end_block;
532: ELSE
535: -- has item assignments but is not in the hierarchy under
536: -- the top node
537:
538: FOR j IN c_check_temp(i.segment1) LOOP
539: FND_FILE.PUT_LINE(FND_FILE.LOG, i.SEGMENT1);
540: END LOOP;
541:
542: END IF;
543: END LOOP;
550: -- the remaining nodes in the branch can be deleted (similar to the
551: -- UI behaviour). Here we will delete records from product hierarchy,
552: -- which are not a part of VB hierarchy, starting from the top node.
553:
554: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
555: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
556: FND_FILE.PUT_LINE(FND_FILE.LOG, 'DELETED CATEGORIES: Removing categories from the default category ');
557: FND_FILE.PUT_LINE(FND_FILE.LOG, 'set, which no longer belongs under the top node');
558: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
551: -- UI behaviour). Here we will delete records from product hierarchy,
552: -- which are not a part of VB hierarchy, starting from the top node.
553:
554: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
555: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
556: FND_FILE.PUT_LINE(FND_FILE.LOG, 'DELETED CATEGORIES: Removing categories from the default category ');
557: FND_FILE.PUT_LINE(FND_FILE.LOG, 'set, which no longer belongs under the top node');
558: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
559:
552: -- which are not a part of VB hierarchy, starting from the top node.
553:
554: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
555: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
556: FND_FILE.PUT_LINE(FND_FILE.LOG, 'DELETED CATEGORIES: Removing categories from the default category ');
557: FND_FILE.PUT_LINE(FND_FILE.LOG, 'set, which no longer belongs under the top node');
558: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
559:
560: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
553:
554: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
555: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
556: FND_FILE.PUT_LINE(FND_FILE.LOG, 'DELETED CATEGORIES: Removing categories from the default category ');
557: FND_FILE.PUT_LINE(FND_FILE.LOG, 'set, which no longer belongs under the top node');
558: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
559:
560: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
561: FND_FILE.PUT_LINE(FND_FILE.LOG, '--------------');
554: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
555: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
556: FND_FILE.PUT_LINE(FND_FILE.LOG, 'DELETED CATEGORIES: Removing categories from the default category ');
557: FND_FILE.PUT_LINE(FND_FILE.LOG, 'set, which no longer belongs under the top node');
558: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
559:
560: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
561: FND_FILE.PUT_LINE(FND_FILE.LOG, '--------------');
562:
556: FND_FILE.PUT_LINE(FND_FILE.LOG, 'DELETED CATEGORIES: Removing categories from the default category ');
557: FND_FILE.PUT_LINE(FND_FILE.LOG, 'set, which no longer belongs under the top node');
558: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
559:
560: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
561: FND_FILE.PUT_LINE(FND_FILE.LOG, '--------------');
562:
563: l_cnt := 1;
564: END IF;
557: FND_FILE.PUT_LINE(FND_FILE.LOG, 'set, which no longer belongs under the top node');
558: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
559:
560: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
561: FND_FILE.PUT_LINE(FND_FILE.LOG, '--------------');
562:
563: l_cnt := 1;
564: END IF;
565:
588: );
589:
590: IF l_return_status <> 'S' THEN
591: FND_MSG_PUB.Get(p_msg_index=>fnd_msg_pub.G_LAST, p_encoded=>FND_API.G_FALSE, p_msg_index_out=>l_msg_index_out, p_data=>l_data);
592: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error while deleting '||to_char(i.category_id)||' from product hierarchy');
593: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR: '||l_data);
594: errbuf := 'Error :' || l_data;
595: retcode := 2;
596: goto end_block;
589:
590: IF l_return_status <> 'S' THEN
591: FND_MSG_PUB.Get(p_msg_index=>fnd_msg_pub.G_LAST, p_encoded=>FND_API.G_FALSE, p_msg_index_out=>l_msg_index_out, p_data=>l_data);
592: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error while deleting '||to_char(i.category_id)||' from product hierarchy');
593: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR: '||l_data);
594: errbuf := 'Error :' || l_data;
595: retcode := 2;
596: goto end_block;
597: ELSE
594: errbuf := 'Error :' || l_data;
595: retcode := 2;
596: goto end_block;
597: ELSE
598: FND_FILE.PUT_LINE(FND_FILE.LOG, i.SEGMENT1);
599: END IF;
600: END IF;
601: END LOOP;
602:
600: END IF;
601: END LOOP;
602:
603: IF l_cnt = 0 THEN
604: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- None ---');
605: END IF;
606:
607: -- inserting new categories, which do not exist
608: -- under the default category set. The cursor would
632: -- END IF;
633:
634: IF i.cat_child_id IS NULL THEN
635: IF l_insert = 0 THEN
636: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
637: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
638: FND_FILE.PUT_LINE(FND_FILE.LOG, 'NEW CATEGORIES: Creating category under the default category set');
639: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
640:
633:
634: IF i.cat_child_id IS NULL THEN
635: IF l_insert = 0 THEN
636: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
637: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
638: FND_FILE.PUT_LINE(FND_FILE.LOG, 'NEW CATEGORIES: Creating category under the default category set');
639: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
640:
641: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
634: IF i.cat_child_id IS NULL THEN
635: IF l_insert = 0 THEN
636: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
637: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
638: FND_FILE.PUT_LINE(FND_FILE.LOG, 'NEW CATEGORIES: Creating category under the default category set');
639: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
640:
641: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
642: FND_FILE.PUT_LINE(FND_FILE.LOG, '--------------');
635: IF l_insert = 0 THEN
636: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
637: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
638: FND_FILE.PUT_LINE(FND_FILE.LOG, 'NEW CATEGORIES: Creating category under the default category set');
639: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
640:
641: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
642: FND_FILE.PUT_LINE(FND_FILE.LOG, '--------------');
643:
637: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
638: FND_FILE.PUT_LINE(FND_FILE.LOG, 'NEW CATEGORIES: Creating category under the default category set');
639: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
640:
641: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
642: FND_FILE.PUT_LINE(FND_FILE.LOG, '--------------');
643:
644: l_insert := 1;
645: END IF;
638: FND_FILE.PUT_LINE(FND_FILE.LOG, 'NEW CATEGORIES: Creating category under the default category set');
639: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
640:
641: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
642: FND_FILE.PUT_LINE(FND_FILE.LOG, '--------------');
643:
644: l_insert := 1;
645: END IF;
646:
657: );
658:
659: IF l_return_status <> 'S' THEN
660: FND_MSG_PUB.Get(p_msg_index=>fnd_msg_pub.G_LAST, p_encoded=>FND_API.G_FALSE, p_msg_index_out=>l_msg_index_out, p_data=>l_data);
661: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error while inserting '||i.vset_child_code||' into product hierarchy');
662: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR: '||l_data);
663: errbuf := 'ERROR :' || l_data;
664: retcode := 2;
665: goto end_block;
658:
659: IF l_return_status <> 'S' THEN
660: FND_MSG_PUB.Get(p_msg_index=>fnd_msg_pub.G_LAST, p_encoded=>FND_API.G_FALSE, p_msg_index_out=>l_msg_index_out, p_data=>l_data);
661: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error while inserting '||i.vset_child_code||' into product hierarchy');
662: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR: '||l_data);
663: errbuf := 'ERROR :' || l_data;
664: retcode := 2;
665: goto end_block;
666: ELSE
663: errbuf := 'ERROR :' || l_data;
664: retcode := 2;
665: goto end_block;
666: ELSE
667: FND_FILE.PUT_LINE(FND_FILE.LOG, i.vset_child_code);
668: END IF;
669:
670: -- Will update the parent-child relationship in
671: -- mtl_category_set_valid_cats table if such a change
671: -- mtl_category_set_valid_cats table if such a change
672: -- is detected
673: ELSIF NVL(i.vset_parent_id, -1) <> NVL(i.cat_parent_id, -1) THEN
674: IF l_update = 0 then
675: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
676: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
677: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UPDATED CATEGORIES: Updating categories with the new parent-child relationship in the value set');
678: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
679:
672: -- is detected
673: ELSIF NVL(i.vset_parent_id, -1) <> NVL(i.cat_parent_id, -1) THEN
674: IF l_update = 0 then
675: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
676: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
677: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UPDATED CATEGORIES: Updating categories with the new parent-child relationship in the value set');
678: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
679:
680: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
673: ELSIF NVL(i.vset_parent_id, -1) <> NVL(i.cat_parent_id, -1) THEN
674: IF l_update = 0 then
675: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
676: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
677: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UPDATED CATEGORIES: Updating categories with the new parent-child relationship in the value set');
678: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
679:
680: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
681: FND_FILE.PUT_LINE(FND_FILE.LOG, '--------------');
674: IF l_update = 0 then
675: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
676: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
677: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UPDATED CATEGORIES: Updating categories with the new parent-child relationship in the value set');
678: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
679:
680: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
681: FND_FILE.PUT_LINE(FND_FILE.LOG, '--------------');
682:
676: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
677: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UPDATED CATEGORIES: Updating categories with the new parent-child relationship in the value set');
678: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
679:
680: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
681: FND_FILE.PUT_LINE(FND_FILE.LOG, '--------------');
682:
683: l_update := 1;
684:
677: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UPDATED CATEGORIES: Updating categories with the new parent-child relationship in the value set');
678: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------------');
679:
680: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Code');
681: FND_FILE.PUT_LINE(FND_FILE.LOG, '--------------');
682:
683: l_update := 1;
684:
685: END IF;
697: );
698:
699: IF l_return_status <> 'S' THEN
700: FND_MSG_PUB.Get(p_msg_index=>fnd_msg_pub.G_LAST, p_encoded=>FND_API.G_FALSE, p_msg_index_out=>l_msg_index_out, p_data=>l_data);
701: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error while updating '||i.vset_child_code||' of product hierarchy');
702: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR: '||l_data);
703: errbuf := 'ERROR :' || l_data;
704: retcode := 2;
705: goto end_block;
698:
699: IF l_return_status <> 'S' THEN
700: FND_MSG_PUB.Get(p_msg_index=>fnd_msg_pub.G_LAST, p_encoded=>FND_API.G_FALSE, p_msg_index_out=>l_msg_index_out, p_data=>l_data);
701: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error while updating '||i.vset_child_code||' of product hierarchy');
702: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR: '||l_data);
703: errbuf := 'ERROR :' || l_data;
704: retcode := 2;
705: goto end_block;
706: ELSE
703: errbuf := 'ERROR :' || l_data;
704: retcode := 2;
705: goto end_block;
706: ELSE
707: FND_FILE.PUT_LINE(FND_FILE.LOG, i.vset_child_code);
708: END IF;
709:
710: END IF; -- IF i.cat_child_id IS NULL THEN
711: END LOOP;
716: NULL;
717:
718: EXCEPTION
719: WHEN NO_DATA_FOUND THEN
720: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: No Data Found. Transaction will be rolled back');
721: errbuf := 'No data found ' || sqlerrm;
722: retcode := 2;
723: ROLLBACK;
724: RAISE;
722: retcode := 2;
723: ROLLBACK;
724: RAISE;
725: WHEN OTHERS THEN
726: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error: ' || sqlerrm || '. Transaction will be rolled back');
727: errbuf := 'Error :' || sqlerrm;
728: retcode := 2;
729: ROLLBACK;
730: RAISE;