22: --
23:
24: PROCEDURE Create_Custom_Region_Items
25: ( p_api_version IN NUMBER
26: , p_commit IN VARCHAR2 := FND_API.G_FALSE
27: , p_Custom_Region_Items_Rec IN BIS_CUSTOMIZATION_PUB.custom_region_items_type
28: , x_return_status OUT NOCOPY VARCHAR2
29: , x_msg_count OUT NOCOPY NUMBER
30: , x_msg_data OUT NOCOPY VARCHAR2
34: l_rowid VARCHAR2(100);
35: BEGIN
36:
37: FND_MSG_PUB.Initialize;
38: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
39:
40: AK_CUSTOM_REGION_ITEMS_PKG.INSERT_ROW
41: ( X_ROWID => l_rowid
42: , X_CUSTOMIZATION_APPLICATION_ID => p_Custom_Region_Items_Rec.customization_application_id
55: , X_LAST_UPDATE_DATE => NVL(p_Custom_Region_Items_Rec.last_update_date,SYSDATE)
56: , X_LAST_UPDATE_LOGIN => NVL(p_Custom_Region_Items_Rec.last_update_login,FND_GLOBAL.LOGIN_ID)
57: );
58:
59: IF (p_commit = FND_API.G_TRUE) THEN
60: COMMIT;
61: END IF;
62:
63:
61: END IF;
62:
63:
64: EXCEPTION
65: WHEN FND_API.G_EXC_ERROR THEN
66: IF (x_msg_data IS NULL) THEN
67: FND_MSG_PUB.Count_And_Get
68: ( p_encoded => FND_API.G_FALSE
69: , p_count => x_msg_count
64: EXCEPTION
65: WHEN FND_API.G_EXC_ERROR THEN
66: IF (x_msg_data IS NULL) THEN
67: FND_MSG_PUB.Count_And_Get
68: ( p_encoded => FND_API.G_FALSE
69: , p_count => x_msg_count
70: , p_data => x_msg_data
71: );
72: END IF;
69: , p_count => x_msg_count
70: , p_data => x_msg_data
71: );
72: END IF;
73: x_return_status := FND_API.G_RET_STS_ERROR;
74: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
75: IF (x_msg_data IS NULL) THEN
76: FND_MSG_PUB.Count_And_Get
77: ( p_encoded => FND_API.G_FALSE
70: , p_data => x_msg_data
71: );
72: END IF;
73: x_return_status := FND_API.G_RET_STS_ERROR;
74: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
75: IF (x_msg_data IS NULL) THEN
76: FND_MSG_PUB.Count_And_Get
77: ( p_encoded => FND_API.G_FALSE
78: , p_count => x_msg_count
73: x_return_status := FND_API.G_RET_STS_ERROR;
74: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
75: IF (x_msg_data IS NULL) THEN
76: FND_MSG_PUB.Count_And_Get
77: ( p_encoded => FND_API.G_FALSE
78: , p_count => x_msg_count
79: , p_data => x_msg_data
80: );
81: END IF;
78: , p_count => x_msg_count
79: , p_data => x_msg_data
80: );
81: END IF;
82: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
83: WHEN NO_DATA_FOUND THEN
84: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
85: IF (x_msg_data IS NOT NULL) THEN
86: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PVT.Create_Custom_Region_Items ';
80: );
81: END IF;
82: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
83: WHEN NO_DATA_FOUND THEN
84: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
85: IF (x_msg_data IS NOT NULL) THEN
86: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PVT.Create_Custom_Region_Items ';
87: ELSE
88: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PVT.Create_Custom_Region_Items ';
87: ELSE
88: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PVT.Create_Custom_Region_Items ';
89: END IF;
90: WHEN OTHERS THEN
91: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
92: IF (x_msg_data IS NOT NULL) THEN
93: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PVT.Create_Custom_Region_Items ';
94: ELSE
95: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PVT.Create_Custom_Region_Items ';
100: --
101: --
102: PROCEDURE Update_Custom_Region_Items
103: ( p_api_version IN NUMBER
104: , p_commit IN VARCHAR2 := FND_API.G_FALSE
105: , p_Custom_Region_Items_Rec IN BIS_CUSTOMIZATION_PUB.custom_Region_Items_type
106: , x_return_status OUT NOCOPY VARCHAR2
107: , x_msg_count OUT NOCOPY NUMBER
108: , x_msg_data OUT NOCOPY VARCHAR2
111: IS
112: BEGIN
113:
114: FND_MSG_PUB.Initialize;
115: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
116:
117: AK_CUSTOM_REGION_ITEMS_PKG.UPDATE_ROW
118: ( X_CUSTOMIZATION_APPLICATION_ID => p_Custom_Region_Items_Rec.customization_application_id
119: , X_CUSTOMIZATION_CODE => p_Custom_Region_Items_Rec.customization_code
129: , X_LAST_UPDATE_DATE => NVL(p_Custom_Region_Items_Rec.last_update_date,SYSDATE)
130: , X_LAST_UPDATE_LOGIN => NVL(p_Custom_Region_Items_Rec.last_update_login,FND_GLOBAL.LOGIN_ID)
131: );
132:
133: IF (p_commit = FND_API.G_TRUE) THEN
134: COMMIT;
135: END IF;
136:
137:
135: END IF;
136:
137:
138: EXCEPTION
139: WHEN FND_API.G_EXC_ERROR THEN
140: IF (x_msg_data IS NULL) THEN
141: FND_MSG_PUB.Count_And_Get
142: ( p_encoded => FND_API.G_FALSE
143: , p_count => x_msg_count
138: EXCEPTION
139: WHEN FND_API.G_EXC_ERROR THEN
140: IF (x_msg_data IS NULL) THEN
141: FND_MSG_PUB.Count_And_Get
142: ( p_encoded => FND_API.G_FALSE
143: , p_count => x_msg_count
144: , p_data => x_msg_data
145: );
146: END IF;
143: , p_count => x_msg_count
144: , p_data => x_msg_data
145: );
146: END IF;
147: x_return_status := FND_API.G_RET_STS_ERROR;
148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
149: IF (x_msg_data IS NULL) THEN
150: FND_MSG_PUB.Count_And_Get
151: ( p_encoded => FND_API.G_FALSE
144: , p_data => x_msg_data
145: );
146: END IF;
147: x_return_status := FND_API.G_RET_STS_ERROR;
148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
149: IF (x_msg_data IS NULL) THEN
150: FND_MSG_PUB.Count_And_Get
151: ( p_encoded => FND_API.G_FALSE
152: , p_count => x_msg_count
147: x_return_status := FND_API.G_RET_STS_ERROR;
148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
149: IF (x_msg_data IS NULL) THEN
150: FND_MSG_PUB.Count_And_Get
151: ( p_encoded => FND_API.G_FALSE
152: , p_count => x_msg_count
153: , p_data => x_msg_data
154: );
155: END IF;
152: , p_count => x_msg_count
153: , p_data => x_msg_data
154: );
155: END IF;
156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
157: WHEN NO_DATA_FOUND THEN
158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
159: IF (x_msg_data IS NOT NULL) THEN
160: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PVT.Update_Custom_Region_items ';
154: );
155: END IF;
156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
157: WHEN NO_DATA_FOUND THEN
158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
159: IF (x_msg_data IS NOT NULL) THEN
160: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PVT.Update_Custom_Region_items ';
161: ELSE
162: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PVT.Update_Custom_Region_items ';
161: ELSE
162: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PVT.Update_Custom_Region_items ';
163: END IF;
164: WHEN OTHERS THEN
165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
166: IF (x_msg_data IS NOT NULL) THEN
167: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PVT.Update_Custom_Region_items ';
168: ELSE
169: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PVT.Update_Custom_Region_items ';
173: END Update_Custom_Region_Items;
174:
175: PROCEDURE Delete_Custom_Region_Items
176: ( p_api_version IN NUMBER
177: , p_commit IN VARCHAR2 := FND_API.G_FALSE
178: , p_Custom_region_items_Rec IN BIS_CUSTOMIZATION_PUB.custom_region_items_type
179: , x_return_status OUT NOCOPY VARCHAR2
180: , x_msg_count OUT NOCOPY NUMBER
181: , x_msg_data OUT NOCOPY VARCHAR2
181: , x_msg_data OUT NOCOPY VARCHAR2
182: ) IS
183: BEGIN
184: FND_MSG_PUB.Initialize;
185: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
186:
187: AK_CUSTOM_REGION_ITEMS_PKG.Delete_ROW
188: ( X_CUSTOMIZATION_APPLICATION_ID => p_Custom_Region_Items_Rec.customization_application_id
189: , X_CUSTOMIZATION_CODE => p_Custom_Region_Items_Rec.customization_code
193: , X_ATTRIBUTE_CODE => p_Custom_Region_Items_Rec.attribute_code
194: , X_PROPERTY_NAME => p_Custom_Region_Items_Rec.property_name
195: );
196:
197: IF (p_commit = FND_API.G_TRUE) THEN
198: COMMIT;
199: END IF;
200:
201: EXCEPTION
198: COMMIT;
199: END IF;
200:
201: EXCEPTION
202: WHEN FND_API.G_EXC_ERROR THEN
203: IF (x_msg_data IS NULL) THEN
204: FND_MSG_PUB.Count_And_Get
205: ( p_encoded => FND_API.G_FALSE
206: , p_count => x_msg_count
201: EXCEPTION
202: WHEN FND_API.G_EXC_ERROR THEN
203: IF (x_msg_data IS NULL) THEN
204: FND_MSG_PUB.Count_And_Get
205: ( p_encoded => FND_API.G_FALSE
206: , p_count => x_msg_count
207: , p_data => x_msg_data
208: );
209: END IF;
206: , p_count => x_msg_count
207: , p_data => x_msg_data
208: );
209: END IF;
210: x_return_status := FND_API.G_RET_STS_ERROR;
211: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
212: IF (x_msg_data IS NULL) THEN
213: FND_MSG_PUB.Count_And_Get
214: ( p_encoded => FND_API.G_FALSE
207: , p_data => x_msg_data
208: );
209: END IF;
210: x_return_status := FND_API.G_RET_STS_ERROR;
211: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
212: IF (x_msg_data IS NULL) THEN
213: FND_MSG_PUB.Count_And_Get
214: ( p_encoded => FND_API.G_FALSE
215: , p_count => x_msg_count
210: x_return_status := FND_API.G_RET_STS_ERROR;
211: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
212: IF (x_msg_data IS NULL) THEN
213: FND_MSG_PUB.Count_And_Get
214: ( p_encoded => FND_API.G_FALSE
215: , p_count => x_msg_count
216: , p_data => x_msg_data
217: );
218: END IF;
215: , p_count => x_msg_count
216: , p_data => x_msg_data
217: );
218: END IF;
219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
220: WHEN NO_DATA_FOUND THEN
221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
222: IF (x_msg_data IS NOT NULL) THEN
223: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PVT.Delete_Custom_Region_items ';
217: );
218: END IF;
219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
220: WHEN NO_DATA_FOUND THEN
221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
222: IF (x_msg_data IS NOT NULL) THEN
223: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PVT.Delete_Custom_Region_items ';
224: ELSE
225: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PVT.Delete_Custom_Region_items ';
224: ELSE
225: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PVT.Delete_Custom_Region_items ';
226: END IF;
227: WHEN OTHERS THEN
228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
229: IF (x_msg_data IS NOT NULL) THEN
230: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PVT.Delete_Custom_Region_items ';
231: ELSE
232: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PVT.Delete_Custom_Region_items ';
235: END Delete_Custom_Region_Items;
236:
237: PROCEDURE Create_Customizations
238: ( p_api_version IN NUMBER
239: , p_commit IN VARCHAR2 := FND_API.G_FALSE
240: , p_Customizations_Rec IN BIS_CUSTOMIZATION_PUB.customizations_type
241: , x_return_status OUT NOCOPY VARCHAR2
242: , x_msg_count OUT NOCOPY NUMBER
243: , x_msg_data OUT NOCOPY VARCHAR2)
245:
246: l_row_id VARCHAR2(32000);
247: BEGIN
248: FND_MSG_PUB.Initialize;
249: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
250:
251: INSERT INTO ak_customizations (
252: customization_application_id
253: ,customization_code
335: AND T.region_application_id = p_Customizations_Rec.region_application_id
336: AND T.region_code = p_Customizations_Rec.region_code
337: AND T.language = L.language_code);
338:
339: IF (p_commit = FND_API.G_TRUE) THEN
340: COMMIT;
341: END IF;
342:
343: EXCEPTION
340: COMMIT;
341: END IF;
342:
343: EXCEPTION
344: WHEN FND_API.G_EXC_ERROR THEN
345: IF (x_msg_data IS NULL) THEN
346: FND_MSG_PUB.Count_And_Get
347: ( p_encoded => FND_API.G_FALSE
348: , p_count => x_msg_count
343: EXCEPTION
344: WHEN FND_API.G_EXC_ERROR THEN
345: IF (x_msg_data IS NULL) THEN
346: FND_MSG_PUB.Count_And_Get
347: ( p_encoded => FND_API.G_FALSE
348: , p_count => x_msg_count
349: , p_data => x_msg_data
350: );
351: END IF;
349: , p_data => x_msg_data
350: );
351: END IF;
352:
353: x_return_status := FND_API.G_RET_STS_ERROR;
354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
355: IF (x_msg_data IS NULL) THEN
356: FND_MSG_PUB.Count_And_Get
357: ( p_encoded => FND_API.G_FALSE
350: );
351: END IF;
352:
353: x_return_status := FND_API.G_RET_STS_ERROR;
354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
355: IF (x_msg_data IS NULL) THEN
356: FND_MSG_PUB.Count_And_Get
357: ( p_encoded => FND_API.G_FALSE
358: , p_count => x_msg_count
353: x_return_status := FND_API.G_RET_STS_ERROR;
354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
355: IF (x_msg_data IS NULL) THEN
356: FND_MSG_PUB.Count_And_Get
357: ( p_encoded => FND_API.G_FALSE
358: , p_count => x_msg_count
359: , p_data => x_msg_data
360: );
361: END IF;
359: , p_data => x_msg_data
360: );
361: END IF;
362:
363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
364: WHEN NO_DATA_FOUND THEN
365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
366: IF (x_msg_data IS NOT NULL) THEN
367: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Customizations ';
361: END IF;
362:
363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
364: WHEN NO_DATA_FOUND THEN
365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
366: IF (x_msg_data IS NOT NULL) THEN
367: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Customizations ';
368: ELSE
369: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Customizations ';
369: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Customizations ';
370: END IF;
371:
372: WHEN OTHERS THEN
373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
374: IF (x_msg_data IS NOT NULL) THEN
375: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Customizations ';
376: ELSE
377: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Customizations ';
382: --
383:
384: PROCEDURE Update_Customizations
385: ( p_api_version IN NUMBER
386: , p_commit IN VARCHAR2 := FND_API.G_FALSE
387: , p_Customizations_Rec IN BIS_CUSTOMIZATION_PUB.customizations_type
388: , x_return_status OUT NOCOPY VARCHAR2
389: , x_msg_count OUT NOCOPY NUMBER
390: , x_msg_data OUT NOCOPY VARCHAR2
391: )
392: IS
393: BEGIN
394: FND_MSG_PUB.Initialize;
395: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
396:
397: UPDATE ak_customizations SET
398: customization_application_id = p_Customizations_Rec.customization_application_id
399: ,customization_code = p_Customizations_Rec.customization_code
432: AND region_application_id = p_Customizations_Rec.region_application_id
433: AND region_code = p_Customizations_Rec.region_code
434: AND USERENV('LANG') IN (language, source_lang);
435:
436: IF (p_commit = FND_API.G_TRUE) THEN
437: COMMIT;
438: END IF;
439:
440:
438: END IF;
439:
440:
441: EXCEPTION
442: WHEN FND_API.G_EXC_ERROR THEN
443: IF (x_msg_data IS NULL) THEN
444: FND_MSG_PUB.Count_And_Get
445: ( p_encoded => FND_API.G_FALSE
446: , p_count => x_msg_count
441: EXCEPTION
442: WHEN FND_API.G_EXC_ERROR THEN
443: IF (x_msg_data IS NULL) THEN
444: FND_MSG_PUB.Count_And_Get
445: ( p_encoded => FND_API.G_FALSE
446: , p_count => x_msg_count
447: , p_data => x_msg_data
448: );
449: END IF;
446: , p_count => x_msg_count
447: , p_data => x_msg_data
448: );
449: END IF;
450: x_return_status := FND_API.G_RET_STS_ERROR;
451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
452: IF (x_msg_data IS NULL) THEN
453: FND_MSG_PUB.Count_And_Get
454: ( p_encoded => FND_API.G_FALSE
447: , p_data => x_msg_data
448: );
449: END IF;
450: x_return_status := FND_API.G_RET_STS_ERROR;
451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
452: IF (x_msg_data IS NULL) THEN
453: FND_MSG_PUB.Count_And_Get
454: ( p_encoded => FND_API.G_FALSE
455: , p_count => x_msg_count
450: x_return_status := FND_API.G_RET_STS_ERROR;
451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
452: IF (x_msg_data IS NULL) THEN
453: FND_MSG_PUB.Count_And_Get
454: ( p_encoded => FND_API.G_FALSE
455: , p_count => x_msg_count
456: , p_data => x_msg_data
457: );
458: END IF;
455: , p_count => x_msg_count
456: , p_data => x_msg_data
457: );
458: END IF;
459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
460: WHEN NO_DATA_FOUND THEN
461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
462: IF (x_msg_data IS NOT NULL) THEN
463: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Customizations ';
457: );
458: END IF;
459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
460: WHEN NO_DATA_FOUND THEN
461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
462: IF (x_msg_data IS NOT NULL) THEN
463: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Customizations ';
464: ELSE
465: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Customizations ';
464: ELSE
465: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Customizations ';
466: END IF;
467: WHEN OTHERS THEN
468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
469: IF (x_msg_data IS NOT NULL) THEN
470: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Customizations ';
471: ELSE
472: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Customizations ';