APPS.BSC_DIMENSION_GROUPS_PVT dependencies on FND_API

Line 78: p_commit IN varchar2 := FND_API.G_FALSE

74: --: for the API for the Dimension Group entity.
75: --: This procedure is part of the Dimension Group API.
76:
77: procedure Create_Dimension_Group(
78: p_commit IN varchar2 := FND_API.G_FALSE
79: ,p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
80: ,x_return_status OUT NOCOPY varchar2
81: ,x_msg_count OUT NOCOPY number
82: ,x_msg_data OUT NOCOPY varchar2

Line 94: x_return_status := FND_API.G_RET_STS_SUCCESS;

90:
91: begin
92: SAVEPOINT CreateBSCDimGrpPVT;
93: FND_MSG_PUB.Initialize;
94: x_return_status := FND_API.G_RET_STS_SUCCESS;
95: -- Validate Group Id does not exist.
96: if p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id is not null then
97: l_count := BSC_DIMENSION_GROUPS_PVT.Validate_Dim_Group_Id(p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
98: if l_count <> 0 then

Line 102: RAISE FND_API.G_EXC_ERROR;

98: if l_count <> 0 then
99: FND_MESSAGE.SET_NAME('BSC','BSC_GROUP_ID_EXISTS');
100: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
101: FND_MSG_PUB.ADD;
102: RAISE FND_API.G_EXC_ERROR;
103: end if;
104: else
105: FND_MESSAGE.SET_NAME('BSC','BSC_NO_GROUP_ID_ENTERED');
106: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);

Line 108: RAISE FND_API.G_EXC_ERROR;

104: else
105: FND_MESSAGE.SET_NAME('BSC','BSC_NO_GROUP_ID_ENTERED');
106: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
107: FND_MSG_PUB.ADD;
108: RAISE FND_API.G_EXC_ERROR;
109: end if;
110:
111: -- Assign all values in the passed "Record" parameter to the locally defined
112: -- "Record" variable.

Line 165: if (p_commit = FND_API.G_TRUE) then

161: from BSC_SYS_DIM_GROUPS_TL T
162: where T.dim_group_id = l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id
163: and T.LANGUAGE = L.LANGUAGE_CODE);
164:
165: if (p_commit = FND_API.G_TRUE) then
166: commit;
167: end if;
168:
169: --end if;

Line 172: WHEN FND_API.G_EXC_ERROR THEN

168:
169: --end if;
170:
171: EXCEPTION
172: WHEN FND_API.G_EXC_ERROR THEN
173: ROLLBACK TO CreateBSCDimGrpPVT;
174: FND_MSG_PUB.Count_And_Get
175: ( p_encoded => 'F'
176: , p_count => x_msg_count

Line 179: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

175: ( p_encoded => 'F'
176: , p_count => x_msg_count
177: , p_data => x_msg_data
178: );
179: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
180: x_return_status := FND_API.G_RET_STS_ERROR;
181: RAISE;
182: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
183: ROLLBACK TO CreateBSCDimGrpPVT;

Line 180: x_return_status := FND_API.G_RET_STS_ERROR;

176: , p_count => x_msg_count
177: , p_data => x_msg_data
178: );
179: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
180: x_return_status := FND_API.G_RET_STS_ERROR;
181: RAISE;
182: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
183: ROLLBACK TO CreateBSCDimGrpPVT;
184: FND_MSG_PUB.Count_And_Get

Line 182: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

178: );
179: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
180: x_return_status := FND_API.G_RET_STS_ERROR;
181: RAISE;
182: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
183: ROLLBACK TO CreateBSCDimGrpPVT;
184: FND_MSG_PUB.Count_And_Get
185: ( p_encoded => 'F'
186: , p_count => x_msg_count

Line 189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

185: ( p_encoded => 'F'
186: , p_count => x_msg_count
187: , p_data => x_msg_data
188: );
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
190: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
191: RAISE;
192: WHEN NO_DATA_FOUND THEN
193: ROLLBACK TO CreateBSCDimGrpPVT;

Line 190: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);

186: , p_count => x_msg_count
187: , p_data => x_msg_data
188: );
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
190: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
191: RAISE;
192: WHEN NO_DATA_FOUND THEN
193: ROLLBACK TO CreateBSCDimGrpPVT;
194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

190: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
191: RAISE;
192: WHEN NO_DATA_FOUND THEN
193: ROLLBACK TO CreateBSCDimGrpPVT;
194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
195: IF (x_msg_data IS NOT NULL) THEN
196: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Create_Dimension_Group ';
197: ELSE
198: x_msg_data := 'BSC_DIMENSION_GROUPS_PVT.Create_Dimension_Group '||SQLERRM;

Line 204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

200: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
201: RAISE;
202: WHEN OTHERS THEN
203: ROLLBACK TO CreateBSCDimGrpPVT;
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: if (SQLCODE = -01400) then
206: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
207: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', g_db_object);
208: FND_MSG_PUB.ADD;

Line 209: RAISE FND_API.G_EXC_ERROR;

205: if (SQLCODE = -01400) then
206: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
207: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', g_db_object);
208: FND_MSG_PUB.ADD;
209: RAISE FND_API.G_EXC_ERROR;
210: end if;
211: IF (x_msg_data IS NOT NULL) THEN
212: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Create_Dimension_Group ';
213: ELSE

Line 224: p_commit IN varchar2 := FND_API.G_FALSE

220: /************************************************************************************
221: ************************************************************************************/
222:
223: procedure Retrieve_Dimension_Group(
224: p_commit IN varchar2 := FND_API.G_FALSE
225: ,p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
226: ,x_Dim_Grp_Rec IN OUT NOCOPY BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
227: ,x_return_status OUT NOCOPY varchar2
228: ,x_msg_count OUT NOCOPY number

Line 236: x_return_status := FND_API.G_RET_STS_SUCCESS;

232: begin
233:
234: g_db_object := 'Retrieve_Dimension_Group';
235: FND_MSG_PUB.Initialize;
236: x_return_status := FND_API.G_RET_STS_SUCCESS;
237: select distinct name
238: into x_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name
239: from BSC_SYS_DIM_GROUPS_VL
240: where dim_group_id = p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id;

Line 242: if (p_commit = FND_API.G_TRUE) then

238: into x_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name
239: from BSC_SYS_DIM_GROUPS_VL
240: where dim_group_id = p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id;
241:
242: if (p_commit = FND_API.G_TRUE) then
243: commit;
244: end if;
245:
246: EXCEPTION

Line 247: WHEN FND_API.G_EXC_ERROR THEN

243: commit;
244: end if;
245:
246: EXCEPTION
247: WHEN FND_API.G_EXC_ERROR THEN
248: FND_MSG_PUB.Count_And_Get
249: ( p_encoded => 'F'
250: , p_count => x_msg_count
251: , p_data => x_msg_data

Line 253: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

249: ( p_encoded => 'F'
250: , p_count => x_msg_count
251: , p_data => x_msg_data
252: );
253: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
254: x_return_status := FND_API.G_RET_STS_ERROR;
255: RAISE;
256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
257: FND_MSG_PUB.Count_And_Get

Line 254: x_return_status := FND_API.G_RET_STS_ERROR;

250: , p_count => x_msg_count
251: , p_data => x_msg_data
252: );
253: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
254: x_return_status := FND_API.G_RET_STS_ERROR;
255: RAISE;
256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
257: FND_MSG_PUB.Count_And_Get
258: ( p_encoded => 'F'

Line 256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

252: );
253: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
254: x_return_status := FND_API.G_RET_STS_ERROR;
255: RAISE;
256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
257: FND_MSG_PUB.Count_And_Get
258: ( p_encoded => 'F'
259: , p_count => x_msg_count
260: , p_data => x_msg_data

Line 262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

258: ( p_encoded => 'F'
259: , p_count => x_msg_count
260: , p_data => x_msg_data
261: );
262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
263: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
264: RAISE;
265: WHEN NO_DATA_FOUND THEN
266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 263: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);

259: , p_count => x_msg_count
260: , p_data => x_msg_data
261: );
262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
263: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
264: RAISE;
265: WHEN NO_DATA_FOUND THEN
266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
267: IF (x_msg_data IS NOT NULL) THEN

