47:
48: --
49: --
50: Procedure Load_Dimension_Wrapper
51: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
52: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
53: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
54: , p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
55: , p_Owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
48: --
49: --
50: Procedure Load_Dimension_Wrapper
51: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
52: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
53: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
54: , p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
55: , p_Owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
56: , p_force_mode IN BOOLEAN := FALSE
72: p_Dimension_Short_Name => p_Dimension_Rec.Dimension_Short_Name
73: , p_Dimension_Name => p_Dimension_Rec.Dimension_Name
74: , x_return_status => x_return_status
75: );
76: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
77: BIS_UTILITIES_PVT.Add_Error_Message(
78: p_error_msg_name => 'BIS_DIMENSION_UNIQUENESS_ERROR'
79: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
80: , p_error_proc_name => G_PKG_NAME||'.Create_Dimension'
79: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
80: , p_error_proc_name => G_PKG_NAME||'.Create_Dimension'
81: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
82: );
83: RAISE FND_API.G_EXC_ERROR;
84: END IF;
85:
86: BIS_DIMENSION_PUB.Load_dimension
87: ( p_api_version => 1.0
84: END IF;
85:
86: BIS_DIMENSION_PUB.Load_dimension
87: ( p_api_version => 1.0
88: , p_commit => FND_API.G_FALSE
89: , p_Dimension_Rec => p_Dimension_Rec
90: , p_owner => p_Owner
91: , x_return_status => l_return_status
92: , x_error_Tbl => l_error_Tbl
92: , x_error_Tbl => l_error_Tbl
93: , p_force_mode => p_force_mode
94: );
95:
96: IF((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
97: IF(l_error_Tbl.COUNT > 0) THEN
98: l_msg_data := l_error_Tbl(l_error_Tbl.FIRST).Error_Description;
99: END IF;
100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: IF((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
97: IF(l_error_Tbl.COUNT > 0) THEN
98: l_msg_data := l_error_Tbl(l_error_Tbl.FIRST).Error_Description;
99: END IF;
100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
101: END IF;
102:
103: BIS_DIMENSION_PUB.Load_Dimension_Group
104: ( p_Commit => FND_API.G_FALSE
100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
101: END IF;
102:
103: BIS_DIMENSION_PUB.Load_Dimension_Group
104: ( p_Commit => FND_API.G_FALSE
105: , p_dim_grp_rec => p_Dim_Grp_Rec
106: , x_return_status => l_return_status
107: , x_msg_count => l_msg_count
108: , x_msg_data => l_msg_data
108: , x_msg_data => l_msg_data
109: , p_force_mode => p_force_mode
110: );
111:
112: IF((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
114: END IF;
115:
116: EXCEPTION
109: , p_force_mode => p_force_mode
110: );
111:
112: IF((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
114: END IF;
115:
116: EXCEPTION
117: WHEN FND_API.G_EXC_ERROR THEN
113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
114: END IF;
115:
116: EXCEPTION
117: WHEN FND_API.G_EXC_ERROR THEN
118: x_return_status := FND_API.G_RET_STS_ERROR ;
119: IF(x_msg_data IS NULL) THEN
120: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
121: ,p_count => x_msg_count
114: END IF;
115:
116: EXCEPTION
117: WHEN FND_API.G_EXC_ERROR THEN
118: x_return_status := FND_API.G_RET_STS_ERROR ;
119: IF(x_msg_data IS NULL) THEN
120: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
121: ,p_count => x_msg_count
122: ,p_data => x_msg_data);
121: ,p_count => x_msg_count
122: ,p_data => x_msg_data);
123: END IF;
124: RAISE;
125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
127: IF(x_msg_data IS NULL) THEN
128: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
129: ,p_count => x_msg_count
122: ,p_data => x_msg_data);
123: END IF;
124: RAISE;
125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
127: IF(x_msg_data IS NULL) THEN
128: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
129: ,p_count => x_msg_count
130: ,p_data => x_msg_data);
130: ,p_data => x_msg_data);
131: END IF;
132: RAISE;
133: WHEN OTHERS THEN
134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
135: IF(x_msg_data IS NULL) THEN
136: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
137: ,p_count => x_msg_count
138: ,p_data => x_msg_data);
141: END Load_Dimension_Wrapper;
142: --
143:
144: Procedure Translate_Dimension_Wrapper
145: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
146: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
147: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
148: , p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
149: , p_Owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
142: --
143:
144: Procedure Translate_Dimension_Wrapper
145: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
146: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
147: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
148: , p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
149: , p_Owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
150: , x_return_status OUT NOCOPY VARCHAR2
159: BEGIN
160:
161: BIS_DIMENSION_PUB.Translate_dimension
162: ( p_api_version => 1.0
163: , p_commit => FND_API.G_FALSE
164: , p_Dimension_Rec => p_Dimension_Rec
165: , p_owner => p_Owner
166: , x_return_status => l_return_status
167: , x_error_Tbl => l_error_Tbl
166: , x_return_status => l_return_status
167: , x_error_Tbl => l_error_Tbl
168: );
169:
170: IF((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
171: IF(l_error_Tbl.COUNT > 0) THEN
172: l_msg_data := l_error_Tbl(l_error_Tbl.FIRST).Error_Description;
173: END IF;
174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
170: IF((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
171: IF(l_error_Tbl.COUNT > 0) THEN
172: l_msg_data := l_error_Tbl(l_error_Tbl.FIRST).Error_Description;
173: END IF;
174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
175: END IF;
176:
177: BSC_DIMENSION_GROUPS_PUB.Translate_Dimension_Group
178: ( p_commit => FND_API.G_FALSE
174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
175: END IF;
176:
177: BSC_DIMENSION_GROUPS_PUB.Translate_Dimension_Group
178: ( p_commit => FND_API.G_FALSE
179: , p_Dim_Grp_Rec => p_Dim_Grp_Rec
180: , x_return_status => l_return_status
181: , x_msg_count => l_msg_count
182: , x_msg_data => l_msg_data
181: , x_msg_count => l_msg_count
182: , x_msg_data => l_msg_data
183: );
184:
185: IF((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
187: END IF;
188:
189: EXCEPTION
182: , x_msg_data => l_msg_data
183: );
184:
185: IF((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
187: END IF;
188:
189: EXCEPTION
190: WHEN FND_API.G_EXC_ERROR THEN
186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
187: END IF;
188:
189: EXCEPTION
190: WHEN FND_API.G_EXC_ERROR THEN
191: x_return_status := FND_API.G_RET_STS_ERROR ;
192: IF(x_msg_data IS NULL) THEN
193: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
194: ,p_count => x_msg_count
187: END IF;
188:
189: EXCEPTION
190: WHEN FND_API.G_EXC_ERROR THEN
191: x_return_status := FND_API.G_RET_STS_ERROR ;
192: IF(x_msg_data IS NULL) THEN
193: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
194: ,p_count => x_msg_count
195: ,p_data => x_msg_data);
194: ,p_count => x_msg_count
195: ,p_data => x_msg_data);
196: END IF;
197: RAISE;
198: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
200: IF(x_msg_data IS NULL) THEN
201: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
202: ,p_count => x_msg_count
195: ,p_data => x_msg_data);
196: END IF;
197: RAISE;
198: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
200: IF(x_msg_data IS NULL) THEN
201: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
202: ,p_count => x_msg_count
203: ,p_data => x_msg_data);
203: ,p_data => x_msg_data);
204: END IF;
205: RAISE;
206: WHEN OTHERS THEN
207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
208: IF(x_msg_data IS NULL) THEN
209: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
210: ,p_count => x_msg_count
211: ,p_data => x_msg_data);
231: );
232:
233: EXCEPTION
234: WHEN NO_DATA_FOUND THEN
235: x_return_status := FND_API.G_RET_STS_ERROR ;
236: when FND_API.G_EXC_ERROR then
237: x_return_status := FND_API.G_RET_STS_ERROR ;
238: when FND_API.G_EXC_UNEXPECTED_ERROR then
239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
232:
233: EXCEPTION
234: WHEN NO_DATA_FOUND THEN
235: x_return_status := FND_API.G_RET_STS_ERROR ;
236: when FND_API.G_EXC_ERROR then
237: x_return_status := FND_API.G_RET_STS_ERROR ;
238: when FND_API.G_EXC_UNEXPECTED_ERROR then
239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
240: when others then
233: EXCEPTION
234: WHEN NO_DATA_FOUND THEN
235: x_return_status := FND_API.G_RET_STS_ERROR ;
236: when FND_API.G_EXC_ERROR then
237: x_return_status := FND_API.G_RET_STS_ERROR ;
238: when FND_API.G_EXC_UNEXPECTED_ERROR then
239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
240: when others then
241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
234: WHEN NO_DATA_FOUND THEN
235: x_return_status := FND_API.G_RET_STS_ERROR ;
236: when FND_API.G_EXC_ERROR then
237: x_return_status := FND_API.G_RET_STS_ERROR ;
238: when FND_API.G_EXC_UNEXPECTED_ERROR then
239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
240: when others then
241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
242: l_error_tbl := x_error_Tbl;
235: x_return_status := FND_API.G_RET_STS_ERROR ;
236: when FND_API.G_EXC_ERROR then
237: x_return_status := FND_API.G_RET_STS_ERROR ;
238: when FND_API.G_EXC_UNEXPECTED_ERROR then
239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
240: when others then
241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
242: l_error_tbl := x_error_Tbl;
243: BIS_UTILITIES_PVT.Add_Error_Message
237: x_return_status := FND_API.G_RET_STS_ERROR ;
238: when FND_API.G_EXC_UNEXPECTED_ERROR then
239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
240: when others then
241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
242: l_error_tbl := x_error_Tbl;
243: BIS_UTILITIES_PVT.Add_Error_Message
244: ( p_error_msg_id => SQLCODE
245: , p_error_description => SQLERRM
269: , x_return_status => x_return_status
270: , x_error_Tbl => x_error_tbl
271: );
272:
273: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
274: --Added last two parameters
275: l_error_tbl := x_error_Tbl;
276: BIS_UTILITIES_PVT.Add_Error_Message (
277: p_error_msg_name => 'BIS_INVALID_DIMENSION_VALUE'
280: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
281: , p_error_table => l_error_tbl
282: , x_error_table => x_error_tbl
283: );
284: RAISE FND_API.G_EXC_ERROR;
285: end if;
286:
287: BIS_DIMENSION_PVT.Retrieve_Dimension
288: ( p_api_version => 1.0
294:
295:
296: EXCEPTION
297: WHEN NO_DATA_FOUND THEN
298: x_return_status := FND_API.G_RET_STS_ERROR ;
299: when FND_API.G_EXC_ERROR then
300: x_return_status := FND_API.G_RET_STS_ERROR ;
301: when FND_API.G_EXC_UNEXPECTED_ERROR then
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
295:
296: EXCEPTION
297: WHEN NO_DATA_FOUND THEN
298: x_return_status := FND_API.G_RET_STS_ERROR ;
299: when FND_API.G_EXC_ERROR then
300: x_return_status := FND_API.G_RET_STS_ERROR ;
301: when FND_API.G_EXC_UNEXPECTED_ERROR then
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
303: when others then
296: EXCEPTION
297: WHEN NO_DATA_FOUND THEN
298: x_return_status := FND_API.G_RET_STS_ERROR ;
299: when FND_API.G_EXC_ERROR then
300: x_return_status := FND_API.G_RET_STS_ERROR ;
301: when FND_API.G_EXC_UNEXPECTED_ERROR then
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
303: when others then
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
297: WHEN NO_DATA_FOUND THEN
298: x_return_status := FND_API.G_RET_STS_ERROR ;
299: when FND_API.G_EXC_ERROR then
300: x_return_status := FND_API.G_RET_STS_ERROR ;
301: when FND_API.G_EXC_UNEXPECTED_ERROR then
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
303: when others then
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
305: l_error_tbl := x_error_tbl;
298: x_return_status := FND_API.G_RET_STS_ERROR ;
299: when FND_API.G_EXC_ERROR then
300: x_return_status := FND_API.G_RET_STS_ERROR ;
301: when FND_API.G_EXC_UNEXPECTED_ERROR then
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
303: when others then
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
305: l_error_tbl := x_error_tbl;
306: BIS_UTILITIES_PVT.Add_Error_Message(
300: x_return_status := FND_API.G_RET_STS_ERROR ;
301: when FND_API.G_EXC_UNEXPECTED_ERROR then
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
303: when others then
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
305: l_error_tbl := x_error_tbl;
306: BIS_UTILITIES_PVT.Add_Error_Message(
307: p_error_msg_id => SQLCODE
308: , p_error_description => SQLERRM
337: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
338: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Required_Dimension'
339: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
340: );
341: RAISE FND_API.G_EXC_ERROR;
342: end if;
343:
344: BIS_DIMENSION_PUB.Retrieve_Dimension
345: ( p_api_version => 1.0
351:
352:
353: EXCEPTION
354: WHEN NO_DATA_FOUND THEN
355: x_return_status := FND_API.G_RET_STS_ERROR ;
356: when FND_API.G_EXC_ERROR then
357: x_return_status := FND_API.G_RET_STS_ERROR ;
358: when FND_API.G_EXC_UNEXPECTED_ERROR then
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
352:
353: EXCEPTION
354: WHEN NO_DATA_FOUND THEN
355: x_return_status := FND_API.G_RET_STS_ERROR ;
356: when FND_API.G_EXC_ERROR then
357: x_return_status := FND_API.G_RET_STS_ERROR ;
358: when FND_API.G_EXC_UNEXPECTED_ERROR then
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
360: when others then
353: EXCEPTION
354: WHEN NO_DATA_FOUND THEN
355: x_return_status := FND_API.G_RET_STS_ERROR ;
356: when FND_API.G_EXC_ERROR then
357: x_return_status := FND_API.G_RET_STS_ERROR ;
358: when FND_API.G_EXC_UNEXPECTED_ERROR then
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
360: when others then
361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
354: WHEN NO_DATA_FOUND THEN
355: x_return_status := FND_API.G_RET_STS_ERROR ;
356: when FND_API.G_EXC_ERROR then
357: x_return_status := FND_API.G_RET_STS_ERROR ;
358: when FND_API.G_EXC_UNEXPECTED_ERROR then
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
360: when others then
361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
362: l_error_tbl := x_error_tbl;
355: x_return_status := FND_API.G_RET_STS_ERROR ;
356: when FND_API.G_EXC_ERROR then
357: x_return_status := FND_API.G_RET_STS_ERROR ;
358: when FND_API.G_EXC_UNEXPECTED_ERROR then
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
360: when others then
361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
362: l_error_tbl := x_error_tbl;
363: BIS_UTILITIES_PVT.Add_Error_Message
357: x_return_status := FND_API.G_RET_STS_ERROR ;
358: when FND_API.G_EXC_UNEXPECTED_ERROR then
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
360: when others then
361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
362: l_error_tbl := x_error_tbl;
363: BIS_UTILITIES_PVT.Add_Error_Message
364: ( p_error_msg_id => SQLCODE
365: , p_error_description => SQLERRM
372: --
373: --
374: Procedure Translate_Dimension
375: ( p_api_version IN NUMBER
376: , p_commit IN VARCHAR2 := FND_API.G_FALSE
377: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
378: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
379: , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
380: , x_return_status OUT NOCOPY VARCHAR2
373: --
374: Procedure Translate_Dimension
375: ( p_api_version IN NUMBER
376: , p_commit IN VARCHAR2 := FND_API.G_FALSE
377: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
378: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
379: , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
380: , x_return_status OUT NOCOPY VARCHAR2
381: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
401: , x_return_status => x_return_status
402: , x_error_Tbl => x_error_tbl
403: );
404:
405: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
406: BIS_UTILITIES_PVT.Add_Error_Message
407: ( p_error_msg_name => 'BIS_INVALID_DIMENSION_VALUE'
408: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
409: , p_error_proc_name => G_PKG_NAME||'.Translate_Dimension'
408: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
409: , p_error_proc_name => G_PKG_NAME||'.Translate_Dimension'
410: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
411: );
412: RAISE FND_API.G_EXC_ERROR;
413: end if;
414:
415: l_Dimension_Rec.Last_Update_Date := NVL(p_Dimension_Rec.Last_Update_Date, SYSDATE);
416: BIS_DIMENSION_PVT.Translate_Dimension
424: );
425:
426: EXCEPTION
427: WHEN NO_DATA_FOUND THEN
428: x_return_status := FND_API.G_RET_STS_ERROR ;
429: when FND_API.G_EXC_ERROR then
430: x_return_status := FND_API.G_RET_STS_ERROR ;
431: when FND_API.G_EXC_UNEXPECTED_ERROR then
432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
425:
426: EXCEPTION
427: WHEN NO_DATA_FOUND THEN
428: x_return_status := FND_API.G_RET_STS_ERROR ;
429: when FND_API.G_EXC_ERROR then
430: x_return_status := FND_API.G_RET_STS_ERROR ;
431: when FND_API.G_EXC_UNEXPECTED_ERROR then
432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
433: when others then
426: EXCEPTION
427: WHEN NO_DATA_FOUND THEN
428: x_return_status := FND_API.G_RET_STS_ERROR ;
429: when FND_API.G_EXC_ERROR then
430: x_return_status := FND_API.G_RET_STS_ERROR ;
431: when FND_API.G_EXC_UNEXPECTED_ERROR then
432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
433: when others then
434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
427: WHEN NO_DATA_FOUND THEN
428: x_return_status := FND_API.G_RET_STS_ERROR ;
429: when FND_API.G_EXC_ERROR then
430: x_return_status := FND_API.G_RET_STS_ERROR ;
431: when FND_API.G_EXC_UNEXPECTED_ERROR then
432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
433: when others then
434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
435: l_error_tbl := x_error_tbl;
428: x_return_status := FND_API.G_RET_STS_ERROR ;
429: when FND_API.G_EXC_ERROR then
430: x_return_status := FND_API.G_RET_STS_ERROR ;
431: when FND_API.G_EXC_UNEXPECTED_ERROR then
432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
433: when others then
434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
435: l_error_tbl := x_error_tbl;
436: BIS_UTILITIES_PVT.Add_Error_Message
430: x_return_status := FND_API.G_RET_STS_ERROR ;
431: when FND_API.G_EXC_UNEXPECTED_ERROR then
432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
433: when others then
434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
435: l_error_tbl := x_error_tbl;
436: BIS_UTILITIES_PVT.Add_Error_Message
437: ( p_error_msg_id => SQLCODE
438: , p_error_description => SQLERRM
444: END Translate_Dimension ;
445: --
446: Procedure Load_Dimension
447: ( p_api_version IN NUMBER
448: , p_commit IN VARCHAR2 := FND_API.G_FALSE
449: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
450: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
451: , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
452: , x_return_status OUT NOCOPY VARCHAR2
445: --
446: Procedure Load_Dimension
447: ( p_api_version IN NUMBER
448: , p_commit IN VARCHAR2 := FND_API.G_FALSE
449: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
450: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
451: , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
452: , x_return_status OUT NOCOPY VARCHAR2
453: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
527:
528:
529: EXCEPTION
530: WHEN NO_DATA_FOUND THEN
531: x_return_status := FND_API.G_RET_STS_ERROR ;
532: when FND_API.G_EXC_ERROR then
533: x_return_status := FND_API.G_RET_STS_ERROR ;
534: when FND_API.G_EXC_UNEXPECTED_ERROR then
535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
528:
529: EXCEPTION
530: WHEN NO_DATA_FOUND THEN
531: x_return_status := FND_API.G_RET_STS_ERROR ;
532: when FND_API.G_EXC_ERROR then
533: x_return_status := FND_API.G_RET_STS_ERROR ;
534: when FND_API.G_EXC_UNEXPECTED_ERROR then
535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
536: when others then
529: EXCEPTION
530: WHEN NO_DATA_FOUND THEN
531: x_return_status := FND_API.G_RET_STS_ERROR ;
532: when FND_API.G_EXC_ERROR then
533: x_return_status := FND_API.G_RET_STS_ERROR ;
534: when FND_API.G_EXC_UNEXPECTED_ERROR then
535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
536: when others then
537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
530: WHEN NO_DATA_FOUND THEN
531: x_return_status := FND_API.G_RET_STS_ERROR ;
532: when FND_API.G_EXC_ERROR then
533: x_return_status := FND_API.G_RET_STS_ERROR ;
534: when FND_API.G_EXC_UNEXPECTED_ERROR then
535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
536: when others then
537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
538: l_error_tbl := x_error_Tbl;
531: x_return_status := FND_API.G_RET_STS_ERROR ;
532: when FND_API.G_EXC_ERROR then
533: x_return_status := FND_API.G_RET_STS_ERROR ;
534: when FND_API.G_EXC_UNEXPECTED_ERROR then
535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
536: when others then
537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
538: l_error_tbl := x_error_Tbl;
539: BIS_UTILITIES_PVT.Add_Error_Message
533: x_return_status := FND_API.G_RET_STS_ERROR ;
534: when FND_API.G_EXC_UNEXPECTED_ERROR then
535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
536: when others then
537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
538: l_error_tbl := x_error_Tbl;
539: BIS_UTILITIES_PVT.Add_Error_Message
540: ( p_error_msg_id => SQLCODE
541: , p_error_description => SQLERRM
547: END Load_Dimension ;
548: --
549: PROCEDURE Update_Dimension
550: ( p_api_version IN NUMBER
551: , p_commit IN VARCHAR2 := FND_API.G_FALSE
552: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
553: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
554: , x_return_status OUT NOCOPY VARCHAR2
555: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
548: --
549: PROCEDURE Update_Dimension
550: ( p_api_version IN NUMBER
551: , p_commit IN VARCHAR2 := FND_API.G_FALSE
552: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
553: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
554: , x_return_status OUT NOCOPY VARCHAR2
555: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
556: )
567: , x_error_Tbl => x_error_Tbl
568: );
569: EXCEPTION
570: WHEN NO_DATA_FOUND THEN
571: x_return_status := FND_API.G_RET_STS_ERROR ;
572: WHEN FND_API.G_EXC_ERROR THEN
573: x_return_status := FND_API.G_RET_STS_ERROR ;
574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
568: );
569: EXCEPTION
570: WHEN NO_DATA_FOUND THEN
571: x_return_status := FND_API.G_RET_STS_ERROR ;
572: WHEN FND_API.G_EXC_ERROR THEN
573: x_return_status := FND_API.G_RET_STS_ERROR ;
574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
576: WHEN OTHERS THEN
569: EXCEPTION
570: WHEN NO_DATA_FOUND THEN
571: x_return_status := FND_API.G_RET_STS_ERROR ;
572: WHEN FND_API.G_EXC_ERROR THEN
573: x_return_status := FND_API.G_RET_STS_ERROR ;
574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
576: WHEN OTHERS THEN
577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
570: WHEN NO_DATA_FOUND THEN
571: x_return_status := FND_API.G_RET_STS_ERROR ;
572: WHEN FND_API.G_EXC_ERROR THEN
573: x_return_status := FND_API.G_RET_STS_ERROR ;
574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
576: WHEN OTHERS THEN
577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
578: l_error_tbl := x_error_tbl;
571: x_return_status := FND_API.G_RET_STS_ERROR ;
572: WHEN FND_API.G_EXC_ERROR THEN
573: x_return_status := FND_API.G_RET_STS_ERROR ;
574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
576: WHEN OTHERS THEN
577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
578: l_error_tbl := x_error_tbl;
579: BIS_UTILITIES_PVT.Add_Error_Message
573: x_return_status := FND_API.G_RET_STS_ERROR ;
574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
576: WHEN OTHERS THEN
577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
578: l_error_tbl := x_error_tbl;
579: BIS_UTILITIES_PVT.Add_Error_Message
580: ( p_error_msg_id => SQLCODE
581: , p_error_description => SQLERRM
587: END Update_Dimension;
588: --
589: PROCEDURE Delete_Dimension
590: (
591: p_commit IN VARCHAR2 := FND_API.G_FALSE
592: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
593: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
594: , x_return_status OUT NOCOPY VARCHAR2
595: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
588: --
589: PROCEDURE Delete_Dimension
590: (
591: p_commit IN VARCHAR2 := FND_API.G_FALSE
592: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
593: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
594: , x_return_status OUT NOCOPY VARCHAR2
595: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
596: )
605: , x_return_status => x_return_status
606: , x_error_Tbl => x_error_Tbl
607: );
608: EXCEPTION
609: WHEN FND_API.G_EXC_ERROR THEN
610: x_return_status := FND_API.G_RET_STS_ERROR ;
611: WHEN OTHERS THEN
612: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
613: l_error_tbl := x_error_tbl;
606: , x_error_Tbl => x_error_Tbl
607: );
608: EXCEPTION
609: WHEN FND_API.G_EXC_ERROR THEN
610: x_return_status := FND_API.G_RET_STS_ERROR ;
611: WHEN OTHERS THEN
612: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
613: l_error_tbl := x_error_tbl;
614: BIS_UTILITIES_PVT.Add_Error_Message
608: EXCEPTION
609: WHEN FND_API.G_EXC_ERROR THEN
610: x_return_status := FND_API.G_RET_STS_ERROR ;
611: WHEN OTHERS THEN
612: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
613: l_error_tbl := x_error_tbl;
614: BIS_UTILITIES_PVT.Add_Error_Message
615: ( p_error_msg_id => SQLCODE
616: , p_error_description => SQLERRM
624:
625: PROCEDURE Create_Dimension
626: (
627: p_api_version IN NUMBER
628: , p_commit IN VARCHAR2 := FND_API.G_FALSE
629: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
630: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
631: , x_return_status OUT NOCOPY VARCHAR2
632: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
625: PROCEDURE Create_Dimension
626: (
627: p_api_version IN NUMBER
628: , p_commit IN VARCHAR2 := FND_API.G_FALSE
629: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
630: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
631: , x_return_status OUT NOCOPY VARCHAR2
632: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
633: )
644: , x_error_Tbl => x_error_Tbl
645: );
646: EXCEPTION
647: WHEN NO_DATA_FOUND THEN
648: x_return_status := FND_API.G_RET_STS_ERROR ;
649: WHEN FND_API.G_EXC_ERROR THEN
650: x_return_status := FND_API.G_RET_STS_ERROR ;
651: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
645: );
646: EXCEPTION
647: WHEN NO_DATA_FOUND THEN
648: x_return_status := FND_API.G_RET_STS_ERROR ;
649: WHEN FND_API.G_EXC_ERROR THEN
650: x_return_status := FND_API.G_RET_STS_ERROR ;
651: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
653: WHEN OTHERS THEN
646: EXCEPTION
647: WHEN NO_DATA_FOUND THEN
648: x_return_status := FND_API.G_RET_STS_ERROR ;
649: WHEN FND_API.G_EXC_ERROR THEN
650: x_return_status := FND_API.G_RET_STS_ERROR ;
651: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
653: WHEN OTHERS THEN
654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
647: WHEN NO_DATA_FOUND THEN
648: x_return_status := FND_API.G_RET_STS_ERROR ;
649: WHEN FND_API.G_EXC_ERROR THEN
650: x_return_status := FND_API.G_RET_STS_ERROR ;
651: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
653: WHEN OTHERS THEN
654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
655: l_error_tbl := x_error_tbl;
648: x_return_status := FND_API.G_RET_STS_ERROR ;
649: WHEN FND_API.G_EXC_ERROR THEN
650: x_return_status := FND_API.G_RET_STS_ERROR ;
651: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
653: WHEN OTHERS THEN
654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
655: l_error_tbl := x_error_tbl;
656: BIS_UTILITIES_PVT.Add_Error_Message
650: x_return_status := FND_API.G_RET_STS_ERROR ;
651: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
653: WHEN OTHERS THEN
654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
655: l_error_tbl := x_error_tbl;
656: BIS_UTILITIES_PVT.Add_Error_Message
657: ( p_error_msg_id => SQLCODE
658: , p_error_description => SQLERRM
665: /*
666: * Used for "All" enhancement from BISDIMLV.lct
667: */
668: PROCEDURE Load_Dimension_Group (
669: p_Commit IN VARCHAR2 := FND_API.G_FALSE
670: ,p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
671: ,x_return_status OUT NOCOPY VARCHAR2
672: ,x_msg_count OUT NOCOPY NUMBER
673: ,x_msg_data OUT NOCOPY VARCHAR2
686: l_Bsc_Dim_Group_Rec.Bsc_Last_Updated_By := p_Dim_Grp_Rec.Bsc_Last_Updated_By;
687: l_Bsc_Dim_Group_Rec.Bsc_Last_Update_Date := NVL(p_Dim_Grp_Rec.Bsc_Last_Update_Date, SYSDATE);
688:
689: BSC_DIMENSION_GROUPS_PUB.load_dimension_group (
690: p_commit => FND_API.G_TRUE
691: ,p_Dim_Grp_Rec => l_Bsc_Dim_Group_Rec
692: ,x_return_status => x_return_status
693: ,x_msg_count => x_msg_count
694: ,x_msg_data => x_msg_data
710: END IF;
711:
712: EXCEPTION
713: WHEN NO_DATA_FOUND THEN
714: x_return_status := FND_API.G_RET_STS_ERROR ;
715: WHEN FND_API.G_EXC_ERROR THEN
716: x_return_status := FND_API.G_RET_STS_ERROR ;
717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
711:
712: EXCEPTION
713: WHEN NO_DATA_FOUND THEN
714: x_return_status := FND_API.G_RET_STS_ERROR ;
715: WHEN FND_API.G_EXC_ERROR THEN
716: x_return_status := FND_API.G_RET_STS_ERROR ;
717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
719: WHEN OTHERS THEN
712: EXCEPTION
713: WHEN NO_DATA_FOUND THEN
714: x_return_status := FND_API.G_RET_STS_ERROR ;
715: WHEN FND_API.G_EXC_ERROR THEN
716: x_return_status := FND_API.G_RET_STS_ERROR ;
717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
719: WHEN OTHERS THEN
720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
713: WHEN NO_DATA_FOUND THEN
714: x_return_status := FND_API.G_RET_STS_ERROR ;
715: WHEN FND_API.G_EXC_ERROR THEN
716: x_return_status := FND_API.G_RET_STS_ERROR ;
717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
719: WHEN OTHERS THEN
720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
721: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
714: x_return_status := FND_API.G_RET_STS_ERROR ;
715: WHEN FND_API.G_EXC_ERROR THEN
716: x_return_status := FND_API.G_RET_STS_ERROR ;
717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
719: WHEN OTHERS THEN
720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
721: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
722: ,p_data => x_msg_data);
716: x_return_status := FND_API.G_RET_STS_ERROR ;
717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
719: WHEN OTHERS THEN
720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
721: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
722: ,p_data => x_msg_data);
723: END;
724:
725: --=============================================================================
726:
727: PROCEDURE Translate_Dim_By_Given_Lang
728: (
729: p_commit IN VARCHAR2 := FND_API.G_FALSE
730: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
731: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
732: , x_return_status OUT NOCOPY VARCHAR2
733: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
726:
727: PROCEDURE Translate_Dim_By_Given_Lang
728: (
729: p_commit IN VARCHAR2 := FND_API.G_FALSE
730: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
731: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
732: , x_return_status OUT NOCOPY VARCHAR2
733: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
734: ) IS
744: );
745:
746: EXCEPTION
747: WHEN NO_DATA_FOUND THEN
748: x_return_status := FND_API.G_RET_STS_ERROR ;
749: WHEN FND_API.G_EXC_ERROR THEN
750: x_return_status := FND_API.G_RET_STS_ERROR ;
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
745:
746: EXCEPTION
747: WHEN NO_DATA_FOUND THEN
748: x_return_status := FND_API.G_RET_STS_ERROR ;
749: WHEN FND_API.G_EXC_ERROR THEN
750: x_return_status := FND_API.G_RET_STS_ERROR ;
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
753: WHEN OTHERS THEN
746: EXCEPTION
747: WHEN NO_DATA_FOUND THEN
748: x_return_status := FND_API.G_RET_STS_ERROR ;
749: WHEN FND_API.G_EXC_ERROR THEN
750: x_return_status := FND_API.G_RET_STS_ERROR ;
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
753: WHEN OTHERS THEN
754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
747: WHEN NO_DATA_FOUND THEN
748: x_return_status := FND_API.G_RET_STS_ERROR ;
749: WHEN FND_API.G_EXC_ERROR THEN
750: x_return_status := FND_API.G_RET_STS_ERROR ;
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
753: WHEN OTHERS THEN
754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
755: l_error_tbl := x_error_tbl;
748: x_return_status := FND_API.G_RET_STS_ERROR ;
749: WHEN FND_API.G_EXC_ERROR THEN
750: x_return_status := FND_API.G_RET_STS_ERROR ;
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
753: WHEN OTHERS THEN
754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
755: l_error_tbl := x_error_tbl;
756: BIS_UTILITIES_PVT.Add_Error_Message
750: x_return_status := FND_API.G_RET_STS_ERROR ;
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
753: WHEN OTHERS THEN
754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
755: l_error_tbl := x_error_tbl;
756: BIS_UTILITIES_PVT.Add_Error_Message
757: ( p_error_msg_id => SQLCODE
758: , p_error_description => SQLERRM
762: );
763: END Translate_Dim_By_Given_Lang;
764:
765: PROCEDURE Update_Dimension_Obsolete_Flag (
766: p_commit IN VARCHAR2 := FND_API.G_FALSE,
767: p_dim_short_name IN VARCHAR2,
768: p_hide IN VARCHAR2,
769: x_return_status OUT nocopy VARCHAR2,
770: x_Msg_Count OUT NOCOPY NUMBER,
796: SAVEPOINT DimObsoleteUpdate;
797: IF (p_dim_short_name IS NULL OR p_dim_short_name = '') THEN
798: FND_MESSAGE.SET_NAME('BIS','BIS_PMF_INVALID_DIMENSION_VALUE');
799: FND_MSG_PUB.ADD;
800: RAISE FND_API.G_EXC_ERROR;
801: END IF;
802:
803: IF (p_hide IS NULL OR (p_hide <> FND_API.G_TRUE AND p_hide <> FND_API.G_FALSE)) THEN
804: FND_MESSAGE.SET_NAME('BIS','BIS_PMF_INVALID_OBSOLETE_FLAG');
799: FND_MSG_PUB.ADD;
800: RAISE FND_API.G_EXC_ERROR;
801: END IF;
802:
803: IF (p_hide IS NULL OR (p_hide <> FND_API.G_TRUE AND p_hide <> FND_API.G_FALSE)) THEN
804: FND_MESSAGE.SET_NAME('BIS','BIS_PMF_INVALID_OBSOLETE_FLAG');
805: FND_MSG_PUB.ADD;
806: RAISE FND_API.G_EXC_ERROR;
807: END IF;
802:
803: IF (p_hide IS NULL OR (p_hide <> FND_API.G_TRUE AND p_hide <> FND_API.G_FALSE)) THEN
804: FND_MESSAGE.SET_NAME('BIS','BIS_PMF_INVALID_OBSOLETE_FLAG');
805: FND_MSG_PUB.ADD;
806: RAISE FND_API.G_EXC_ERROR;
807: END IF;
808:
809: FOR cr in cr_dim_obj LOOP
810: -- Hide or Unhide all the dimension objects that are attached only to this dimension(Cascade the obsoletion)
814: , x_return_status => x_return_status
815: , x_Msg_Count => x_Msg_Count
816: , x_msg_data => x_msg_data
817: );
818: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
819: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
820: END IF;
821: END LOOP;
822:
815: , x_Msg_Count => x_Msg_Count
816: , x_msg_data => x_msg_data
817: );
818: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
819: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
820: END IF;
821: END LOOP;
822:
823: l_dim_rec.Dimension_Short_Name := p_dim_short_name;
838: , x_return_status => x_return_status
839: , x_error_Tbl => l_error_tbl
840: );
841:
842: IF(p_Commit = FND_API.G_TRUE) THEN
843: COMMIT;
844: END IF;
845:
846: x_return_status := FND_API.G_RET_STS_SUCCESS;
842: IF(p_Commit = FND_API.G_TRUE) THEN
843: COMMIT;
844: END IF;
845:
846: x_return_status := FND_API.G_RET_STS_SUCCESS;
847: RETURN;
848:
849: EXCEPTION
850: WHEN FND_API.G_EXC_ERROR THEN
846: x_return_status := FND_API.G_RET_STS_SUCCESS;
847: RETURN;
848:
849: EXCEPTION
850: WHEN FND_API.G_EXC_ERROR THEN
851: IF (x_msg_data IS NULL) THEN
852: FND_MSG_PUB.Count_And_Get
853: ( p_encoded => FND_API.G_FALSE
854: , p_count => x_msg_count
849: EXCEPTION
850: WHEN FND_API.G_EXC_ERROR THEN
851: IF (x_msg_data IS NULL) THEN
852: FND_MSG_PUB.Count_And_Get
853: ( p_encoded => FND_API.G_FALSE
854: , p_count => x_msg_count
855: , p_data => x_msg_data
856: );
857: END IF;
854: , p_count => x_msg_count
855: , p_data => x_msg_data
856: );
857: END IF;
858: x_Return_Status := FND_API.G_RET_STS_ERROR;
859: WHEN OTHERS THEN
860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
861: ROLLBACK TO DimObsoleteUpdate;
862: IF (x_msg_data IS NOT NULL) THEN
856: );
857: END IF;
858: x_Return_Status := FND_API.G_RET_STS_ERROR;
859: WHEN OTHERS THEN
860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
861: ROLLBACK TO DimObsoleteUpdate;
862: IF (x_msg_data IS NOT NULL) THEN
863: x_msg_data := x_msg_data||' -> BIS_DIMENSION_PUB.Update_Dimension_Obsolete_Flag ';
864: ELSE