61: --
62: G_PKG_NAME CONSTANT VARCHAR2(30):='BIS_DIMENSION_LEVEL_PUB';
63: --
64: PROCEDURE load_dim_levels_in_group(
65: p_commit IN VARCHAR2 := FND_API.G_FALSE
66: ,p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
67: ,p_Bsc_Pmf_Dim_Rec IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Dim_Rec_Type
68: ,x_return_status OUT NOCOPY VARCHAR2
69: ,x_msg_count OUT NOCOPY NUMBER
72:
73: --=======================================================================
74:
75: PROCEDURE load_dim_levels(
76: p_commit IN VARCHAR2 := FND_API.G_FALSE
77: ,p_bsc_pmf_dim_rec IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Dim_Rec_Type
78: ,p_Bsc_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
79: ,x_return_status OUT NOCOPY VARCHAR2
80: ,x_msg_count OUT NOCOPY NUMBER
83:
84: --
85:
86: Procedure Load_Dimension_Level_Wrapper
87: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
88: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
89: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
90: , p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
91: , p_Bsc_Pmf_Dim_Rec IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Dim_Rec_Type
84: --
85:
86: Procedure Load_Dimension_Level_Wrapper
87: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
88: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
89: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
90: , p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
91: , p_Bsc_Pmf_Dim_Rec IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Dim_Rec_Type
92: , p_Bsc_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
104: BEGIN
105:
106: BIS_DIMENSION_LEVEL_PUB.Load_Dimension_Level
107: ( p_api_version => 1.0
108: , p_commit => FND_API.G_FALSE
109: , p_Dimension_Level_Rec => p_Dimension_Level_Rec
110: , p_owner => p_Owner
111: , x_return_status => l_return_status
112: , x_error_Tbl => l_error_Tbl
112: , x_error_Tbl => l_error_Tbl
113: , p_force_mode => p_force_mode
114: );
115:
116: IF((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
117: IF(l_error_Tbl.COUNT > 0) THEN
118: l_msg_data := l_error_Tbl(l_error_Tbl.FIRST).Error_Description;
119: END IF;
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
116: IF((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
117: IF(l_error_Tbl.COUNT > 0) THEN
118: l_msg_data := l_error_Tbl(l_error_Tbl.FIRST).Error_Description;
119: END IF;
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: END IF;
122:
123: BIS_DIMENSION_LEVEL_PUB.Load_Dimension_Level
124: ( p_Commit => FND_API.G_FALSE
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: END IF;
122:
123: BIS_DIMENSION_LEVEL_PUB.Load_Dimension_Level
124: ( p_Commit => FND_API.G_FALSE
125: , p_Dim_Grp_Rec => p_Dim_Grp_Rec
126: , p_Bsc_Pmf_Dim_Rec => p_Bsc_Pmf_Dim_Rec
127: , p_Bsc_Dim_Level_Rec => p_Bsc_Dim_Level_Rec
128: , x_return_status => l_return_status
130: , x_msg_data => l_msg_data
131: , p_force_mode => p_force_mode
132: );
133:
134: IF((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
136: END IF;
137:
138: EXCEPTION
131: , p_force_mode => p_force_mode
132: );
133:
134: IF((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
136: END IF;
137:
138: EXCEPTION
139: WHEN FND_API.G_EXC_ERROR THEN
135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
136: END IF;
137:
138: EXCEPTION
139: WHEN FND_API.G_EXC_ERROR THEN
140: x_return_status := FND_API.G_RET_STS_ERROR ;
141: IF(x_msg_data IS NULL) THEN
142: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
143: ,p_count => x_msg_count
136: END IF;
137:
138: EXCEPTION
139: WHEN FND_API.G_EXC_ERROR THEN
140: x_return_status := FND_API.G_RET_STS_ERROR ;
141: IF(x_msg_data IS NULL) THEN
142: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
143: ,p_count => x_msg_count
144: ,p_data => x_msg_data);
143: ,p_count => x_msg_count
144: ,p_data => x_msg_data);
145: END IF;
146: RAISE;
147: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
149: IF(x_msg_data IS NULL) THEN
150: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
151: ,p_count => x_msg_count
144: ,p_data => x_msg_data);
145: END IF;
146: RAISE;
147: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
149: IF(x_msg_data IS NULL) THEN
150: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
151: ,p_count => x_msg_count
152: ,p_data => x_msg_data);
152: ,p_data => x_msg_data);
153: END IF;
154: RAISE;
155: WHEN OTHERS THEN
156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
157: IF(x_msg_data IS NULL) THEN
158: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
159: ,p_count => x_msg_count
160: ,p_data => x_msg_data);
163: END Load_Dimension_Level_Wrapper;
164: --
165:
166: Procedure Translate_Dim_Level_Wrapper
167: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
168: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
169: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
170: , p_Bsc_Pmf_Dim_Rec IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Dim_Rec_Type
171: , p_Bsc_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
164: --
165:
166: Procedure Translate_Dim_Level_Wrapper
167: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
168: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
169: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
170: , p_Bsc_Pmf_Dim_Rec IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Dim_Rec_Type
171: , p_Bsc_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
172: , p_Owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
182: BEGIN
183:
184: BIS_DIMENSION_LEVEL_PUB.Translate_dimension_level
185: ( p_api_version => 1.0
186: , p_commit => FND_API.G_FALSE
187: , p_Dimension_Level_Rec => p_Dimension_Level_Rec
188: , p_owner => p_Owner
189: , x_return_status => l_return_status
190: , x_error_Tbl => l_error_Tbl
189: , x_return_status => l_return_status
190: , x_error_Tbl => l_error_Tbl
191: );
192:
193: IF((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
194: IF(l_error_Tbl.COUNT > 0) THEN
195: l_msg_data := l_error_Tbl(l_error_Tbl.FIRST).Error_Description;
196: END IF;
197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
193: IF((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
194: IF(l_error_Tbl.COUNT > 0) THEN
195: l_msg_data := l_error_Tbl(l_error_Tbl.FIRST).Error_Description;
196: END IF;
197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
198: END IF;
199:
200: BSC_DIMENSION_LEVELS_PUB.Translate_dimension_level
201: ( p_commit => FND_API.G_FALSE
197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
198: END IF;
199:
200: BSC_DIMENSION_LEVELS_PUB.Translate_dimension_level
201: ( p_commit => FND_API.G_FALSE
202: , p_Bsc_Pmf_Dim_Rec => p_Bsc_Pmf_Dim_Rec
203: , p_Bsc_Dim_Level_Rec => p_Bsc_Dim_Level_Rec
204: , x_return_status => l_return_status
205: , x_msg_count => l_msg_count
205: , x_msg_count => l_msg_count
206: , x_msg_data => l_msg_data
207: );
208:
209: IF((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211: END IF;
212:
213: EXCEPTION
206: , x_msg_data => l_msg_data
207: );
208:
209: IF((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211: END IF;
212:
213: EXCEPTION
214: WHEN FND_API.G_EXC_ERROR THEN
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211: END IF;
212:
213: EXCEPTION
214: WHEN FND_API.G_EXC_ERROR THEN
215: x_return_status := FND_API.G_RET_STS_ERROR ;
216: IF(x_msg_data IS NULL) THEN
217: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
218: ,p_count => x_msg_count
211: END IF;
212:
213: EXCEPTION
214: WHEN FND_API.G_EXC_ERROR THEN
215: x_return_status := FND_API.G_RET_STS_ERROR ;
216: IF(x_msg_data IS NULL) THEN
217: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
218: ,p_count => x_msg_count
219: ,p_data => x_msg_data);
218: ,p_count => x_msg_count
219: ,p_data => x_msg_data);
220: END IF;
221: RAISE;
222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
224: IF(x_msg_data IS NULL) THEN
225: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
226: ,p_count => x_msg_count
219: ,p_data => x_msg_data);
220: END IF;
221: RAISE;
222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
224: IF(x_msg_data IS NULL) THEN
225: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
226: ,p_count => x_msg_count
227: ,p_data => x_msg_data);
227: ,p_data => x_msg_data);
228: END IF;
229: RAISE;
230: WHEN OTHERS THEN
231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
232: IF(x_msg_data IS NULL) THEN
233: FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
234: ,p_count => x_msg_count
235: ,p_data => x_msg_data);
258: , x_return_status => x_return_status
259: , x_error_Tbl => x_error_tbl
260: );
261:
262: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
263: -- POPULATE THE ERROR TABLE
264: --added this message
265: BIS_UTILITIES_PVT.Add_Error_Message
266: ( p_error_msg_name => 'BIS_INVALID_DIMENSION_VALUE'
269: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
270: , p_error_table => x_error_tbl
271: , x_error_table => x_error_tbl
272: );
273: RAISE FND_API.G_EXC_ERROR;
274: end if;
275: */
276: BIS_DIMENSION_LEVEL_PVT.Retrieve_Dimension_Levels
277: ( p_api_version => 1.0
282: );
283:
284: EXCEPTION
285: WHEN NO_DATA_FOUND THEN
286: x_return_status := FND_API.G_RET_STS_ERROR ;
287: when FND_API.G_EXC_ERROR then
288: x_return_status := FND_API.G_RET_STS_ERROR ;
289: when FND_API.G_EXC_UNEXPECTED_ERROR then
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
283:
284: EXCEPTION
285: WHEN NO_DATA_FOUND THEN
286: x_return_status := FND_API.G_RET_STS_ERROR ;
287: when FND_API.G_EXC_ERROR then
288: x_return_status := FND_API.G_RET_STS_ERROR ;
289: when FND_API.G_EXC_UNEXPECTED_ERROR then
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
291: when others then
284: EXCEPTION
285: WHEN NO_DATA_FOUND THEN
286: x_return_status := FND_API.G_RET_STS_ERROR ;
287: when FND_API.G_EXC_ERROR then
288: x_return_status := FND_API.G_RET_STS_ERROR ;
289: when FND_API.G_EXC_UNEXPECTED_ERROR then
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
291: when others then
292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
285: WHEN NO_DATA_FOUND THEN
286: x_return_status := FND_API.G_RET_STS_ERROR ;
287: when FND_API.G_EXC_ERROR then
288: x_return_status := FND_API.G_RET_STS_ERROR ;
289: when FND_API.G_EXC_UNEXPECTED_ERROR then
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
291: when others then
292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
293: l_error_tbl := x_error_tbl;
286: x_return_status := FND_API.G_RET_STS_ERROR ;
287: when FND_API.G_EXC_ERROR then
288: x_return_status := FND_API.G_RET_STS_ERROR ;
289: when FND_API.G_EXC_UNEXPECTED_ERROR then
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
291: when others then
292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
293: l_error_tbl := x_error_tbl;
294: BIS_UTILITIES_PVT.Add_Error_Message
288: x_return_status := FND_API.G_RET_STS_ERROR ;
289: when FND_API.G_EXC_UNEXPECTED_ERROR then
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
291: when others then
292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
293: l_error_tbl := x_error_tbl;
294: BIS_UTILITIES_PVT.Add_Error_Message
295: ( p_error_msg_id => SQLCODE
296: , p_error_description => SQLERRM
320: , x_Dimension_Level_Rec => l_Dimension_Level_Rec
321: , x_return_status => x_return_status
322: , x_error_Tbl => x_error_tbl
323: );
324: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
325: -- POPULATE THE ERROR TABLE
326: --added the error message
327: l_error_tbl := x_error_tbl;
328: BIS_UTILITIES_PVT.Add_Error_Message
332: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
333: , p_error_table => l_error_tbl
334: , x_error_table => x_error_tbl
335: );
336: RAISE FND_API.G_EXC_ERROR;
337: end if;
338:
339: BIS_DIMENSION_LEVEL_PVT.Retrieve_Dimension_Level
340: ( p_api_version => 1.0
346:
347:
348: EXCEPTION
349: WHEN NO_DATA_FOUND THEN
350: x_return_status := FND_API.G_RET_STS_ERROR ;
351: when FND_API.G_EXC_ERROR then
352: x_return_status := FND_API.G_RET_STS_ERROR ;
353: when FND_API.G_EXC_UNEXPECTED_ERROR then
354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
347:
348: EXCEPTION
349: WHEN NO_DATA_FOUND THEN
350: x_return_status := FND_API.G_RET_STS_ERROR ;
351: when FND_API.G_EXC_ERROR then
352: x_return_status := FND_API.G_RET_STS_ERROR ;
353: when FND_API.G_EXC_UNEXPECTED_ERROR then
354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
355: when others then
348: EXCEPTION
349: WHEN NO_DATA_FOUND THEN
350: x_return_status := FND_API.G_RET_STS_ERROR ;
351: when FND_API.G_EXC_ERROR then
352: x_return_status := FND_API.G_RET_STS_ERROR ;
353: when FND_API.G_EXC_UNEXPECTED_ERROR then
354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
355: when others then
356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
349: WHEN NO_DATA_FOUND THEN
350: x_return_status := FND_API.G_RET_STS_ERROR ;
351: when FND_API.G_EXC_ERROR then
352: x_return_status := FND_API.G_RET_STS_ERROR ;
353: when FND_API.G_EXC_UNEXPECTED_ERROR then
354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
355: when others then
356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
357: l_error_tbl := x_error_tbl;
350: x_return_status := FND_API.G_RET_STS_ERROR ;
351: when FND_API.G_EXC_ERROR then
352: x_return_status := FND_API.G_RET_STS_ERROR ;
353: when FND_API.G_EXC_UNEXPECTED_ERROR then
354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
355: when others then
356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
357: l_error_tbl := x_error_tbl;
358: BIS_UTILITIES_PVT.Add_Error_Message
352: x_return_status := FND_API.G_RET_STS_ERROR ;
353: when FND_API.G_EXC_UNEXPECTED_ERROR then
354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
355: when others then
356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
357: l_error_tbl := x_error_tbl;
358: BIS_UTILITIES_PVT.Add_Error_Message
359: ( p_error_msg_id => SQLCODE
360: , p_error_description => SQLERRM
367: --
368: --
369: Procedure Translate_Dimension_Level
370: ( p_api_version IN NUMBER
371: , p_commit IN VARCHAR2 := FND_API.G_FALSE
372: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
373: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
374: , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
375: , x_return_status OUT NOCOPY VARCHAR2
368: --
369: Procedure Translate_Dimension_Level
370: ( p_api_version IN NUMBER
371: , p_commit IN VARCHAR2 := FND_API.G_FALSE
372: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
373: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
374: , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
375: , x_return_status OUT NOCOPY VARCHAR2
376: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
387: , x_return_status => x_return_status
388: , x_error_Tbl => x_error_tbl
389: );
390:
391: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
392: --added last two parameters
393: l_error_tbl := x_error_tbl;
394: BIS_UTILITIES_PVT.Add_Error_Message
395: ( p_error_msg_name => 'BIS_INVALID_DIMENSION_LEVEL_ID'
398: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
399: , p_error_table => l_error_tbl
400: , x_error_table => x_error_tbl
401: );
402: RAISE FND_API.G_EXC_ERROR;
403: end if;
404:
405: l_Dimension_Level_Rec.Last_Update_Date := NVL(p_Dimension_Level_Rec.Last_Update_Date, SYSDATE);
406: BIS_DIMENSION_LEVEL_PVT.Translate_Dimension_Level
414: );
415:
416: EXCEPTION
417: WHEN NO_DATA_FOUND THEN
418: x_return_status := FND_API.G_RET_STS_ERROR ;
419: when FND_API.G_EXC_ERROR then
420: x_return_status := FND_API.G_RET_STS_ERROR ;
421: when FND_API.G_EXC_UNEXPECTED_ERROR then
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
415:
416: EXCEPTION
417: WHEN NO_DATA_FOUND THEN
418: x_return_status := FND_API.G_RET_STS_ERROR ;
419: when FND_API.G_EXC_ERROR then
420: x_return_status := FND_API.G_RET_STS_ERROR ;
421: when FND_API.G_EXC_UNEXPECTED_ERROR then
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
423: when others then
416: EXCEPTION
417: WHEN NO_DATA_FOUND THEN
418: x_return_status := FND_API.G_RET_STS_ERROR ;
419: when FND_API.G_EXC_ERROR then
420: x_return_status := FND_API.G_RET_STS_ERROR ;
421: when FND_API.G_EXC_UNEXPECTED_ERROR then
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
423: when others then
424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
417: WHEN NO_DATA_FOUND THEN
418: x_return_status := FND_API.G_RET_STS_ERROR ;
419: when FND_API.G_EXC_ERROR then
420: x_return_status := FND_API.G_RET_STS_ERROR ;
421: when FND_API.G_EXC_UNEXPECTED_ERROR then
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
423: when others then
424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
425: l_error_tbl := x_error_tbl;
418: x_return_status := FND_API.G_RET_STS_ERROR ;
419: when FND_API.G_EXC_ERROR then
420: x_return_status := FND_API.G_RET_STS_ERROR ;
421: when FND_API.G_EXC_UNEXPECTED_ERROR then
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
423: when others then
424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
425: l_error_tbl := x_error_tbl;
426: BIS_UTILITIES_PVT.Add_Error_Message
420: x_return_status := FND_API.G_RET_STS_ERROR ;
421: when FND_API.G_EXC_UNEXPECTED_ERROR then
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
423: when others then
424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
425: l_error_tbl := x_error_tbl;
426: BIS_UTILITIES_PVT.Add_Error_Message
427: ( p_error_msg_id => SQLCODE
428: , p_error_description => SQLERRM
434: END Translate_Dimension_Level ;
435: --
436: Procedure Load_Dimension_Level
437: ( p_api_version IN NUMBER
438: , p_commit IN VARCHAR2 := FND_API.G_FALSE
439: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
440: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
441: , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
442: , x_return_status OUT NOCOPY VARCHAR2
435: --
436: Procedure Load_Dimension_Level
437: ( p_api_version IN NUMBER
438: , p_commit IN VARCHAR2 := FND_API.G_FALSE
439: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
440: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
441: , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
442: , x_return_status OUT NOCOPY VARCHAR2
443: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
465: );
466:
467: -- commented out NOCOPY since we want to continue anyway
468: /*
469: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
470: --added last two parameters
471: BIS_UTILITIES_PVT.Add_Error_Message
472: ( p_error_msg_name => 'BIS_INVALID_DIMENSION_LEVEL_ID'
473: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
475: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
476: , p_error_table => x_error_tbl
477: , x_error_table => x_error_tbl
478: );
479: RAISE FND_API.G_EXC_ERROR;
480: END IF;
481: */
482:
483: l_Dimension_Level_Rec.Last_Update_Date := NVL(p_Dimension_Level_Rec.Last_Update_Date, SYSDATE);
520:
521: END IF;
522: /*
523: WHEN OTHERS THEN
524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
525: --added last two parameters
526: BIS_UTILITIES_PVT.Add_Error_Message
527: ( p_error_msg_id => SQLCODE
528: , p_error_description => SQLERRM
529: , p_error_proc_name => G_PKG_NAME||'.Load_Dimension_Level'
530: , p_error_table => x_error_tbl
531: , x_error_table => x_error_tbl
532: );
533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
534: */
535: END;
536:
537: EXCEPTION
535: END;
536:
537: EXCEPTION
538: WHEN NO_DATA_FOUND THEN
539: x_return_status := FND_API.G_RET_STS_ERROR ;
540: when FND_API.G_EXC_ERROR then
541: x_return_status := FND_API.G_RET_STS_ERROR ;
542: when FND_API.G_EXC_UNEXPECTED_ERROR then
543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
536:
537: EXCEPTION
538: WHEN NO_DATA_FOUND THEN
539: x_return_status := FND_API.G_RET_STS_ERROR ;
540: when FND_API.G_EXC_ERROR then
541: x_return_status := FND_API.G_RET_STS_ERROR ;
542: when FND_API.G_EXC_UNEXPECTED_ERROR then
543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
544: when others then
537: EXCEPTION
538: WHEN NO_DATA_FOUND THEN
539: x_return_status := FND_API.G_RET_STS_ERROR ;
540: when FND_API.G_EXC_ERROR then
541: x_return_status := FND_API.G_RET_STS_ERROR ;
542: when FND_API.G_EXC_UNEXPECTED_ERROR then
543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
544: when others then
545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
538: WHEN NO_DATA_FOUND THEN
539: x_return_status := FND_API.G_RET_STS_ERROR ;
540: when FND_API.G_EXC_ERROR then
541: x_return_status := FND_API.G_RET_STS_ERROR ;
542: when FND_API.G_EXC_UNEXPECTED_ERROR then
543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
544: when others then
545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
546: l_error_tbl := x_error_tbl;
539: x_return_status := FND_API.G_RET_STS_ERROR ;
540: when FND_API.G_EXC_ERROR then
541: x_return_status := FND_API.G_RET_STS_ERROR ;
542: when FND_API.G_EXC_UNEXPECTED_ERROR then
543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
544: when others then
545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
546: l_error_tbl := x_error_tbl;
547: BIS_UTILITIES_PVT.Add_Error_Message
541: x_return_status := FND_API.G_RET_STS_ERROR ;
542: when FND_API.G_EXC_UNEXPECTED_ERROR then
543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
544: when others then
545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
546: l_error_tbl := x_error_tbl;
547: BIS_UTILITIES_PVT.Add_Error_Message
548: ( p_error_msg_id => SQLCODE
549: , p_error_description => SQLERRM
555: END Load_Dimension_Level ;
556: --
557: PROCEDURE Create_Dimension_Level
558: ( p_api_version IN NUMBER
559: , p_commit IN VARCHAR2 := FND_API.G_FALSE
560: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
561: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
562: , x_return_status OUT NOCOPY VARCHAR2
563: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
556: --
557: PROCEDURE Create_Dimension_Level
558: ( p_api_version IN NUMBER
559: , p_commit IN VARCHAR2 := FND_API.G_FALSE
560: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
561: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
562: , x_return_status OUT NOCOPY VARCHAR2
563: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
564: )
576: , x_error_Tbl => x_error_Tbl
577: );
578: EXCEPTION
579: WHEN NO_DATA_FOUND THEN
580: x_return_status := FND_API.G_RET_STS_ERROR ;
581: WHEN FND_API.G_EXC_ERROR THEN
582: x_return_status := FND_API.G_RET_STS_ERROR ;
583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
577: );
578: EXCEPTION
579: WHEN NO_DATA_FOUND THEN
580: x_return_status := FND_API.G_RET_STS_ERROR ;
581: WHEN FND_API.G_EXC_ERROR THEN
582: x_return_status := FND_API.G_RET_STS_ERROR ;
583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
585: WHEN OTHERS THEN
578: EXCEPTION
579: WHEN NO_DATA_FOUND THEN
580: x_return_status := FND_API.G_RET_STS_ERROR ;
581: WHEN FND_API.G_EXC_ERROR THEN
582: x_return_status := FND_API.G_RET_STS_ERROR ;
583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
585: WHEN OTHERS THEN
586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
579: WHEN NO_DATA_FOUND THEN
580: x_return_status := FND_API.G_RET_STS_ERROR ;
581: WHEN FND_API.G_EXC_ERROR THEN
582: x_return_status := FND_API.G_RET_STS_ERROR ;
583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
585: WHEN OTHERS THEN
586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
587: l_error_tbl := x_error_tbl;
580: x_return_status := FND_API.G_RET_STS_ERROR ;
581: WHEN FND_API.G_EXC_ERROR THEN
582: x_return_status := FND_API.G_RET_STS_ERROR ;
583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
585: WHEN OTHERS THEN
586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
587: l_error_tbl := x_error_tbl;
588: BIS_UTILITIES_PVT.Add_Error_Message
582: x_return_status := FND_API.G_RET_STS_ERROR ;
583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
585: WHEN OTHERS THEN
586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
587: l_error_tbl := x_error_tbl;
588: BIS_UTILITIES_PVT.Add_Error_Message
589: ( p_error_msg_id => SQLCODE
590: , p_error_description => SQLERRM
595: END Create_Dimension_Level;
596: --
597: PROCEDURE Update_Dimension_Level
598: ( p_api_version IN NUMBER
599: , p_commit IN VARCHAR2 := FND_API.G_FALSE
600: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
601: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
602: , x_return_status OUT NOCOPY VARCHAR2
603: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
596: --
597: PROCEDURE Update_Dimension_Level
598: ( p_api_version IN NUMBER
599: , p_commit IN VARCHAR2 := FND_API.G_FALSE
600: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
601: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
602: , x_return_status OUT NOCOPY VARCHAR2
603: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
604: )
616: , x_error_Tbl => x_error_Tbl
617: );
618: EXCEPTION
619: WHEN NO_DATA_FOUND THEN
620: x_return_status := FND_API.G_RET_STS_ERROR ;
621: WHEN FND_API.G_EXC_ERROR THEN
622: x_return_status := FND_API.G_RET_STS_ERROR ;
623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
617: );
618: EXCEPTION
619: WHEN NO_DATA_FOUND THEN
620: x_return_status := FND_API.G_RET_STS_ERROR ;
621: WHEN FND_API.G_EXC_ERROR THEN
622: x_return_status := FND_API.G_RET_STS_ERROR ;
623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
625: WHEN OTHERS THEN
618: EXCEPTION
619: WHEN NO_DATA_FOUND THEN
620: x_return_status := FND_API.G_RET_STS_ERROR ;
621: WHEN FND_API.G_EXC_ERROR THEN
622: x_return_status := FND_API.G_RET_STS_ERROR ;
623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
625: WHEN OTHERS THEN
626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
619: WHEN NO_DATA_FOUND THEN
620: x_return_status := FND_API.G_RET_STS_ERROR ;
621: WHEN FND_API.G_EXC_ERROR THEN
622: x_return_status := FND_API.G_RET_STS_ERROR ;
623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
625: WHEN OTHERS THEN
626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
627: l_error_tbl := x_error_tbl;
620: x_return_status := FND_API.G_RET_STS_ERROR ;
621: WHEN FND_API.G_EXC_ERROR THEN
622: x_return_status := FND_API.G_RET_STS_ERROR ;
623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
625: WHEN OTHERS THEN
626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
627: l_error_tbl := x_error_tbl;
628: BIS_UTILITIES_PVT.Add_Error_Message
622: x_return_status := FND_API.G_RET_STS_ERROR ;
623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
625: WHEN OTHERS THEN
626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
627: l_error_tbl := x_error_tbl;
628: BIS_UTILITIES_PVT.Add_Error_Message
629: ( p_error_msg_id => SQLCODE
630: , p_error_description => SQLERRM
635: END Update_Dimension_Level;
636: --
637: PROCEDURE Delete_Dimension_Level
638: (
639: p_commit IN VARCHAR2 := FND_API.G_FALSE
640: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
641: , p_Dimension_Level_Rec IN BIS_Dimension_Level_PUB.Dimension_Level_Rec_Type
642: , x_return_status OUT NOCOPY VARCHAR2
643: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
636: --
637: PROCEDURE Delete_Dimension_Level
638: (
639: p_commit IN VARCHAR2 := FND_API.G_FALSE
640: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
641: , p_Dimension_Level_Rec IN BIS_Dimension_Level_PUB.Dimension_Level_Rec_Type
642: , x_return_status OUT NOCOPY VARCHAR2
643: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
644: ) IS
652: , x_return_status => x_return_status
653: , x_error_Tbl => x_error_Tbl
654: );
655: EXCEPTION
656: WHEN FND_API.G_EXC_ERROR THEN
657: x_return_status := FND_API.G_RET_STS_ERROR ;
658: WHEN OTHERS THEN
659: l_error_tbl := x_error_tbl;
660: BIS_UTILITIES_PVT.Add_Error_Message
653: , x_error_Tbl => x_error_Tbl
654: );
655: EXCEPTION
656: WHEN FND_API.G_EXC_ERROR THEN
657: x_return_status := FND_API.G_RET_STS_ERROR ;
658: WHEN OTHERS THEN
659: l_error_tbl := x_error_tbl;
660: BIS_UTILITIES_PVT.Add_Error_Message
661: ( p_error_msg_id => SQLCODE
663: , p_error_proc_name => G_PKG_NAME||'.Delete_Dimension_Level'
664: , p_error_table => l_error_tbl
665: , x_error_table => x_error_tbl
666: );
667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
668: END Delete_Dimension_Level;
669:
670: --============================================================================
671: -- Load into BSC's bsc_sys_dim_levels_b/tl table by calling update/insert API of BSC
670: --============================================================================
671: -- Load into BSC's bsc_sys_dim_levels_b/tl table by calling update/insert API of BSC
672:
673: PROCEDURE load_dim_levels(
674: p_commit IN VARCHAR2 := FND_API.G_FALSE
675: ,p_bsc_pmf_dim_rec IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Dim_Rec_Type
676: ,p_Bsc_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
677: ,x_return_status OUT NOCOPY VARCHAR2
678: ,x_msg_count OUT NOCOPY NUMBER
763: WHEN NO_DATA_FOUND THEN
764: IF (dl_value%ISOPEN) THEN
765: CLOSE dl_value;
766: END IF;
767: x_return_status := FND_API.G_RET_STS_ERROR ;
768: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
769: ,p_data => x_msg_data);
770: WHEN FND_API.G_EXC_ERROR THEN
771: IF (dl_value%ISOPEN) THEN
766: END IF;
767: x_return_status := FND_API.G_RET_STS_ERROR ;
768: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
769: ,p_data => x_msg_data);
770: WHEN FND_API.G_EXC_ERROR THEN
771: IF (dl_value%ISOPEN) THEN
772: CLOSE dl_value;
773: END IF;
774: x_return_status := FND_API.G_RET_STS_ERROR ;
770: WHEN FND_API.G_EXC_ERROR THEN
771: IF (dl_value%ISOPEN) THEN
772: CLOSE dl_value;
773: END IF;
774: x_return_status := FND_API.G_RET_STS_ERROR ;
775: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
776: ,p_data => x_msg_data);
777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
778: IF (dl_value%ISOPEN) THEN
773: END IF;
774: x_return_status := FND_API.G_RET_STS_ERROR ;
775: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
776: ,p_data => x_msg_data);
777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
778: IF (dl_value%ISOPEN) THEN
779: CLOSE dl_value;
780: END IF;
781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
778: IF (dl_value%ISOPEN) THEN
779: CLOSE dl_value;
780: END IF;
781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
782: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
783: ,p_data => x_msg_data);
784: WHEN OTHERS THEN
785: IF (dl_value%ISOPEN) THEN
784: WHEN OTHERS THEN
785: IF (dl_value%ISOPEN) THEN
786: CLOSE dl_value;
787: END IF;
788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
789: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
790: ,p_data => x_msg_data);
791:
792: END load_dim_levels;
795: --============================================================================
796: -- Load into BSC's bsc_sys_dim_levels_by_group table by calling update/insert API of BSC
797:
798: PROCEDURE load_dim_levels_in_group(
799: p_commit IN VARCHAR2 := FND_API.G_FALSE
800: ,p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
801: ,p_Bsc_Pmf_Dim_Rec IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Dim_Rec_Type
802: ,x_return_status OUT NOCOPY VARCHAR2
803: ,x_msg_count OUT NOCOPY NUMBER
833: );
834:
835: EXCEPTION
836: WHEN NO_DATA_FOUND THEN
837: x_return_status := FND_API.G_RET_STS_ERROR ;
838: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
839: ,p_data => x_msg_data);
840: WHEN FND_API.G_EXC_ERROR THEN
841: x_return_status := FND_API.G_RET_STS_ERROR ;
836: WHEN NO_DATA_FOUND THEN
837: x_return_status := FND_API.G_RET_STS_ERROR ;
838: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
839: ,p_data => x_msg_data);
840: WHEN FND_API.G_EXC_ERROR THEN
841: x_return_status := FND_API.G_RET_STS_ERROR ;
842: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
843: ,p_data => x_msg_data);
844: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
837: x_return_status := FND_API.G_RET_STS_ERROR ;
838: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
839: ,p_data => x_msg_data);
840: WHEN FND_API.G_EXC_ERROR THEN
841: x_return_status := FND_API.G_RET_STS_ERROR ;
842: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
843: ,p_data => x_msg_data);
844: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
840: WHEN FND_API.G_EXC_ERROR THEN
841: x_return_status := FND_API.G_RET_STS_ERROR ;
842: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
843: ,p_data => x_msg_data);
844: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
846: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
847: ,p_data => x_msg_data);
848: WHEN OTHERS THEN
841: x_return_status := FND_API.G_RET_STS_ERROR ;
842: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
843: ,p_data => x_msg_data);
844: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
846: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
847: ,p_data => x_msg_data);
848: WHEN OTHERS THEN
849: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
846: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
847: ,p_data => x_msg_data);
848: WHEN OTHERS THEN
849: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
850: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
851: ,p_data => x_msg_data);
852: END load_dim_levels_in_group;
853:
853:
854:
855: --=============================================================================
856: PROCEDURE Load_Dimension_Level (
857: p_Commit IN VARCHAR2 := FND_API.G_FALSE
858: ,p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
859: ,p_Bsc_Pmf_Dim_Rec IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Dim_Rec_Type
860: ,p_Bsc_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
861: ,x_return_status OUT NOCOPY VARCHAR2
964: CLOSE c_bsc_dim_obj_exists;
965:
966: EXCEPTION
967: WHEN NO_DATA_FOUND THEN
968: x_return_status := FND_API.G_RET_STS_ERROR ;
969: IF(x_msg_data IS NULL) THEN
970: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
971: ,p_data => x_msg_data);
972: END IF;
975: END IF;
976: IF(c_dim_dimobj_mapping_exists%ISOPEN) THEN
977: CLOSE c_dim_dimobj_mapping_exists;
978: END IF;
979: WHEN FND_API.G_EXC_ERROR THEN
980: x_return_status := FND_API.G_RET_STS_ERROR ;
981: IF(x_msg_data IS NULL) THEN
982: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
983: ,p_data => x_msg_data);
976: IF(c_dim_dimobj_mapping_exists%ISOPEN) THEN
977: CLOSE c_dim_dimobj_mapping_exists;
978: END IF;
979: WHEN FND_API.G_EXC_ERROR THEN
980: x_return_status := FND_API.G_RET_STS_ERROR ;
981: IF(x_msg_data IS NULL) THEN
982: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
983: ,p_data => x_msg_data);
984: END IF;
987: END IF;
988: IF(c_dim_dimobj_mapping_exists%ISOPEN) THEN
989: CLOSE c_dim_dimobj_mapping_exists;
990: END IF;
991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
993: IF(x_msg_data IS NULL) THEN
994: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
995: ,p_data => x_msg_data);
988: IF(c_dim_dimobj_mapping_exists%ISOPEN) THEN
989: CLOSE c_dim_dimobj_mapping_exists;
990: END IF;
991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
993: IF(x_msg_data IS NULL) THEN
994: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
995: ,p_data => x_msg_data);
996: END IF;
1000: IF(c_dim_dimobj_mapping_exists%ISOPEN) THEN
1001: CLOSE c_dim_dimobj_mapping_exists;
1002: END IF;
1003: WHEN OTHERS THEN
1004: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1005: IF(x_msg_data IS NULL) THEN
1006: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1007: ,p_data => x_msg_data);
1008: END IF;
1017: --=============================================================================
1018:
1019: PROCEDURE Trans_DimObj_By_Given_Lang
1020: (
1021: p_commit IN VARCHAR2 := FND_API.G_FALSE
1022: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1023: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
1024: , x_return_status OUT NOCOPY VARCHAR2
1025: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1018:
1019: PROCEDURE Trans_DimObj_By_Given_Lang
1020: (
1021: p_commit IN VARCHAR2 := FND_API.G_FALSE
1022: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1023: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
1024: , x_return_status OUT NOCOPY VARCHAR2
1025: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1026: ) IS
1036: );
1037:
1038: EXCEPTION
1039: WHEN NO_DATA_FOUND THEN
1040: x_return_status := FND_API.G_RET_STS_ERROR ;
1041: WHEN FND_API.G_EXC_ERROR THEN
1042: x_return_status := FND_API.G_RET_STS_ERROR ;
1043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1044: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1037:
1038: EXCEPTION
1039: WHEN NO_DATA_FOUND THEN
1040: x_return_status := FND_API.G_RET_STS_ERROR ;
1041: WHEN FND_API.G_EXC_ERROR THEN
1042: x_return_status := FND_API.G_RET_STS_ERROR ;
1043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1044: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1045: WHEN OTHERS THEN
1038: EXCEPTION
1039: WHEN NO_DATA_FOUND THEN
1040: x_return_status := FND_API.G_RET_STS_ERROR ;
1041: WHEN FND_API.G_EXC_ERROR THEN
1042: x_return_status := FND_API.G_RET_STS_ERROR ;
1043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1044: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1045: WHEN OTHERS THEN
1046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1039: WHEN NO_DATA_FOUND THEN
1040: x_return_status := FND_API.G_RET_STS_ERROR ;
1041: WHEN FND_API.G_EXC_ERROR THEN
1042: x_return_status := FND_API.G_RET_STS_ERROR ;
1043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1044: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1045: WHEN OTHERS THEN
1046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1047: l_error_tbl := x_error_tbl;
1040: x_return_status := FND_API.G_RET_STS_ERROR ;
1041: WHEN FND_API.G_EXC_ERROR THEN
1042: x_return_status := FND_API.G_RET_STS_ERROR ;
1043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1044: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1045: WHEN OTHERS THEN
1046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1047: l_error_tbl := x_error_tbl;
1048: BIS_UTILITIES_PVT.Add_Error_Message
1042: x_return_status := FND_API.G_RET_STS_ERROR ;
1043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1044: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1045: WHEN OTHERS THEN
1046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1047: l_error_tbl := x_error_tbl;
1048: BIS_UTILITIES_PVT.Add_Error_Message
1049: ( p_error_msg_id => SQLCODE
1050: , p_error_description => SQLERRM
1164: l_count NUMBER;
1165: BEGIN
1166:
1167: FND_MSG_PUB.Initialize;
1168: x_return_status := FND_API.G_RET_STS_SUCCESS;
1169:
1170: l_Dimension_Level_Rec_In.dimension_level_short_name := p_dim_level_short_name;
1171:
1172: BIS_DIMENSION_LEVEL_PUB.Retrieve_Dimension_Level
1181: IF (l_error_tbl.COUNT > 0) THEN
1182: FND_MESSAGE.SET_NAME('BIS',l_error_tbl(l_count).error_msg_name);
1183: FND_MSG_PUB.Add;
1184: END IF;
1185: RAISE FND_API.G_EXC_ERROR;
1186: END IF;
1187:
1188: x_pmf_dim_id := l_Dimension_Level_Rec_Out.dimension_id;
1189: x_pmf_dim_level_id := l_Dimension_Level_Rec_Out.dimension_level_id;
1226: ,x_msg_data => x_msg_data
1227: );
1228:
1229: IF NOT ( (l_return_status = 'S') OR (l_return_status IS NULL) ) THEN
1230: RAISE FND_API.G_EXC_ERROR;
1231: END IF;
1232:
1233: x_is_related_by_master := Is_Related_By_Master (
1234: p_dim_level_short_name => p_dim_level_short_name
1234: p_dim_level_short_name => p_dim_level_short_name
1235: ,p_master_dim_level_short_name => p_master_dim_level_short_name);
1236:
1237: EXCEPTION
1238: WHEN FND_API.G_EXC_ERROR THEN
1239: IF (x_msg_data IS NULL) THEN
1240: FND_MSG_PUB.Count_And_Get(
1241: p_encoded => 'F'
1242: ,p_count => x_msg_count
1242: ,p_count => x_msg_count
1243: ,p_data => x_msg_data
1244: );
1245: END IF;
1246: x_return_status := FND_API.G_RET_STS_ERROR;
1247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1248: IF (x_msg_data IS NULL) THEN
1249: FND_MSG_PUB.Count_And_Get(
1250: p_encoded => 'F'
1243: ,p_data => x_msg_data
1244: );
1245: END IF;
1246: x_return_status := FND_API.G_RET_STS_ERROR;
1247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1248: IF (x_msg_data IS NULL) THEN
1249: FND_MSG_PUB.Count_And_Get(
1250: p_encoded => 'F'
1251: ,p_count => x_msg_count
1251: ,p_count => x_msg_count
1252: ,p_data => x_msg_data
1253: );
1254: END IF;
1255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1256: WHEN OTHERS THEN
1257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1258: IF (x_msg_data IS NOT NULL) THEN
1259: x_msg_data := x_msg_data||' -> BIS_DIMENSION_LEVEL_PUB.Retrieve_Dimension_Level_Wrap ';
1253: );
1254: END IF;
1255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1256: WHEN OTHERS THEN
1257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1258: IF (x_msg_data IS NOT NULL) THEN
1259: x_msg_data := x_msg_data||' -> BIS_DIMENSION_LEVEL_PUB.Retrieve_Dimension_Level_Wrap ';
1260: ELSE
1261: x_msg_data := SQLERRM||' at BIS_DIMENSION_LEVEL_PUB.Retrieve_Dimension_Level_Wrap ';
1322: END IF;
1323: END Retrieve_Dim_Level_Cust_Wrap;
1324:
1325: PROCEDURE Update_Dim_Obj_Obsolete_Flag (
1326: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1327: p_dim_obj_short_name IN VARCHAR2,
1328: p_hide IN VARCHAR2,
1329: x_return_status OUT nocopy VARCHAR2,
1330: x_Msg_Count OUT NOCOPY NUMBER,
1339: SAVEPOINT DimObjObsoleteUpdate;
1340: IF (p_dim_obj_short_name IS NULL OR p_dim_obj_short_name = '') THEN
1341: FND_MESSAGE.SET_NAME('BIS','BIS_PMF_INVALID_DIM_OBJECT_VALUE');
1342: FND_MSG_PUB.ADD;
1343: RAISE FND_API.G_EXC_ERROR;
1344: END IF;
1345:
1346: IF (p_hide IS NULL OR (p_hide <> FND_API.G_TRUE AND p_hide <> FND_API.G_FALSE)) THEN
1347: FND_MESSAGE.SET_NAME('BIS','BIS_PMF_INVALID_OBSOLETE_FLAG');
1342: FND_MSG_PUB.ADD;
1343: RAISE FND_API.G_EXC_ERROR;
1344: END IF;
1345:
1346: IF (p_hide IS NULL OR (p_hide <> FND_API.G_TRUE AND p_hide <> FND_API.G_FALSE)) THEN
1347: FND_MESSAGE.SET_NAME('BIS','BIS_PMF_INVALID_OBSOLETE_FLAG');
1348: FND_MSG_PUB.ADD;
1349: RAISE FND_API.G_EXC_ERROR;
1350: END IF;
1345:
1346: IF (p_hide IS NULL OR (p_hide <> FND_API.G_TRUE AND p_hide <> FND_API.G_FALSE)) THEN
1347: FND_MESSAGE.SET_NAME('BIS','BIS_PMF_INVALID_OBSOLETE_FLAG');
1348: FND_MSG_PUB.ADD;
1349: RAISE FND_API.G_EXC_ERROR;
1350: END IF;
1351:
1352: l_Dimension_Level_Rec.Dimension_Level_Short_Name := p_dim_obj_short_name;
1353:
1374: WHERE short_name = p_dim_obj_short_name;
1375:
1376: IF(l_Bsc_Dim_Level_Rec_Type.Bsc_Level_Id IS NOT NULL) THEN
1377: BSC_DIMENSION_LEVELS_PUB.Update_Dim_Level
1378: ( p_commit => FND_API.G_FALSE
1379: , p_Dim_Level_Rec => l_Bsc_Dim_Level_Rec_Type
1380: , x_return_status => x_return_status
1381: , x_msg_count => x_msg_count
1382: , x_msg_data => x_msg_data
1380: , x_return_status => x_return_status
1381: , x_msg_count => x_msg_count
1382: , x_msg_data => x_msg_data
1383: );
1384: IF((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1385: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1386: END IF;
1387: END IF;
1388:
1381: , x_msg_count => x_msg_count
1382: , x_msg_data => x_msg_data
1383: );
1384: IF((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1385: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1386: END IF;
1387: END IF;
1388:
1389: IF(p_Commit = FND_API.G_TRUE) THEN
1385: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1386: END IF;
1387: END IF;
1388:
1389: IF(p_Commit = FND_API.G_TRUE) THEN
1390: COMMIT;
1391: END IF;
1392:
1393: x_return_status := FND_API.G_RET_STS_SUCCESS;
1389: IF(p_Commit = FND_API.G_TRUE) THEN
1390: COMMIT;
1391: END IF;
1392:
1393: x_return_status := FND_API.G_RET_STS_SUCCESS;
1394: RETURN;
1395:
1396: EXCEPTION
1397: WHEN FND_API.G_EXC_ERROR THEN
1393: x_return_status := FND_API.G_RET_STS_SUCCESS;
1394: RETURN;
1395:
1396: EXCEPTION
1397: WHEN FND_API.G_EXC_ERROR THEN
1398: IF (x_msg_data IS NULL) THEN
1399: FND_MSG_PUB.Count_And_Get
1400: ( p_encoded => FND_API.G_FALSE
1401: , p_count => x_msg_count
1396: EXCEPTION
1397: WHEN FND_API.G_EXC_ERROR THEN
1398: IF (x_msg_data IS NULL) THEN
1399: FND_MSG_PUB.Count_And_Get
1400: ( p_encoded => FND_API.G_FALSE
1401: , p_count => x_msg_count
1402: , p_data => x_msg_data
1403: );
1404: END IF;
1401: , p_count => x_msg_count
1402: , p_data => x_msg_data
1403: );
1404: END IF;
1405: x_Return_Status := FND_API.G_RET_STS_ERROR;
1406: WHEN OTHERS THEN
1407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1408: ROLLBACK TO DimObjObsoleteUpdate;
1409: IF (x_msg_data IS NOT NULL) THEN
1403: );
1404: END IF;
1405: x_Return_Status := FND_API.G_RET_STS_ERROR;
1406: WHEN OTHERS THEN
1407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1408: ROLLBACK TO DimObjObsoleteUpdate;
1409: IF (x_msg_data IS NOT NULL) THEN
1410: x_msg_data := x_msg_data||' -> BSC_BIS_DIM_OBJ_PUB.Update_Dim_Obj_Obsolete_Flag ';
1411: ELSE