Line 266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
263: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
264: RAISE;
265: WHEN NO_DATA_FOUND THEN
266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
267: IF (x_msg_data IS NOT NULL) THEN
268: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Retrieve_Dimension_Group ';
269: ELSE
270: x_msg_data := 'BSC_DIMENSION_GROUPS_PVT.Retrieve_Dimension_Group '||SQLERRM;

Line 275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

271: END IF;
272: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
273: RAISE;
274: WHEN OTHERS THEN
275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
276: IF (x_msg_data IS NOT NULL) THEN
277: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Retrieve_Dimension_Group ';
278: ELSE
279: x_msg_data := 'BSC_DIMENSION_GROUPS_PVT.Retrieve_Dimension_Group '||SQLERRM;

Line 289: p_commit IN varchar2 := FND_API.G_FALSE

285: /************************************************************************************
286: ************************************************************************************/
287:
288: procedure Update_Dimension_Group(
289: p_commit IN varchar2 := FND_API.G_FALSE
290: ,p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
291: ,x_return_status OUT NOCOPY varchar2
292: ,x_msg_count OUT NOCOPY number
293: ,x_msg_data OUT NOCOPY varchar2

Line 308: x_return_status := FND_API.G_RET_STS_SUCCESS;

304:
305: begin
306: SAVEPOINT UpdateBSCDimGrpPVT;
307: FND_MSG_PUB.Initialize;
308: x_return_status := FND_API.G_RET_STS_SUCCESS;
309: -- Assign all values in the passed "Record" parameter to the locally defined
310: -- "Record" variable.
311: l_Dim_Grp_Rec := p_Dim_Grp_Rec;
312:

Line 320: RAISE FND_API.G_EXC_ERROR;

316: if l_count = 0 then
317: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_ID');
318: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
319: FND_MSG_PUB.ADD;
320: RAISE FND_API.G_EXC_ERROR;
321: end if;
322: -- if id is null then check for short name name is not null
323: elsif (l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name is not null) then
324: IF (c_dim_lvls_by_group%ISOPEN) THEN

Line 333: RAISE FND_API.G_EXC_ERROR;

329: IF (c_dim_lvls_by_group%NOTFOUND) THEN
330: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
331: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME',l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
332: FND_MSG_PUB.ADD;
333: RAISE FND_API.G_EXC_ERROR;
334: END IF;
335: CLOSE c_dim_lvls_by_group;
336: else
337: FND_MESSAGE.SET_NAME('BSC','BSC_NO_GROUP_ID_ENTERED');

Line 340: RAISE FND_API.G_EXC_ERROR;

336: else
337: FND_MESSAGE.SET_NAME('BSC','BSC_NO_GROUP_ID_ENTERED');
338: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
339: FND_MSG_PUB.ADD;
340: RAISE FND_API.G_EXC_ERROR;
341: end if;
342:
343: -- In this case there is only one column that may be updated, therefore there is no
344: -- retrieval of previous values.

Line 368: if (p_commit = FND_API.G_TRUE) then

364: ,last_update_login = p_Dim_Grp_Rec.Bsc_Last_Update_Login
365: where dim_group_id = l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id
366: and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
367: END IF;
368: if (p_commit = FND_API.G_TRUE) then
369: commit;
370: end if;
371:
372: EXCEPTION

Line 373: WHEN FND_API.G_EXC_ERROR THEN

369: commit;
370: end if;
371:
372: EXCEPTION
373: WHEN FND_API.G_EXC_ERROR THEN
374: IF (c_dim_lvls_by_group%ISOPEN) THEN
375: CLOSE c_dim_lvls_by_group;
376: END IF;
377: ROLLBACK TO UpdateBSCDimGrpPVT;

Line 383: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

379: ( p_encoded => 'F'
380: , p_count => x_msg_count
381: , p_data => x_msg_data
382: );
383: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
384: x_return_status := FND_API.G_RET_STS_ERROR;
385: RAISE;
386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
387: IF (c_dim_lvls_by_group%ISOPEN) THEN

Line 384: x_return_status := FND_API.G_RET_STS_ERROR;

380: , p_count => x_msg_count
381: , p_data => x_msg_data
382: );
383: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
384: x_return_status := FND_API.G_RET_STS_ERROR;
385: RAISE;
386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
387: IF (c_dim_lvls_by_group%ISOPEN) THEN
388: CLOSE c_dim_lvls_by_group;

Line 386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

382: );
383: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
384: x_return_status := FND_API.G_RET_STS_ERROR;
385: RAISE;
386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
387: IF (c_dim_lvls_by_group%ISOPEN) THEN
388: CLOSE c_dim_lvls_by_group;
389: END IF;
390: ROLLBACK TO UpdateBSCDimGrpPVT;

Line 396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

392: ( p_encoded => 'F'
393: , p_count => x_msg_count
394: , p_data => x_msg_data
395: );
396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
397: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
398: RAISE;
399: WHEN NO_DATA_FOUND THEN
400: IF (c_dim_lvls_by_group%ISOPEN) THEN

Line 397: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);

393: , p_count => x_msg_count
394: , p_data => x_msg_data
395: );
396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
397: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
398: RAISE;
399: WHEN NO_DATA_FOUND THEN
400: IF (c_dim_lvls_by_group%ISOPEN) THEN
401: CLOSE c_dim_lvls_by_group;

Line 404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

400: IF (c_dim_lvls_by_group%ISOPEN) THEN
401: CLOSE c_dim_lvls_by_group;
402: END IF;
403: ROLLBACK TO UpdateBSCDimGrpPVT;
404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
405: IF (x_msg_data IS NOT NULL) THEN
406: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Update_Dimension_Group ';
407: ELSE
408: x_msg_data := 'BSC_DIMENSION_GROUPS_PVT.Update_Dimension_Group '||SQLERRM;

Line 417: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

413: IF (c_dim_lvls_by_group%ISOPEN) THEN
414: CLOSE c_dim_lvls_by_group;
415: END IF;
416: ROLLBACK TO UpdateBSCDimGrpPVT;
417: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
418: IF (x_msg_data IS NOT NULL) THEN
419: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Update_Dimension_Group ';
420: ELSE
421: x_msg_data := 'BSC_DIMENSION_GROUPS_PVT.Update_Dimension_Group '||SQLERRM;

