12: select to_char(sysdate, 'mm-dd-yy') || to_char(sysdate, 'hh24:mi:ss')
13: into l_logfilename
14: from dual;
15:
16: CS_CF_UPG_UTL_PKG.setup_log('IBUCFUPG-' || l_logfilename);
17:
18: CS_CF_UPG_UTL_PKG.log_mesg(FND_LOG.LEVEL_STATEMENT,'CS_CF_UPG_BUGFIX1_PKG.Main', 'Starting bugfix1 procedure');
19: Fix_Regions_Bugfix1('R');
20: Fix_Regions_Bugfix1('A');
14: from dual;
15:
16: CS_CF_UPG_UTL_PKG.setup_log('IBUCFUPG-' || l_logfilename);
17:
18: CS_CF_UPG_UTL_PKG.log_mesg(FND_LOG.LEVEL_STATEMENT,'CS_CF_UPG_BUGFIX1_PKG.Main', 'Starting bugfix1 procedure');
19: Fix_Regions_Bugfix1('R');
20: Fix_Regions_Bugfix1('A');
21: Fix_Regions_Bugfix1('GC');
22:
19: Fix_Regions_Bugfix1('R');
20: Fix_Regions_Bugfix1('A');
21: Fix_Regions_Bugfix1('GC');
22:
23: CS_CF_UPG_UTL_PKG.wrapup('SUCCESS');
24:
25: EXCEPTION
26: WHEN OTHERS THEN
27: CS_CF_UPG_UTL_PKG.wrapup('ERROR');
23: CS_CF_UPG_UTL_PKG.wrapup('SUCCESS');
24:
25: EXCEPTION
26: WHEN OTHERS THEN
27: CS_CF_UPG_UTL_PKG.wrapup('ERROR');
28: CS_CF_UPG_UTL_PKG.log_mesg(FND_LOG.LEVEL_UNEXPECTED, 'CS_CF_UPG_BUGFIX1_PKG.Main','Exception raised in Main');
29: RAISE;
30: End Main;
31:
24:
25: EXCEPTION
26: WHEN OTHERS THEN
27: CS_CF_UPG_UTL_PKG.wrapup('ERROR');
28: CS_CF_UPG_UTL_PKG.log_mesg(FND_LOG.LEVEL_UNEXPECTED, 'CS_CF_UPG_BUGFIX1_PKG.Main','Exception raised in Main');
29: RAISE;
30: End Main;
31:
32: PROCEDURE Fix_Regions_Bugfix1(p_contextType IN VARCHAR2) IS
72: l_suffix := substr(l_region_code, 15);
73: ELSE
74: l_suffix := '';
75: END IF;
76: CS_CF_UPG_UTL_PKG.log_mesg(FND_LOG.LEVEL_STATEMENT,'CS_CF_UPG_BUGFIX1_PKG.Fix_Regions_Bugfix1', 'Fixing for IBU_CF_SR_30_X suffix:' || p_contextType || l_suffix);
77:
78: l_newRegionCode := 'IBU_CF_SR_35_' || p_contextType || l_suffix;
79:
80: OPEN region_exist('IBU_CF_SR_35_' || p_contextType || l_suffix);
81: FETCH region_exist INTO l_count;
82: CLOSE region_exist;
83:
84: IF (l_count = 0) THEN
85: CS_CF_UPG_UTL_PKG.Clone_Region(l_region_code,
86: 672,
87: l_newRegionCode,
88: 672, TRUE);
89:
90: OPEN get_display_attributes(l_region_code, 672,
91: 'IBU_CF_SR_ALL_PRODUCT_RG', 672);
92: FETCH get_display_attributes INTO l_node_display_flag, l_required_flag;
93: CLOSE get_display_attributes;
94: CS_CF_UPG_UTL_PKG.UpdateRegionItems(l_newRegionCode,
95: 'IBU_CF_SR_ALL_PRODUCT_RG',
96: l_node_display_flag,
97: l_required_flag,
98: 'IBU_CF_SR_ALL_PRODUCT');
99: OPEN get_display_attributes(l_region_code, 672,
100: 'IBU_CF_SR_REG_PRODUCT_RG', 672);
101: FETCH get_display_attributes INTO l_node_display_flag, l_required_flag;
102: CLOSE get_display_attributes;
103: CS_CF_UPG_UTL_PKG.UpdateRegionItems(l_newRegionCode,
104: 'IBU_CF_SR_REG_PRODUCT_RG',
105: l_node_display_flag,
106: l_required_flag,
107: 'IBU_CF_SR_REG_PRODUCT');
117: 'IBU_CF_SR_IDENTIFY_PRODUCT_RG', 672);
118: FETCH get_display_attributes INTO l_node_display_flag, l_required_flag;
119: CLOSE get_display_attributes;
120:
121: CS_CF_UPG_UTL_PKG.UpdateRegionItems('IBU_CF_SR_310_' || p_contextType||l_suffix,
122: 'IBU_CF_SR_IDENTIFY_PRODUCT_RG',
123: l_node_display_flag,
124: l_required_flag,
125: 'IBU_CF_SR_35_' || p_contextType||l_suffix);
134: 'IBU_CF_SR_IDENTIFY_PRODUCT_RG', 672);
135: FETCH get_display_attributes INTO l_node_display_flag, l_required_flag;
136: CLOSE get_display_attributes;
137:
138: CS_CF_UPG_UTL_PKG.UpdateRegionItems('IBU_CF_SR_320_'|| p_contextType||l_suffix,
139: 'IBU_CF_SR_IDENTIFY_PRODUCT_RG',
140: l_node_display_flag,
141: l_required_flag,
142: 'IBU_CF_SR_35_'|| p_contextType||l_suffix);
152: OPEN get_display_attributes('IBU_CF_SR_420_'|| p_contextType||l_suffix, 672,
153: 'IBU_CF_SR_ALL_PRODUCT_RG', 672);
154: FETCH get_display_attributes INTO l_node_display_flag, l_required_flag;
155: CLOSE get_display_attributes;
156: CS_CF_UPG_UTL_PKG.UpdateRegionItems('IBU_CF_SR_420_' || p_contextType|| l_suffix,
157: 'IBU_CF_SR_ALL_PRODUCT_RG',
158: l_node_display_flag,
159: l_required_flag,
160: 'IBU_CF_SR_ALL_PRODUCT');
161: OPEN get_display_attributes('IBU_CF_SR_420_'|| p_contextType||l_suffix, 672,
162: 'IBU_CF_SR_REG_PRODUCT_RG', 672);
163: FETCH get_display_attributes INTO l_node_display_flag, l_required_flag;
164: CLOSE get_display_attributes;
165: CS_CF_UPG_UTL_PKG.UpdateRegionItems('IBU_CF_SR_420_' || p_contextType|| l_suffix,
166: 'IBU_CF_SR_REG_PRODUCT_RG',
167: l_node_display_flag,
168: l_required_flag,
169: 'IBU_CF_SR_REG_PRODUCT');
183: l_suffix := substr(l_region_code, 16);
184: ELSE
185: l_suffix := '';
186: END IF;
187: CS_CF_UPG_UTL_PKG.log_mesg(FND_LOG.LEVEL_STATEMENT,'CS_CF_UPG_BUGFIX1_PKG.Fix_Regions_Bugfix1', 'Fixing for IBU_CF_SR_130_X suffix:' || p_contextType || l_suffix);
188:
189: OPEN region_exist('IBU_CF_SR_25_' || p_contextType || l_suffix);
190: FETCH region_exist INTO l_count;
191: CLOSE region_exist;
190: FETCH region_exist INTO l_count;
191: CLOSE region_exist;
192:
193: IF (l_count = 0) THEN
194: CS_CF_UPG_UTL_PKG.UpdateRegionItems('IBU_CF_SR_130_' || p_contextType || l_suffix,
195: 'IBU_CF_SR_ADDRESS_RG',
196: 'N', 'N', 'IBU_CF_SR_25_G');
197: ELSE
198: CS_CF_UPG_UTL_PKG.UpdateRegionItems('IBU_CF_SR_130_' || p_contextType || l_suffix,
194: CS_CF_UPG_UTL_PKG.UpdateRegionItems('IBU_CF_SR_130_' || p_contextType || l_suffix,
195: 'IBU_CF_SR_ADDRESS_RG',
196: 'N', 'N', 'IBU_CF_SR_25_G');
197: ELSE
198: CS_CF_UPG_UTL_PKG.UpdateRegionItems('IBU_CF_SR_130_' || p_contextType || l_suffix,
199: 'IBU_CF_SR_ADDRESS_RG',
200: 'N', 'N', 'IBU_CF_SR_25_'||p_contextType||l_suffix);
201: END IF;
202: FETCH get_regions INTO l_region_code;
214: l_suffix := substr(l_region_code, 16);
215: ELSE
216: l_suffix := '';
217: END IF;
218: CS_CF_UPG_UTL_PKG.log_mesg(FND_LOG.LEVEL_STATEMENT,'CS_CF_UPG_BUGFIX1_PKG.Fix_Regions_Bugfix1', 'Fixing for IBU_CF_SR_210_X suffix:' || p_contextType || l_suffix);
219:
220: OPEN region_exist('IBU_CF_SR_25_' || p_contextType || l_suffix);
221: FETCH region_exist INTO l_count;
222: CLOSE region_exist;
221: FETCH region_exist INTO l_count;
222: CLOSE region_exist;
223:
224: IF (l_count = 0) THEN
225: CS_CF_UPG_UTL_PKG.UpdateRegionItems('IBU_CF_SR_210_' || p_contextType || l_suffix,
226: 'IBU_CF_SR_ADDRESS_RG',
227: 'Y', 'N', 'IBU_CF_SR_25_G');
228: ELSE
229: CS_CF_UPG_UTL_PKG.UpdateRegionItems('IBU_CF_SR_210_' || p_contextType || l_suffix,
225: CS_CF_UPG_UTL_PKG.UpdateRegionItems('IBU_CF_SR_210_' || p_contextType || l_suffix,
226: 'IBU_CF_SR_ADDRESS_RG',
227: 'Y', 'N', 'IBU_CF_SR_25_G');
228: ELSE
229: CS_CF_UPG_UTL_PKG.UpdateRegionItems('IBU_CF_SR_210_' || p_contextType || l_suffix,
230: 'IBU_CF_SR_ADDRESS_RG',
231: 'Y', 'N', 'IBU_CF_SR_25_' || p_contextType || l_suffix);
232: END IF;
233: FETCH get_regions INTO l_region_code;
245: l_suffix := substr(l_region_code, 16);
246: ELSE
247: l_suffix := '';
248: END IF;
249: CS_CF_UPG_UTL_PKG.log_mesg(FND_LOG.LEVEL_STATEMENT,'CS_CF_UPG_BUGFIX1_PKG.Fix_Regions_Bugfix1', 'Fixing for IBU_CF_SR_310_X suffix:' || p_contextType || l_suffix);
250:
251: CS_CF_UPG_UTL_PKG.UpdateRegionItems('IBU_CF_SR_310_' || p_contextType || l_suffix,
252: 'IBU_CF_SR_PRIMARY_CONTACT_RG',
253: 'Y', 'N', 'IBU_CF_SR_15_G');
247: l_suffix := '';
248: END IF;
249: CS_CF_UPG_UTL_PKG.log_mesg(FND_LOG.LEVEL_STATEMENT,'CS_CF_UPG_BUGFIX1_PKG.Fix_Regions_Bugfix1', 'Fixing for IBU_CF_SR_310_X suffix:' || p_contextType || l_suffix);
250:
251: CS_CF_UPG_UTL_PKG.UpdateRegionItems('IBU_CF_SR_310_' || p_contextType || l_suffix,
252: 'IBU_CF_SR_PRIMARY_CONTACT_RG',
253: 'Y', 'N', 'IBU_CF_SR_15_G');
254: FETCH get_regions INTO l_region_code;
255: END LOOP;
266: l_suffix := substr(l_region_code, 16);
267: ELSE
268: l_suffix := '';
269: END IF;
270: CS_CF_UPG_UTL_PKG.log_mesg(FND_LOG.LEVEL_STATEMENT,'CS_CF_UPG_BUGFIX1_PKG.Fix_Regions_Bugfix1', 'Fixing for IBU_CF_SR_320_X suffix:' || p_contextType || l_suffix);
271:
272: CS_CF_UPG_UTL_PKG.UpdateRegionItems('IBU_CF_SR_320_' || p_contextType || l_suffix,
273: 'IBU_CF_SR_PRIMARY_CONTACT_RG',
274: 'Y', 'N', 'IBU_CF_SR_15_G');
268: l_suffix := '';
269: END IF;
270: CS_CF_UPG_UTL_PKG.log_mesg(FND_LOG.LEVEL_STATEMENT,'CS_CF_UPG_BUGFIX1_PKG.Fix_Regions_Bugfix1', 'Fixing for IBU_CF_SR_320_X suffix:' || p_contextType || l_suffix);
271:
272: CS_CF_UPG_UTL_PKG.UpdateRegionItems('IBU_CF_SR_320_' || p_contextType || l_suffix,
273: 'IBU_CF_SR_PRIMARY_CONTACT_RG',
274: 'Y', 'N', 'IBU_CF_SR_15_G');
275: FETCH get_regions INTO l_region_code;
276: END LOOP;
279: commit;
280:
281: EXCEPTION
282: WHEN OTHERS THEN
283: CS_CF_UPG_UTL_PKG.wrapup('ERROR');
284: CS_CF_UPG_UTL_PKG.log_mesg(FND_LOG.LEVEL_UNEXPECTED, 'CS_CF_UPG_BUGFIX1_PKG.Main','Exception raised in Main');
285:
286: IF (get_regions%ISOPEN) THEN
287: CLOSE get_regions;
280:
281: EXCEPTION
282: WHEN OTHERS THEN
283: CS_CF_UPG_UTL_PKG.wrapup('ERROR');
284: CS_CF_UPG_UTL_PKG.log_mesg(FND_LOG.LEVEL_UNEXPECTED, 'CS_CF_UPG_BUGFIX1_PKG.Main','Exception raised in Main');
285:
286: IF (get_regions%ISOPEN) THEN
287: CLOSE get_regions;
288: END IF;