Line 431: p_commit IN varchar2 := FND_API.G_FALSE

427: /************************************************************************************
428: ************************************************************************************/
429:
430: procedure Delete_Dimension_Group(
431: p_commit IN varchar2 := FND_API.G_FALSE
432: ,p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
433: ,x_return_status OUT NOCOPY varchar2
434: ,x_msg_count OUT NOCOPY number
435: ,x_msg_data OUT NOCOPY varchar2

Line 451: x_return_status := FND_API.G_RET_STS_SUCCESS;

447:
448: begin
449: SAVEPOINT DeleteBSCDimGrpPVT;
450: FND_MSG_PUB.Initialize;
451: x_return_status := FND_API.G_RET_STS_SUCCESS;
452: -- Assign all values in the passed "Record" parameter to the locally defined
453: -- "Record" variable.
454: l_Dim_Grp_Rec := p_Dim_Grp_Rec;
455:

Line 462: RAISE FND_API.G_EXC_ERROR;

458: if l_count = 0 then
459: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_ID');
460: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
461: FND_MSG_PUB.ADD;
462: RAISE FND_API.G_EXC_ERROR;
463: end if;
464: -- if id is null then check that short name is not null
465: elsif (l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name is not null) then
466: IF (c_dim_lvls_by_group%ISOPEN) THEN

Line 475: RAISE FND_API.G_EXC_ERROR;

471: IF (c_dim_lvls_by_group%NOTFOUND) THEN
472: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
473: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME',l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
474: FND_MSG_PUB.ADD;
475: RAISE FND_API.G_EXC_ERROR;
476: END IF;
477: CLOSE c_dim_lvls_by_group;
478: else
479: -- if id and shortname both are null then check that name is not null

Line 489: RAISE FND_API.G_EXC_ERROR;

485: if l_count = 0 then
486: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_NAME');
487: FND_MESSAGE.SET_TOKEN('BSC_GROUP_NAME', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
488: FND_MSG_PUB.ADD;
489: RAISE FND_API.G_EXC_ERROR;
490: else -- get id for this name
491: select distinct dim_group_id
492: into l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id
493: from BSC_SYS_DIM_GROUPS_VL

Line 500: RAISE FND_API.G_EXC_ERROR;

496: else
497: FND_MESSAGE.SET_NAME('BSC','BSC_NO_GROUP_NAME_ENTERED');
498: FND_MESSAGE.SET_TOKEN('BSC_NO_GROUP', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
499: FND_MSG_PUB.ADD;
500: RAISE FND_API.G_EXC_ERROR;
501: end if;
502: end if;
503:
504: -- If there are no more dimensions assigned to this group then the group

Line 515: if (p_commit = FND_API.G_TRUE) then

511: delete from BSC_SYS_DIM_GROUPS_TL
512: where dim_group_id = l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id;
513: end if;
514:
515: if (p_commit = FND_API.G_TRUE) then
516: commit;
517: end if;
518:
519: EXCEPTION

Line 520: WHEN FND_API.G_EXC_ERROR THEN

516: commit;
517: end if;
518:
519: EXCEPTION
520: WHEN FND_API.G_EXC_ERROR THEN
521: IF (c_dim_lvls_by_group%ISOPEN) THEN
522: CLOSE c_dim_lvls_by_group;
523: END IF;
524: ROLLBACK TO DeleteBSCDimGrpPVT;

Line 530: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

526: ( p_encoded => 'F'
527: , p_count => x_msg_count
528: , p_data => x_msg_data
529: );
530: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
531: x_return_status := FND_API.G_RET_STS_ERROR;
532: RAISE;
533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
534: IF (c_dim_lvls_by_group%ISOPEN) THEN

Line 531: x_return_status := FND_API.G_RET_STS_ERROR;

527: , p_count => x_msg_count
528: , p_data => x_msg_data
529: );
530: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
531: x_return_status := FND_API.G_RET_STS_ERROR;
532: RAISE;
533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
534: IF (c_dim_lvls_by_group%ISOPEN) THEN
535: CLOSE c_dim_lvls_by_group;

Line 533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

529: );
530: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
531: x_return_status := FND_API.G_RET_STS_ERROR;
532: RAISE;
533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
534: IF (c_dim_lvls_by_group%ISOPEN) THEN
535: CLOSE c_dim_lvls_by_group;
536: END IF;
537: ROLLBACK TO DeleteBSCDimGrpPVT;

Line 543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

539: ( p_encoded => 'F'
540: , p_count => x_msg_count
541: , p_data => x_msg_data
542: );
543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
544: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
545: RAISE;
546: WHEN NO_DATA_FOUND THEN
547: IF (c_dim_lvls_by_group%ISOPEN) THEN

Line 544: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);

540: , p_count => x_msg_count
541: , p_data => x_msg_data
542: );
543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
544: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
545: RAISE;
546: WHEN NO_DATA_FOUND THEN
547: IF (c_dim_lvls_by_group%ISOPEN) THEN
548: CLOSE c_dim_lvls_by_group;

Line 551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

547: IF (c_dim_lvls_by_group%ISOPEN) THEN
548: CLOSE c_dim_lvls_by_group;
549: END IF;
550: ROLLBACK TO DeleteBSCDimGrpPVT;
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
552: IF (x_msg_data IS NOT NULL) THEN
553: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Delete_Dimension_Group ';
554: ELSE
555: x_msg_data := 'BSC_DIMENSION_GROUPS_PVT.Delete_Dimension_Group '||SQLERRM;

Line 564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

560: IF (c_dim_lvls_by_group%ISOPEN) THEN
561: CLOSE c_dim_lvls_by_group;
562: END IF;
563: ROLLBACK TO DeleteBSCDimGrpPVT;
564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
565: IF (x_msg_data IS NOT NULL) THEN
566: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Delete_Dimension_Group ';
567: ELSE
568: x_msg_data := 'BSC_DIMENSION_GROUPS_PVT.Delete_Dimension_Group '||SQLERRM;

Line 581: p_commit IN varchar2 := FND_API.G_FALSE

577: --: This procedure assigns the dimension to the dimension group.
578: --: This procedure is part of the Dimension Group API.
579:
580: procedure Create_Dim_Levels_In_Group(
581: p_commit IN varchar2 := FND_API.G_FALSE
582: ,p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
583: ,x_return_status OUT NOCOPY varchar2
584: ,x_msg_count OUT NOCOPY number
585: ,x_msg_data OUT NOCOPY varchar2

Line 601: x_return_status := FND_API.G_RET_STS_SUCCESS;

597:
598: begin
599: SAVEPOINT CreateBSCDimLevInGrpPVT;
600: FND_MSG_PUB.Initialize;
601: x_return_status := FND_API.G_RET_STS_SUCCESS;
602: -- Assign all values in the passed "Record" parameter to the locally defined
603: -- "Record" variable.
604: l_Dim_Grp_Rec := p_Dim_Grp_Rec;
605:

Line 613: RAISE FND_API.G_EXC_ERROR;

609: if l_count = 0 then
610: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_ID');
611: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
612: FND_MSG_PUB.ADD;
613: RAISE FND_API.G_EXC_ERROR;
614: end if;
615: -- if id is null then check that short name is not null
616: elsif l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name is not null then
617: IF (c_dim_lvls_by_group%ISOPEN) THEN

Line 626: RAISE FND_API.G_EXC_ERROR;

622: IF (c_dim_lvls_by_group%NOTFOUND) THEN
623: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
624: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME',l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
625: FND_MSG_PUB.ADD;
626: RAISE FND_API.G_EXC_ERROR;
627: END IF;
628: CLOSE c_dim_lvls_by_group;
629: else
630: -- if id and short name is null then check that name is not null

Line 640: RAISE FND_API.G_EXC_ERROR;

636: if l_count = 0 then
637: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_NAME');
638: FND_MESSAGE.SET_TOKEN('BSC_GROUP_NAME', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
639: FND_MSG_PUB.ADD;
640: RAISE FND_API.G_EXC_ERROR;
641: else -- get id for this name
642: select distinct dim_group_id
643: into l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id
644: from BSC_SYS_DIM_GROUPS_VL

Line 651: RAISE FND_API.G_EXC_ERROR;

647: else
648: FND_MESSAGE.SET_NAME('BSC','BSC_NO_GROUP_NAME_ENTERED');
649: FND_MESSAGE.SET_TOKEN('BSC_NO_GROUP', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
650: FND_MSG_PUB.ADD;
651: RAISE FND_API.G_EXC_ERROR;
652: end if;
653: end if;
654:
655: -- Check Dimension level id is valid.

Line 662: RAISE FND_API.G_EXC_ERROR;

658: if l_count = 0 then
659: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_LEVEL_ID');
660: FND_MESSAGE.SET_TOKEN('BSC_LEVEL_ID', l_Dim_Grp_Rec.Bsc_Level_Id);
661: FND_MSG_PUB.ADD;
662: RAISE FND_API.G_EXC_ERROR;
663: end if;
664: else
665: FND_MESSAGE.SET_NAME('BSC','BSC_NO_LEVEL_ID_ENTERED');
666: FND_MESSAGE.SET_TOKEN('BSC_LEVEL_ID', l_Dim_Grp_Rec.Bsc_Level_Id);

Line 668: RAISE FND_API.G_EXC_ERROR;

664: else
665: FND_MESSAGE.SET_NAME('BSC','BSC_NO_LEVEL_ID_ENTERED');
666: FND_MESSAGE.SET_TOKEN('BSC_LEVEL_ID', l_Dim_Grp_Rec.Bsc_Level_Id);
667: FND_MSG_PUB.ADD;
668: RAISE FND_API.G_EXC_ERROR;
669: end if;
670:
671:
672:

Line 721: if (p_commit = FND_API.G_TRUE) then

717: ,l_Dim_Grp_Rec.Bsc_Group_Level_Parent_In_Tot
718: ,l_Dim_Grp_Rec.Bsc_Group_Level_No_Items
719: ,l_Dim_Grp_Rec.Bsc_Group_Level_Where_Clause);
720:
721: if (p_commit = FND_API.G_TRUE) then
722: commit;
723: end if;
724:
725: end if;

Line 728: WHEN FND_API.G_EXC_ERROR THEN

724:
725: end if;
726:
727: EXCEPTION
728: WHEN FND_API.G_EXC_ERROR THEN
729: ROLLBACK TO CreateBSCDimLevInGrpPVT;
730: FND_MSG_PUB.Count_And_Get
731: ( p_encoded => 'F'
732: , p_count => x_msg_count

Line 735: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

731: ( p_encoded => 'F'
732: , p_count => x_msg_count
733: , p_data => x_msg_data
734: );
735: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
736: x_return_status := FND_API.G_RET_STS_ERROR;
737: RAISE;
738: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
739: ROLLBACK TO CreateBSCDimLevInGrpPVT;

Line 736: x_return_status := FND_API.G_RET_STS_ERROR;

732: , p_count => x_msg_count
733: , p_data => x_msg_data
734: );
735: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
736: x_return_status := FND_API.G_RET_STS_ERROR;
737: RAISE;
738: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
739: ROLLBACK TO CreateBSCDimLevInGrpPVT;
740: FND_MSG_PUB.Count_And_Get

Line 738: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

734: );
735: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
736: x_return_status := FND_API.G_RET_STS_ERROR;
737: RAISE;
738: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
739: ROLLBACK TO CreateBSCDimLevInGrpPVT;
740: FND_MSG_PUB.Count_And_Get
741: ( p_encoded => 'F'
742: , p_count => x_msg_count

Line 745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

741: ( p_encoded => 'F'
742: , p_count => x_msg_count
743: , p_data => x_msg_data
744: );
745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
746: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
747: RAISE;
748: WHEN NO_DATA_FOUND THEN
749: ROLLBACK TO CreateBSCDimLevInGrpPVT;

Line 746: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);

742: , p_count => x_msg_count
743: , p_data => x_msg_data
744: );
745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
746: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
747: RAISE;
748: WHEN NO_DATA_FOUND THEN
749: ROLLBACK TO CreateBSCDimLevInGrpPVT;
750: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 750: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

746: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
747: RAISE;
748: WHEN NO_DATA_FOUND THEN
749: ROLLBACK TO CreateBSCDimLevInGrpPVT;
750: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
751: IF (x_msg_data IS NOT NULL) THEN
752: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Create_Dim_Levels_In_Group ';
753: ELSE
754: x_msg_data := 'BSC_DIMENSION_GROUPS_PVT.Create_Dim_Levels_In_Group '||SQLERRM;

Line 764: RAISE FND_API.G_EXC_ERROR;

760: if (SQLCODE = -01400) then
761: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
762: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', g_db_object);
763: FND_MSG_PUB.ADD;
764: RAISE FND_API.G_EXC_ERROR;
765: end if;
766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
767: IF (x_msg_data IS NOT NULL) THEN
768: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Create_Dim_Levels_In_Group ';

Line 766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

762: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', g_db_object);
763: FND_MSG_PUB.ADD;
764: RAISE FND_API.G_EXC_ERROR;
765: end if;
766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
767: IF (x_msg_data IS NOT NULL) THEN
768: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Create_Dim_Levels_In_Group ';
769: ELSE
770: x_msg_data := 'BSC_DIMENSION_GROUPS_PVT.Create_Dim_Levels_In_Group '||SQLERRM;

Line 780: p_commit IN varchar2 := FND_API.G_FALSE

776: /************************************************************************************
777: ************************************************************************************/
778:
779: procedure Retrieve_Dim_Levels_In_Group(
780: p_commit IN varchar2 := FND_API.G_FALSE
781: ,p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
782: ,x_Dim_Grp_Rec IN OUT NOCOPY BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
783: ,x_return_status OUT NOCOPY varchar2
784: ,x_msg_count OUT NOCOPY number

Line 790: x_return_status := FND_API.G_RET_STS_SUCCESS;

786: ) is
787:
788: begin
789:
790: x_return_status := FND_API.G_RET_STS_SUCCESS;
791: FND_MSG_PUB.Initialize;
792: g_db_object := 'Retrieve_Dim_Levels_In_Group';
793: -- Code added for ALL start here
794: -- PMF passes dimension level short name and dimension short name.

Line 823: if (p_commit = FND_API.G_TRUE) then

819: ,x_Dim_Grp_Rec.Bsc_Group_Level_Where_Clause
820: FROM BSC_SYS_DIM_LEVELS_BY_GROUP
821: WHERE dim_group_id = p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id
822: AND dim_level_id = p_Dim_Grp_Rec.Bsc_Level_Id;
823: if (p_commit = FND_API.G_TRUE) then
824: commit;
825: end if;
826:
827: EXCEPTION

Line 828: WHEN FND_API.G_EXC_ERROR THEN

824: commit;
825: end if;
826:
827: EXCEPTION
828: WHEN FND_API.G_EXC_ERROR THEN
829: x_return_status := FND_API.G_RET_STS_ERROR;
830: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
831: ,p_data => x_msg_data);
832: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 829: x_return_status := FND_API.G_RET_STS_ERROR;

825: end if;
826:
827: EXCEPTION
828: WHEN FND_API.G_EXC_ERROR THEN
829: x_return_status := FND_API.G_RET_STS_ERROR;
830: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
831: ,p_data => x_msg_data);
832: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 832: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

828: WHEN FND_API.G_EXC_ERROR THEN
829: x_return_status := FND_API.G_RET_STS_ERROR;
830: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
831: ,p_data => x_msg_data);
832: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
834: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
835: ,p_data => x_msg_data);
836: WHEN NO_DATA_FOUND THEN

Line 833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

829: x_return_status := FND_API.G_RET_STS_ERROR;
830: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
831: ,p_data => x_msg_data);
832: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
834: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
835: ,p_data => x_msg_data);
836: WHEN NO_DATA_FOUND THEN
837: FND_MSG_PUB.Initialize;

Line 841: RAISE FND_API.G_EXC_ERROR;

837: FND_MSG_PUB.Initialize;
838: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
839: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', g_db_object);
840: FND_MSG_PUB.ADD;
841: RAISE FND_API.G_EXC_ERROR;
842: WHEN OTHERS THEN
843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
844: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
845: ,p_data => x_msg_data);

Line 843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

839: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', g_db_object);
840: FND_MSG_PUB.ADD;
841: RAISE FND_API.G_EXC_ERROR;
842: WHEN OTHERS THEN
843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
844: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
845: ,p_data => x_msg_data);
846:
847: end Retrieve_Dim_Levels_In_Group;

Line 853: p_commit IN varchar2 := FND_API.G_FALSE

849: /************************************************************************************
850: ************************************************************************************/
851:
852: procedure Update_Dim_Levels_In_Group(
853: p_commit IN varchar2 := FND_API.G_FALSE
854: ,p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
855: ,x_return_status OUT NOCOPY varchar2
856: ,x_msg_count OUT NOCOPY number
857: ,x_msg_data OUT NOCOPY varchar2

Line 874: x_return_status := FND_API.G_RET_STS_SUCCESS;

870:
871: begin
872: SAVEPOINT UpdateBSCDimLevInGrpPVT;
873: FND_MSG_PUB.Initialize;
874: x_return_status := FND_API.G_RET_STS_SUCCESS;
875: l_Dim_Grp_Rec_in := p_Dim_Grp_Rec;
876: -- Check that the group id is valid or that the name is valid.
877: if p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id is not null then
878: l_count := BSC_DIMENSION_GROUPS_PVT.Validate_Dim_Group_Id(p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);

Line 883: RAISE FND_API.G_EXC_ERROR;

879: if l_count = 0 then
880: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_ID');
881: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
882: FND_MSG_PUB.ADD;
883: RAISE FND_API.G_EXC_ERROR;
884: end if;
885: -- if id is null then check that short name is not null
886: elsif p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name is not null then
887: IF (c_dim_lvls_by_group%ISOPEN) THEN

Line 896: RAISE FND_API.G_EXC_ERROR;

892: IF (c_dim_lvls_by_group%NOTFOUND) THEN
893: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
894: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME',l_Dim_Grp_Rec_in.Bsc_Dim_Level_Group_Short_Name);
895: FND_MSG_PUB.ADD;
896: RAISE FND_API.G_EXC_ERROR;
897: END IF;
898: CLOSE c_dim_lvls_by_group;
899: else
900: -- if id is null then check that name is not null

Line 910: RAISE FND_API.G_EXC_ERROR;

906: if l_count = 0 then
907: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_NAME');
908: FND_MESSAGE.SET_TOKEN('BSC_GROUP_NAME', p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
909: FND_MSG_PUB.ADD;
910: RAISE FND_API.G_EXC_ERROR;
911: else -- get id for this name
912: select distinct dim_group_id
913: into l_Dim_Grp_Rec_in.Bsc_Dim_Level_Group_Id
914: from BSC_SYS_DIM_GROUPS_VL

Line 921: RAISE FND_API.G_EXC_ERROR;

917: else
918: FND_MESSAGE.SET_NAME('BSC','BSC_NO_GROUP_NAME_ENTERED');
919: FND_MESSAGE.SET_TOKEN('BSC_NO_GROUP', p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
920: FND_MSG_PUB.ADD;
921: RAISE FND_API.G_EXC_ERROR;
922: end if;
923: end if;
924:
925: -- Check Dimension level id is valid.

Line 932: RAISE FND_API.G_EXC_ERROR;

928: if l_count = 0 then
929: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_LEVEL_ID');
930: FND_MESSAGE.SET_TOKEN('BSC_LEVEL_ID', p_Dim_Grp_Rec.Bsc_Level_Id);
931: FND_MSG_PUB.ADD;
932: RAISE FND_API.G_EXC_ERROR;
933: end if;
934: else
935: FND_MESSAGE.SET_NAME('BSC','BSC_NO_LEVEL_ID_ENTERED');
936: FND_MESSAGE.SET_TOKEN('BSC_LEVEL_ID', p_Dim_Grp_Rec.Bsc_Level_Id);

Line 938: RAISE FND_API.G_EXC_ERROR;

934: else
935: FND_MESSAGE.SET_NAME('BSC','BSC_NO_LEVEL_ID_ENTERED');
936: FND_MESSAGE.SET_TOKEN('BSC_LEVEL_ID', p_Dim_Grp_Rec.Bsc_Level_Id);
937: FND_MSG_PUB.ADD;
938: RAISE FND_API.G_EXC_ERROR;
939: end if;
940:
941: -- Not all values will be passed. We need to make sure values not passed are not
942: -- changed by procedure, therefore we get what is there before we do any updates.

Line 1004: if (p_commit = FND_API.G_TRUE) then

1000: ,where_clause = l_Dim_Grp_Rec.Bsc_Group_Level_Where_Clause
1001: where dim_group_id = l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id
1002: and dim_level_id = l_Dim_Grp_Rec.Bsc_Level_Id;
1003:
1004: if (p_commit = FND_API.G_TRUE) then
1005: commit;
1006: end if;
1007:
1008: EXCEPTION

Line 1009: WHEN FND_API.G_EXC_ERROR THEN

1005: commit;
1006: end if;
1007:
1008: EXCEPTION
1009: WHEN FND_API.G_EXC_ERROR THEN
1010: ROLLBACK TO UpdateBSCDimLevInGrpPVT;
1011: CLOSE c_dim_lvls_by_group;
1012: FND_MSG_PUB.Count_And_Get
1013: ( p_encoded => 'F'

Line 1017: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

1013: ( p_encoded => 'F'
1014: , p_count => x_msg_count
1015: , p_data => x_msg_data
1016: );
1017: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1018: x_return_status := FND_API.G_RET_STS_ERROR;
1019: RAISE;
1020: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1021: ROLLBACK TO UpdateBSCDimLevInGrpPVT;

Line 1018: x_return_status := FND_API.G_RET_STS_ERROR;

1014: , p_count => x_msg_count
1015: , p_data => x_msg_data
1016: );
1017: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1018: x_return_status := FND_API.G_RET_STS_ERROR;
1019: RAISE;
1020: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1021: ROLLBACK TO UpdateBSCDimLevInGrpPVT;
1022: CLOSE c_dim_lvls_by_group;

Line 1020: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1016: );
1017: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1018: x_return_status := FND_API.G_RET_STS_ERROR;
1019: RAISE;
1020: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1021: ROLLBACK TO UpdateBSCDimLevInGrpPVT;
1022: CLOSE c_dim_lvls_by_group;
1023: FND_MSG_PUB.Count_And_Get
1024: ( p_encoded => 'F'

Line 1028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1024: ( p_encoded => 'F'
1025: , p_count => x_msg_count
1026: , p_data => x_msg_data
1027: );
1028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1029: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1030: RAISE;
1031: WHEN NO_DATA_FOUND THEN
1032: ROLLBACK TO UpdateBSCDimLevInGrpPVT;

Line 1029: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);

1025: , p_count => x_msg_count
1026: , p_data => x_msg_data
1027: );
1028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1029: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1030: RAISE;
1031: WHEN NO_DATA_FOUND THEN
1032: ROLLBACK TO UpdateBSCDimLevInGrpPVT;
1033: CLOSE c_dim_lvls_by_group;

Line 1034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1030: RAISE;
1031: WHEN NO_DATA_FOUND THEN
1032: ROLLBACK TO UpdateBSCDimLevInGrpPVT;
1033: CLOSE c_dim_lvls_by_group;
1034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1035: IF (x_msg_data IS NOT NULL) THEN
1036: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Update_Dim_Levels_In_Group ';
1037: ELSE
1038: x_msg_data := 'BSC_DIMENSION_GROUPS_PVT.Update_Dim_Levels_In_Group '||SQLERRM;

Line 1045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1041: RAISE;
1042: WHEN OTHERS THEN
1043: ROLLBACK TO UpdateBSCDimLevInGrpPVT;
1044: CLOSE c_dim_lvls_by_group;
1045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1046: IF (x_msg_data IS NOT NULL) THEN
1047: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Update_Dim_Levels_In_Group ';
1048: ELSE
1049: x_msg_data := 'BSC_DIMENSION_GROUPS_PVT.Update_Dim_Levels_In_Group '||SQLERRM;

Line 1059: p_commit IN varchar2 := FND_API.G_FALSE

1055: /************************************************************************************
1056: ************************************************************************************/
1057:
1058: procedure Delete_Dim_Levels_In_Group(
1059: p_commit IN varchar2 := FND_API.G_FALSE
1060: ,p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
1061: ,x_return_status OUT NOCOPY varchar2
1062: ,x_msg_count OUT NOCOPY number
1063: ,x_msg_data OUT NOCOPY varchar2

Line 1079: x_return_status := FND_API.G_RET_STS_SUCCESS;

1075:
1076: begin
1077: SAVEPOINT DeleteBSCDimLevInGrpPVT;
1078: FND_MSG_PUB.Initialize;
1079: x_return_status := FND_API.G_RET_STS_SUCCESS;
1080: -- Assign all values in the passed "Record" parameter to the locally defined
1081: -- "Record" variable.
1082: l_Dim_Grp_Rec := p_Dim_Grp_Rec;
1083:

Line 1091: RAISE FND_API.G_EXC_ERROR;

1087: if l_count = 0 then
1088: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_ID');
1089: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
1090: FND_MSG_PUB.ADD;
1091: RAISE FND_API.G_EXC_ERROR;
1092: end if;
1093: -- if id is null then check for short name name is not null
1094: elsif l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name is not null then
1095: IF (c_dim_lvls_by_group%ISOPEN) THEN

Line 1104: RAISE FND_API.G_EXC_ERROR;

1100: IF (c_dim_lvls_by_group%NOTFOUND) THEN
1101: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
1102: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME',l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
1103: FND_MSG_PUB.ADD;
1104: RAISE FND_API.G_EXC_ERROR;
1105: END IF;
1106: CLOSE c_dim_lvls_by_group;
1107: else
1108: -- if id and shortname both are null then check that name is not null

Line 1118: RAISE FND_API.G_EXC_ERROR;

1114: if l_count = 0 then
1115: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_NAME');
1116: FND_MESSAGE.SET_TOKEN('BSC_GROUP_NAME', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
1117: FND_MSG_PUB.ADD;
1118: RAISE FND_API.G_EXC_ERROR;
1119: else -- get id for this name
1120: select distinct dim_group_id
1121: into l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id
1122: from BSC_SYS_DIM_GROUPS_VL

Line 1129: RAISE FND_API.G_EXC_ERROR;

1125: else
1126: FND_MESSAGE.SET_NAME('BSC','BSC_NO_GROUP_NAME_ENTERED');
1127: FND_MESSAGE.SET_TOKEN('BSC_NO_GROUP', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
1128: FND_MSG_PUB.ADD;
1129: RAISE FND_API.G_EXC_ERROR;
1130: end if;
1131: end if;
1132:
1133: -- Check Dimension level id is valid.

Line 1140: RAISE FND_API.G_EXC_ERROR;

1136: if l_count = 0 then
1137: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_LEVEL_ID');
1138: FND_MESSAGE.SET_TOKEN('BSC_LEVEL_ID', l_Dim_Grp_Rec.Bsc_Level_Id);
1139: FND_MSG_PUB.ADD;
1140: RAISE FND_API.G_EXC_ERROR;
1141: end if;
1142:
1143: delete from BSC_SYS_DIM_LEVELS_BY_GROUP
1144: where dim_group_id = l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id

Line 1150: if (p_commit = FND_API.G_TRUE) then

1146: else
1147: delete from BSC_SYS_DIM_LEVELS_BY_GROUP
1148: where dim_group_id = l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id;
1149: end if;
1150: if (p_commit = FND_API.G_TRUE) then
1151: commit;
1152: end if;
1153:
1154: EXCEPTION

Line 1155: WHEN FND_API.G_EXC_ERROR THEN

1151: commit;
1152: end if;
1153:
1154: EXCEPTION
1155: WHEN FND_API.G_EXC_ERROR THEN
1156: CLOSE c_dim_lvls_by_group;
1157: ROLLBACK TO DeleteBSCDimLevInGrpPVT;
1158: FND_MSG_PUB.Count_And_Get
1159: ( p_encoded => 'F'

Line 1163: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

1159: ( p_encoded => 'F'
1160: , p_count => x_msg_count
1161: , p_data => x_msg_data
1162: );
1163: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1164: x_return_status := FND_API.G_RET_STS_ERROR;
1165: RAISE;
1166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1167: CLOSE c_dim_lvls_by_group;

Line 1164: x_return_status := FND_API.G_RET_STS_ERROR;

1160: , p_count => x_msg_count
1161: , p_data => x_msg_data
1162: );
1163: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1164: x_return_status := FND_API.G_RET_STS_ERROR;
1165: RAISE;
1166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1167: CLOSE c_dim_lvls_by_group;
1168: ROLLBACK TO DeleteBSCDimLevInGrpPVT;

Line 1166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1162: );
1163: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1164: x_return_status := FND_API.G_RET_STS_ERROR;
1165: RAISE;
1166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1167: CLOSE c_dim_lvls_by_group;
1168: ROLLBACK TO DeleteBSCDimLevInGrpPVT;
1169: FND_MSG_PUB.Count_And_Get
1170: ( p_encoded => 'F'

Line 1174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1170: ( p_encoded => 'F'
1171: , p_count => x_msg_count
1172: , p_data => x_msg_data
1173: );
1174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1175: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1176: RAISE;
1177: WHEN NO_DATA_FOUND THEN
1178: CLOSE c_dim_lvls_by_group;

Line 1175: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);

1171: , p_count => x_msg_count
1172: , p_data => x_msg_data
1173: );
1174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1175: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1176: RAISE;
1177: WHEN NO_DATA_FOUND THEN
1178: CLOSE c_dim_lvls_by_group;
1179: ROLLBACK TO DeleteBSCDimLevInGrpPVT;

Line 1180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1176: RAISE;
1177: WHEN NO_DATA_FOUND THEN
1178: CLOSE c_dim_lvls_by_group;
1179: ROLLBACK TO DeleteBSCDimLevInGrpPVT;
1180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1181: IF (x_msg_data IS NOT NULL) THEN
1182: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Delete_Dim_Levels_In_Group ';
1183: ELSE
1184: x_msg_data := 'BSC_DIMENSION_GROUPS_PVT.Delete_Dim_Levels_In_Group '||SQLERRM;

Line 1191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1187: RAISE;
1188: WHEN OTHERS THEN
1189: CLOSE c_dim_lvls_by_group;
1190: ROLLBACK TO DeleteBSCDimLevInGrpPVT;
1191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1192: IF (x_msg_data IS NOT NULL) THEN
1193: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Delete_Dim_Levels_In_Group ';
1194: ELSE
1195: x_msg_data := 'BSC_DIMENSION_GROUPS_PVT.Delete_Dim_Levels_In_Group '||SQLERRM;

Line 1229: ( p_commit IN VARCHAR2 := FND_API.G_FALSE

1225: END get_Dim_Group_Id;
1226:
1227: --
1228: PROCEDURE Translate_Dimension_Group
1229: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
1230: ,p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
1231: ,x_return_status OUT NOCOPY VARCHAR2
1232: ,x_msg_count OUT NOCOPY NUMBER
1233: ,x_msg_data OUT NOCOPY VARCHAR2

Line 1238: x_return_status:= FND_API.G_RET_STS_SUCCESS;

1234: ) IS
1235: l_Dim_Grp_rec BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type;
1236: BEGIN
1237: SAVEPOINT TranslateBSCDimGrpPVT;
1238: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1239:
1240: Retrieve_Dim_Group(
1241: p_Dim_Grp_Rec => p_Dim_Grp_Rec
1242: ,x_Dim_Grp_Rec => l_Dim_Grp_rec

Line 1248: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1244: ,x_msg_count => x_msg_count
1245: ,x_msg_data => x_msg_data
1246: );
1247:
1248: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1249: RAISE FND_API.G_EXC_ERROR;
1250: END IF;
1251:
1252: IF (p_Dim_Grp_rec.Bsc_Dim_Level_Group_Name IS NOT NULL) THEN

Line 1249: RAISE FND_API.G_EXC_ERROR;

1245: ,x_msg_data => x_msg_data
1246: );
1247:
1248: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1249: RAISE FND_API.G_EXC_ERROR;
1250: END IF;
1251:
1252: IF (p_Dim_Grp_rec.Bsc_Dim_Level_Group_Name IS NOT NULL) THEN
1253: l_Dim_Grp_rec.Bsc_Dim_Level_Group_Name := p_Dim_Grp_rec.Bsc_Dim_Level_Group_Name;

Line 1267: IF (p_commit = FND_API.G_TRUE) THEN

1263: ,last_update_login = p_Dim_Grp_Rec.Bsc_Last_Update_Login
1264: WHERE short_name = p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name
1265: AND userenv('LANG') in (LANGUAGE, SOURCE_LANG);
1266:
1267: IF (p_commit = FND_API.G_TRUE) THEN
1268: COMMIT;
1269: END IF;
1270:
1271: EXCEPTION

Line 1272: WHEN FND_API.G_EXC_ERROR THEN

1268: COMMIT;
1269: END IF;
1270:
1271: EXCEPTION
1272: WHEN FND_API.G_EXC_ERROR THEN
1273: ROLLBACK TO TranslateBSCDimGrpPVT;
1274: FND_MSG_PUB.Count_And_Get(
1275: p_encoded => 'F'
1276: ,p_count => x_msg_count

Line 1279: x_return_status := FND_API.G_RET_STS_ERROR;

1275: p_encoded => 'F'
1276: ,p_count => x_msg_count
1277: ,p_data => x_msg_data
1278: );
1279: x_return_status := FND_API.G_RET_STS_ERROR;
1280: RAISE;
1281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1282: ROLLBACK TO TranslateBSCDimGrpPVT;
1283: FND_MSG_PUB.Count_And_Get(

Line 1281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1277: ,p_data => x_msg_data
1278: );
1279: x_return_status := FND_API.G_RET_STS_ERROR;
1280: RAISE;
1281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1282: ROLLBACK TO TranslateBSCDimGrpPVT;
1283: FND_MSG_PUB.Count_And_Get(
1284: p_encoded => 'F'
1285: ,p_count => x_msg_count

Line 1288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1284: p_encoded => 'F'
1285: ,p_count => x_msg_count
1286: ,p_data => x_msg_data
1287: );
1288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1289: RAISE;
1290: WHEN NO_DATA_FOUND THEN
1291: ROLLBACK TO TranslateBSCDimGrpPVT;
1292: x_return_status := FND_API.G_RET_STS_ERROR;

Line 1292: x_return_status := FND_API.G_RET_STS_ERROR;

1288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1289: RAISE;
1290: WHEN NO_DATA_FOUND THEN
1291: ROLLBACK TO TranslateBSCDimGrpPVT;
1292: x_return_status := FND_API.G_RET_STS_ERROR;
1293: IF (x_msg_data IS NOT NULL) THEN
1294: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Translate_Dimension_Group ';
1295: ELSE
1296: x_msg_data := 'BSC_DIMENSION_GROUPS_PVT.Translate_Dimension_Group '||SQLERRM;

Line 1301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1297: END IF;
1298: RAISE;
1299: WHEN OTHERS THEN
1300: ROLLBACK TO TranslateBSCDimGrpPVT;
1301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1302: IF (x_msg_data IS NOT NULL) THEN
1303: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Translate_Dimension_Group ';
1304: ELSE
1305: x_msg_data := 'BSC_DIMENSION_GROUPS_PVT.Translate_Dimension_Group '||SQLERRM;

Line 1322: x_return_status:= FND_API.G_RET_STS_SUCCESS;

1318: ,x_msg_data OUT NOCOPY VARCHAR2
1319: ) is
1320:
1321: begin
1322: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1323:
1324: SELECT distinct name, dim_group_id, short_name
1325: INTO
1326: x_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name

Line 1333: WHEN FND_API.G_EXC_ERROR THEN

1329: FROM BSC_SYS_DIM_GROUPS_VL
1330: WHERE short_name = p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name;
1331:
1332: EXCEPTION
1333: WHEN FND_API.G_EXC_ERROR THEN
1334: x_return_status := FND_API.G_RET_STS_ERROR;
1335: FND_MSG_PUB.Count_And_Get(
1336: p_encoded => 'F'
1337: ,p_count => x_msg_count

Line 1334: x_return_status := FND_API.G_RET_STS_ERROR;

1330: WHERE short_name = p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name;
1331:
1332: EXCEPTION
1333: WHEN FND_API.G_EXC_ERROR THEN
1334: x_return_status := FND_API.G_RET_STS_ERROR;
1335: FND_MSG_PUB.Count_And_Get(
1336: p_encoded => 'F'
1337: ,p_count => x_msg_count
1338: ,p_data => x_msg_data

Line 1340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1336: p_encoded => 'F'
1337: ,p_count => x_msg_count
1338: ,p_data => x_msg_data
1339: );
1340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1342: FND_MSG_PUB.Count_And_Get(
1343: p_encoded => 'F'
1344: ,p_count => x_msg_count

Line 1341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1337: ,p_count => x_msg_count
1338: ,p_data => x_msg_data
1339: );
1340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1342: FND_MSG_PUB.Count_And_Get(
1343: p_encoded => 'F'
1344: ,p_count => x_msg_count
1345: ,p_data => x_msg_data

Line 1348: x_return_status := FND_API.G_RET_STS_ERROR;

1344: ,p_count => x_msg_count
1345: ,p_data => x_msg_data
1346: );
1347: WHEN NO_DATA_FOUND THEN
1348: x_return_status := FND_API.G_RET_STS_ERROR;
1349: IF (x_msg_data IS NOT NULL) THEN
1350: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Retrieve_Dim_Group ';
1351: ELSE
1352: x_msg_data := 'BSC_DIMENSION_GROUPS_PVT.Retrieve_Dim_Group '||SQLERRM;

Line 1354: RAISE FND_API.G_EXC_ERROR;

1350: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Retrieve_Dim_Group ';
1351: ELSE
1352: x_msg_data := 'BSC_DIMENSION_GROUPS_PVT.Retrieve_Dim_Group '||SQLERRM;
1353: END IF;
1354: RAISE FND_API.G_EXC_ERROR;
1355: WHEN OTHERS THEN
1356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1357: IF (x_msg_data IS NOT NULL) THEN
1358: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Retrieve_Dim_Group ';

Line 1356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1352: x_msg_data := 'BSC_DIMENSION_GROUPS_PVT.Retrieve_Dim_Group '||SQLERRM;
1353: END IF;
1354: RAISE FND_API.G_EXC_ERROR;
1355: WHEN OTHERS THEN
1356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1357: IF (x_msg_data IS NOT NULL) THEN
1358: x_msg_data := x_msg_data||' -> BSC_DIMENSION_GROUPS_PVT.Retrieve_Dim_Group ';
1359: ELSE
1360: x_msg_data := 'BSC_DIMENSION_GROUPS_PVT.Retrieve_Dim_Group '||SQLERRM;

Line 1374: ( p_commit IN VARCHAR2 := FND_API.G_FALSE

1370:
1371: *************************************************************************************/
1372:
1373: procedure Translate_Dim_by_given_lang
1374: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
1375: , p_Dim_Grp_Rec IN BSC_DIMENSION_GROUPS_PUB.Bsc_Dim_Group_Rec_Type
1376: , x_return_status OUT NOCOPY VARCHAR2
1377: , x_msg_count OUT NOCOPY NUMBER
1378: , x_msg_data OUT NOCOPY VARCHAR2

Line 1386: x_return_status := FND_API.G_RET_STS_SUCCESS;

1382: BEGIN
1383:
1384: SAVEPOINT TransDimByLangBsc;
1385:
1386: x_return_status := FND_API.G_RET_STS_SUCCESS;
1387:
1388: FND_MSG_PUB.Initialize;
1389:
1390: UPDATE BSC_SYS_DIM_GROUPS_TL

Line 1397: IF (p_commit = FND_API.G_TRUE) THEN

1393: ,LAST_UPDATE_DATE = p_Dim_Grp_Rec.Bsc_Last_Update_Date
1394: WHERE SHORT_NAME = p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name
1395: AND LANGUAGE = p_Dim_Grp_Rec.Bsc_Language;
1396:
1397: IF (p_commit = FND_API.G_TRUE) THEN
1398: COMMIT;
1399: END IF;
1400:
1401:

Line 1403: WHEN FND_API.G_EXC_ERROR THEN

1399: END IF;
1400:
1401:
1402: EXCEPTION
1403: WHEN FND_API.G_EXC_ERROR THEN
1404: ROLLBACK TO TransDimByLangBsc;
1405: x_return_status := FND_API.G_RET_STS_ERROR;
1406: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1407: ,p_data => x_msg_data);

Line 1405: x_return_status := FND_API.G_RET_STS_ERROR;

1401:
1402: EXCEPTION
1403: WHEN FND_API.G_EXC_ERROR THEN
1404: ROLLBACK TO TransDimByLangBsc;
1405: x_return_status := FND_API.G_RET_STS_ERROR;
1406: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1407: ,p_data => x_msg_data);
1408:
1409: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 1409: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1405: x_return_status := FND_API.G_RET_STS_ERROR;
1406: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1407: ,p_data => x_msg_data);
1408:
1409: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1410: ROLLBACK TO TransDimByLangBsc;
1411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1412: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1413: ,p_data => x_msg_data);

Line 1411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1407: ,p_data => x_msg_data);
1408:
1409: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1410: ROLLBACK TO TransDimByLangBsc;
1411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1412: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1413: ,p_data => x_msg_data);
1414: WHEN NO_DATA_FOUND THEN
1415: ROLLBACK TO TransDimByLangBsc;

Line 1416: x_return_status := FND_API.G_RET_STS_ERROR;

1412: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1413: ,p_data => x_msg_data);
1414: WHEN NO_DATA_FOUND THEN
1415: ROLLBACK TO TransDimByLangBsc;
1416: x_return_status := FND_API.G_RET_STS_ERROR;
1417: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1418: ,p_data => x_msg_data);
1419: WHEN OTHERS THEN
1420: ROLLBACK TO TransDimByLangBsc;

Line 1421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1417: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1418: ,p_data => x_msg_data);
1419: WHEN OTHERS THEN
1420: ROLLBACK TO TransDimByLangBsc;
1421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1422: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1423: ,p_data => x_msg_data);
1424: END Translate_Dim_by_given_lang;
1425: