39: -- 2. Delete the entries from weights and scores tables using the
40: -- entries in Step1
41: ************************************************************************************/
42: PROCEDURE Delete_Bulk_Weights_Scores(
43: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
44: ,p_Param_Ids IN FND_TABLE_OF_NUMBER
45: ,p_dependent_measure_id IN NUMBER := NULL
46: ,x_return_status OUT NOCOPY VARCHAR2
47: ,x_msg_count OUT NOCOPY NUMBER
49: ) IS
50: l_Weight_Ids FND_TABLE_OF_NUMBER;
51: BEGIN
52: SAVEPOINT BisDeleteBulkWeightsScores;
53: x_return_status := FND_API.G_RET_STS_SUCCESS;
54:
55: IF p_Param_Ids.COUNT > 0 THEN
56: IF p_dependent_measure_id IS NULL THEN
57: SELECT
86: WHERE
87: weight_id = l_Weight_Ids(i);
88: END IF;
89:
90: IF FND_API.To_Boolean( p_commit ) THEN
91: COMMIT;
92: END IF;
93:
94: EXCEPTION
91: COMMIT;
92: END IF;
93:
94: EXCEPTION
95: WHEN FND_API.G_EXC_ERROR THEN
96: ROLLBACK TO BisDeleteBulkWeightsScores;
97: IF (x_msg_data IS NULL) THEN
98: FND_MSG_PUB.Count_And_Get
99: ( p_encoded => FND_API.G_FALSE
95: WHEN FND_API.G_EXC_ERROR THEN
96: ROLLBACK TO BisDeleteBulkWeightsScores;
97: IF (x_msg_data IS NULL) THEN
98: FND_MSG_PUB.Count_And_Get
99: ( p_encoded => FND_API.G_FALSE
100: , p_count => x_msg_count
101: , p_data => x_msg_data
102: );
103: END IF;
100: , p_count => x_msg_count
101: , p_data => x_msg_data
102: );
103: END IF;
104: x_return_status := FND_API.G_RET_STS_ERROR;
105: raise;
106: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
107: ROLLBACK TO BisDeleteBulkWeightsScores;
108: IF (x_msg_data IS NULL) THEN
102: );
103: END IF;
104: x_return_status := FND_API.G_RET_STS_ERROR;
105: raise;
106: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
107: ROLLBACK TO BisDeleteBulkWeightsScores;
108: IF (x_msg_data IS NULL) THEN
109: FND_MSG_PUB.Count_And_Get
110: ( p_encoded => FND_API.G_FALSE
106: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
107: ROLLBACK TO BisDeleteBulkWeightsScores;
108: IF (x_msg_data IS NULL) THEN
109: FND_MSG_PUB.Count_And_Get
110: ( p_encoded => FND_API.G_FALSE
111: , p_count => x_msg_count
112: , p_data => x_msg_data
113: );
114: END IF;
111: , p_count => x_msg_count
112: , p_data => x_msg_data
113: );
114: END IF;
115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
116: raise;
117: WHEN OTHERS THEN
118: ROLLBACK TO BisDeleteBulkWeightsScores;
119: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
116: raise;
117: WHEN OTHERS THEN
118: ROLLBACK TO BisDeleteBulkWeightsScores;
119: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
120: IF (x_msg_data IS NOT NULL) THEN
121: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Delete_Bulk_Weights_Scores ';
122: ELSE
123: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Delete_Bulk_Weights_Scores ';
141: -- 3. Delete the weights and scores corresponding to the above weight ids
142: -- 4. Delete all the parameter combinations corresponding to that definition
143: ************************************************************************************/
144: PROCEDURE Delete_Cascade_WM_Parameters(
145: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
146: ,p_weighted_definition_id IN NUMBER
147: ,x_return_status OUT NOCOPY VARCHAR2
148: ,x_msg_count OUT NOCOPY NUMBER
149: ,x_msg_data OUT NOCOPY VARCHAR2
151: l_Param_Ids FND_TABLE_OF_NUMBER;
152: l_Weight_Ids FND_TABLE_OF_NUMBER;
153: BEGIN
154: SAVEPOINT BisDeleteCascadeWMParameters;
155: x_return_status := FND_API.G_RET_STS_SUCCESS;
156:
157: SELECT
158: params.weighted_parameter_id
159: BULK COLLECT INTO
173: WHERE
174: weights.weighted_parameter_id IN (SELECT column_value FROM TABLE(CAST(l_Param_Ids AS FND_TABLE_OF_NUMBER)));
175:
176: Delete_Bulk_Weights_Scores (
177: p_commit => FND_API.G_FALSE
178: ,p_Param_Ids => l_Param_Ids
179: ,x_return_status => x_return_status
180: ,x_msg_count => x_msg_count
181: ,x_msg_data => x_msg_data
179: ,x_return_status => x_return_status
180: ,x_msg_count => x_msg_count
181: ,x_msg_data => x_msg_data
182: );
183: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
185: END IF;
186:
187: FORALL i in 1..l_Param_Ids.COUNT
180: ,x_msg_count => x_msg_count
181: ,x_msg_data => x_msg_data
182: );
183: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
185: END IF;
186:
187: FORALL i in 1..l_Param_Ids.COUNT
188: DELETE FROM
191: weighted_parameter_id = l_Param_Ids(i);
192:
193: END IF;
194:
195: IF FND_API.To_Boolean( p_commit ) THEN
196: COMMIT;
197: END IF;
198:
199: EXCEPTION
196: COMMIT;
197: END IF;
198:
199: EXCEPTION
200: WHEN FND_API.G_EXC_ERROR THEN
201: ROLLBACK TO BisDeleteCascadeWMParameters;
202: IF (x_msg_data IS NULL) THEN
203: FND_MSG_PUB.Count_And_Get
204: ( p_encoded => FND_API.G_FALSE
200: WHEN FND_API.G_EXC_ERROR THEN
201: ROLLBACK TO BisDeleteCascadeWMParameters;
202: IF (x_msg_data IS NULL) THEN
203: FND_MSG_PUB.Count_And_Get
204: ( p_encoded => FND_API.G_FALSE
205: , p_count => x_msg_count
206: , p_data => x_msg_data
207: );
208: END IF;
205: , p_count => x_msg_count
206: , p_data => x_msg_data
207: );
208: END IF;
209: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
210: x_return_status := FND_API.G_RET_STS_ERROR;
211: raise;
212: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
213: ROLLBACK TO BisDeleteCascadeWMParameters;
206: , p_data => x_msg_data
207: );
208: END IF;
209: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
210: x_return_status := FND_API.G_RET_STS_ERROR;
211: raise;
212: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
213: ROLLBACK TO BisDeleteCascadeWMParameters;
214: IF (x_msg_data IS NULL) THEN
208: END IF;
209: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
210: x_return_status := FND_API.G_RET_STS_ERROR;
211: raise;
212: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
213: ROLLBACK TO BisDeleteCascadeWMParameters;
214: IF (x_msg_data IS NULL) THEN
215: FND_MSG_PUB.Count_And_Get
216: ( p_encoded => FND_API.G_FALSE
212: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
213: ROLLBACK TO BisDeleteCascadeWMParameters;
214: IF (x_msg_data IS NULL) THEN
215: FND_MSG_PUB.Count_And_Get
216: ( p_encoded => FND_API.G_FALSE
217: , p_count => x_msg_count
218: , p_data => x_msg_data
219: );
220: END IF;
217: , p_count => x_msg_count
218: , p_data => x_msg_data
219: );
220: END IF;
221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
222: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
223: raise;
224: WHEN OTHERS THEN
225: ROLLBACK TO BisDeleteCascadeWMParameters;
218: , p_data => x_msg_data
219: );
220: END IF;
221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
222: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
223: raise;
224: WHEN OTHERS THEN
225: ROLLBACK TO BisDeleteCascadeWMParameters;
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
222: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
223: raise;
224: WHEN OTHERS THEN
225: ROLLBACK TO BisDeleteCascadeWMParameters;
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
227: IF (x_msg_data IS NOT NULL) THEN
228: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Delete_Cascade_WM_Parameters ';
229: ELSE
230: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Delete_Cascade_WM_Parameters ';
261: ------- APIs for tables BIS_WEIGHTED_MEASURE_DEPENDS
262: /*******************************************************************
263: *******************************************************************/
264: PROCEDURE Create_WM_Dependency(
265: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
266: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
267: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
268: ,x_return_status OUT NOCOPY VARCHAR2
269: ,x_msg_count OUT NOCOPY NUMBER
271: ) IS
272: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
273: BEGIN
274: SAVEPOINT CreateWMDependencyPUB;
275: x_return_status := FND_API.G_RET_STS_SUCCESS;
276: l_Bis_WM_Rec :=p_Bis_WM_Rec;
277:
278: --DBMS_OUTPUT.PUT_LINE(' *** Create_WM_Dependency ***');
279: --DBMS_OUTPUT.PUT_LINE('p_Bis_WM_Rec.weighted_measure_id = '|| p_Bis_WM_Rec.weighted_measure_id);
281: --DBMS_OUTPUT.PUT_LINE('p_Bis_WM_Rec.Created_By = '|| p_Bis_WM_Rec.Created_By );
282:
283: -- METADATA COLUMNS:
284: --weighted_measure_id
285: IF BIS_WEIGHTED_MEASURE_PVT.validate_measure_id(p_Bis_WM_Rec.weighted_measure_id) = FND_API.G_FALSE THEN
286: FND_MESSAGE.SET_NAME('BIS','BIS_WM_INVALIDE_W_MEASURE_ID');
287: FND_MESSAGE.SET_TOKEN('MEASURE', p_Bis_WM_Rec.weighted_measure_id);
288: FND_MSG_PUB.ADD;
289: RAISE FND_API.G_EXC_ERROR;
285: IF BIS_WEIGHTED_MEASURE_PVT.validate_measure_id(p_Bis_WM_Rec.weighted_measure_id) = FND_API.G_FALSE THEN
286: FND_MESSAGE.SET_NAME('BIS','BIS_WM_INVALIDE_W_MEASURE_ID');
287: FND_MESSAGE.SET_TOKEN('MEASURE', p_Bis_WM_Rec.weighted_measure_id);
288: FND_MSG_PUB.ADD;
289: RAISE FND_API.G_EXC_ERROR;
290: end if;
291: --dependent_measure_id
292: IF BIS_WEIGHTED_MEASURE_PVT.validate_measure_id(p_Bis_WM_Rec.dependent_measure_id) = FND_API.G_FALSE THEN
293: FND_MESSAGE.SET_NAME('BIS','BIS_WM_INVALIDE_D_MEASURE_ID');
288: FND_MSG_PUB.ADD;
289: RAISE FND_API.G_EXC_ERROR;
290: end if;
291: --dependent_measure_id
292: IF BIS_WEIGHTED_MEASURE_PVT.validate_measure_id(p_Bis_WM_Rec.dependent_measure_id) = FND_API.G_FALSE THEN
293: FND_MESSAGE.SET_NAME('BIS','BIS_WM_INVALIDE_D_MEASURE_ID');
294: FND_MESSAGE.SET_TOKEN('MEASURE', p_Bis_WM_Rec.weighted_measure_id);
295: FND_MSG_PUB.ADD;
296: RAISE FND_API.G_EXC_ERROR;
292: IF BIS_WEIGHTED_MEASURE_PVT.validate_measure_id(p_Bis_WM_Rec.dependent_measure_id) = FND_API.G_FALSE THEN
293: FND_MESSAGE.SET_NAME('BIS','BIS_WM_INVALIDE_D_MEASURE_ID');
294: FND_MESSAGE.SET_TOKEN('MEASURE', p_Bis_WM_Rec.weighted_measure_id);
295: FND_MSG_PUB.ADD;
296: RAISE FND_API.G_EXC_ERROR;
297: end if;
298:
299: -- WHO COLUMNS
300: l_Bis_WM_Rec.Creation_Date := sysdate;
316: );
317:
318:
319: EXCEPTION
320: WHEN FND_API.G_EXC_ERROR THEN
321: ROLLBACK TO CreateWMDependencyPUB;
322: IF (x_msg_data IS NULL) THEN
323: FND_MSG_PUB.Count_And_Get
324: ( p_encoded => FND_API.G_FALSE
320: WHEN FND_API.G_EXC_ERROR THEN
321: ROLLBACK TO CreateWMDependencyPUB;
322: IF (x_msg_data IS NULL) THEN
323: FND_MSG_PUB.Count_And_Get
324: ( p_encoded => FND_API.G_FALSE
325: , p_count => x_msg_count
326: , p_data => x_msg_data
327: );
328: END IF;
325: , p_count => x_msg_count
326: , p_data => x_msg_data
327: );
328: END IF;
329: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
330: x_return_status := FND_API.G_RET_STS_ERROR;
331: raise;
332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
333: ROLLBACK TO CreateWMDependencyPUB;
326: , p_data => x_msg_data
327: );
328: END IF;
329: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
330: x_return_status := FND_API.G_RET_STS_ERROR;
331: raise;
332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
333: ROLLBACK TO CreateWMDependencyPUB;
334: IF (x_msg_data IS NULL) THEN
328: END IF;
329: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
330: x_return_status := FND_API.G_RET_STS_ERROR;
331: raise;
332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
333: ROLLBACK TO CreateWMDependencyPUB;
334: IF (x_msg_data IS NULL) THEN
335: FND_MSG_PUB.Count_And_Get
336: ( p_encoded => FND_API.G_FALSE
332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
333: ROLLBACK TO CreateWMDependencyPUB;
334: IF (x_msg_data IS NULL) THEN
335: FND_MSG_PUB.Count_And_Get
336: ( p_encoded => FND_API.G_FALSE
337: , p_count => x_msg_count
338: , p_data => x_msg_data
339: );
340: END IF;
337: , p_count => x_msg_count
338: , p_data => x_msg_data
339: );
340: END IF;
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
343: raise;
344: WHEN OTHERS THEN
345: ROLLBACK TO CreateWMDependencyPUB;
338: , p_data => x_msg_data
339: );
340: END IF;
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
343: raise;
344: WHEN OTHERS THEN
345: ROLLBACK TO CreateWMDependencyPUB;
346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
343: raise;
344: WHEN OTHERS THEN
345: ROLLBACK TO CreateWMDependencyPUB;
346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
347: IF (x_msg_data IS NOT NULL) THEN
348: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Create_WM_Dependency ';
349: ELSE
350: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Create_WM_Dependency ';
356:
357: /*******************************************************************
358: *******************************************************************/
359: PROCEDURE Retrieve_WM_Dependency(
360: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
361: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
362: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
363: ,x_return_status OUT NOCOPY VARCHAR2
364: ,x_msg_count OUT NOCOPY NUMBER
366: ) IS
367: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
368: BEGIN
369: SAVEPOINT Retrieve_WM_Dependency_pub;
370: x_return_status := FND_API.G_RET_STS_SUCCESS;
371:
372: BIS_WEIGHTED_MEASURE_PVT.Retrieve_WM_Dependency(
373: p_commit => p_commit
374: ,p_Bis_WM_Rec => p_Bis_WM_Rec
378: ,x_msg_data => x_msg_data
379: );
380:
381: EXCEPTION
382: WHEN FND_API.G_EXC_ERROR THEN
383: ROLLBACK TO Retrieve_WM_Dependency_pub;
384: IF (x_msg_data IS NULL) THEN
385: FND_MSG_PUB.Count_And_Get
386: ( p_encoded => FND_API.G_FALSE
382: WHEN FND_API.G_EXC_ERROR THEN
383: ROLLBACK TO Retrieve_WM_Dependency_pub;
384: IF (x_msg_data IS NULL) THEN
385: FND_MSG_PUB.Count_And_Get
386: ( p_encoded => FND_API.G_FALSE
387: , p_count => x_msg_count
388: , p_data => x_msg_data
389: );
390: END IF;
387: , p_count => x_msg_count
388: , p_data => x_msg_data
389: );
390: END IF;
391: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
392: x_return_status := FND_API.G_RET_STS_ERROR;
393: raise;
394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
395: ROLLBACK TO Retrieve_WM_Dependency_pub;
388: , p_data => x_msg_data
389: );
390: END IF;
391: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
392: x_return_status := FND_API.G_RET_STS_ERROR;
393: raise;
394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
395: ROLLBACK TO Retrieve_WM_Dependency_pub;
396: IF (x_msg_data IS NULL) THEN
390: END IF;
391: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
392: x_return_status := FND_API.G_RET_STS_ERROR;
393: raise;
394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
395: ROLLBACK TO Retrieve_WM_Dependency_pub;
396: IF (x_msg_data IS NULL) THEN
397: FND_MSG_PUB.Count_And_Get
398: ( p_encoded => FND_API.G_FALSE
394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
395: ROLLBACK TO Retrieve_WM_Dependency_pub;
396: IF (x_msg_data IS NULL) THEN
397: FND_MSG_PUB.Count_And_Get
398: ( p_encoded => FND_API.G_FALSE
399: , p_count => x_msg_count
400: , p_data => x_msg_data
401: );
402: END IF;
399: , p_count => x_msg_count
400: , p_data => x_msg_data
401: );
402: END IF;
403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
404: raise;
405: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
406: WHEN OTHERS THEN
407: ROLLBACK TO Retrieve_WM_Dependency_pub;
401: );
402: END IF;
403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
404: raise;
405: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
406: WHEN OTHERS THEN
407: ROLLBACK TO Retrieve_WM_Dependency_pub;
408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
409: IF (x_msg_data IS NOT NULL) THEN
404: raise;
405: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
406: WHEN OTHERS THEN
407: ROLLBACK TO Retrieve_WM_Dependency_pub;
408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
409: IF (x_msg_data IS NOT NULL) THEN
410: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Retrieve_WM_Dependency ';
411: ELSE
412: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Retrieve_WM_Dependency ';
418:
419: /*******************************************************************
420: *******************************************************************/
421: PROCEDURE Update_WM_Dependency(
422: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
423: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
424: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
425: ,x_return_status OUT NOCOPY VARCHAR2
426: ,x_msg_count OUT NOCOPY NUMBER
428: ) IS
429: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
430: BEGIN
431: SAVEPOINT bis_Update_WM_Dependency_pub;
432: x_return_status := FND_API.G_RET_STS_SUCCESS;
433:
434: BIS_WEIGHTED_MEASURE_PUB.Retrieve_WM_Dependency(
435: p_commit => p_commit
436: ,p_Bis_WM_Rec => p_Bis_WM_Rec
455: ,x_msg_data => x_msg_data
456: );
457:
458: EXCEPTION
459: WHEN FND_API.G_EXC_ERROR THEN
460: ROLLBACK TO bis_Update_WM_Dependency_pub;
461: IF (x_msg_data IS NULL) THEN
462: FND_MSG_PUB.Count_And_Get
463: ( p_encoded => FND_API.G_FALSE
459: WHEN FND_API.G_EXC_ERROR THEN
460: ROLLBACK TO bis_Update_WM_Dependency_pub;
461: IF (x_msg_data IS NULL) THEN
462: FND_MSG_PUB.Count_And_Get
463: ( p_encoded => FND_API.G_FALSE
464: , p_count => x_msg_count
465: , p_data => x_msg_data
466: );
467: END IF;
464: , p_count => x_msg_count
465: , p_data => x_msg_data
466: );
467: END IF;
468: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
469: x_return_status := FND_API.G_RET_STS_ERROR;
470: raise;
471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
472: ROLLBACK TO bis_Update_WM_Dependency_pub;
465: , p_data => x_msg_data
466: );
467: END IF;
468: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
469: x_return_status := FND_API.G_RET_STS_ERROR;
470: raise;
471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
472: ROLLBACK TO bis_Update_WM_Dependency_pub;
473: IF (x_msg_data IS NULL) THEN
467: END IF;
468: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
469: x_return_status := FND_API.G_RET_STS_ERROR;
470: raise;
471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
472: ROLLBACK TO bis_Update_WM_Dependency_pub;
473: IF (x_msg_data IS NULL) THEN
474: FND_MSG_PUB.Count_And_Get
475: ( p_encoded => FND_API.G_FALSE
471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
472: ROLLBACK TO bis_Update_WM_Dependency_pub;
473: IF (x_msg_data IS NULL) THEN
474: FND_MSG_PUB.Count_And_Get
475: ( p_encoded => FND_API.G_FALSE
476: , p_count => x_msg_count
477: , p_data => x_msg_data
478: );
479: END IF;
476: , p_count => x_msg_count
477: , p_data => x_msg_data
478: );
479: END IF;
480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
481: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
482: raise;
483: WHEN OTHERS THEN
484: ROLLBACK TO bis_Update_WM_Dependency_pub;
477: , p_data => x_msg_data
478: );
479: END IF;
480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
481: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
482: raise;
483: WHEN OTHERS THEN
484: ROLLBACK TO bis_Update_WM_Dependency_pub;
485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
481: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
482: raise;
483: WHEN OTHERS THEN
484: ROLLBACK TO bis_Update_WM_Dependency_pub;
485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
486: IF (x_msg_data IS NOT NULL) THEN
487: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Update_WM_Dependency ';
488: ELSE
489: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Update_WM_Dependency ';
494:
495: /*******************************************************************
496: *******************************************************************/
497: PROCEDURE Delete_WM_Dependency(
498: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
499: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
500: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
501: ,x_return_status OUT NOCOPY VARCHAR2
502: ,x_msg_count OUT NOCOPY NUMBER
513: AND B.indicator_id = p_Bis_WM_Rec.dependent_measure_id;
514:
515: BEGIN
516: SAVEPOINT Delete_WM_Dependency_pub;
517: x_return_status := FND_API.G_RET_STS_SUCCESS;
518:
519: -- Ckeck that Dependent_Measure_id has not Weights Defined
520:
521: IF get_Defined_Weights_Status( p_Bis_WM_Rec.weighted_measure_id
531:
532: FND_MESSAGE.SET_NAME('BIS','BIS_REMOVE_VALID_WKPI');
533: FND_MESSAGE.SET_TOKEN('MEASURE_NAME', l_measure_name);
534: FND_MSG_PUB.ADD;
535: RAISE FND_API.G_EXC_ERROR;
536: END IF;
537:
538: -- Delete the Dependent Measure
539: BIS_WEIGHTED_MEASURE_PVT.Delete_WM_Dependency(
545: ,x_msg_data => x_msg_data
546: );
547:
548: EXCEPTION
549: WHEN FND_API.G_EXC_ERROR THEN
550: IF(c_measure_name%ISOPEN)THEN
551: CLOSE c_measure_name;
552: END IF;
553:
553:
554: ROLLBACK TO Delete_WM_Dependency_pub;
555: IF (x_msg_data IS NULL) THEN
556: FND_MSG_PUB.Count_And_Get
557: ( p_encoded => FND_API.G_FALSE
558: , p_count => x_msg_count
559: , p_data => x_msg_data
560: );
561: END IF;
558: , p_count => x_msg_count
559: , p_data => x_msg_data
560: );
561: END IF;
562: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
563: x_return_status := FND_API.G_RET_STS_ERROR;
564: raise;
565: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
566: IF(c_measure_name%ISOPEN)THEN
559: , p_data => x_msg_data
560: );
561: END IF;
562: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
563: x_return_status := FND_API.G_RET_STS_ERROR;
564: raise;
565: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
566: IF(c_measure_name%ISOPEN)THEN
567: CLOSE c_measure_name;
561: END IF;
562: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
563: x_return_status := FND_API.G_RET_STS_ERROR;
564: raise;
565: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
566: IF(c_measure_name%ISOPEN)THEN
567: CLOSE c_measure_name;
568: END IF;
569:
569:
570: ROLLBACK TO Delete_WM_Dependency_pub;
571: IF (x_msg_data IS NULL) THEN
572: FND_MSG_PUB.Count_And_Get
573: ( p_encoded => FND_API.G_FALSE
574: , p_count => x_msg_count
575: , p_data => x_msg_data
576: );
577: END IF;
574: , p_count => x_msg_count
575: , p_data => x_msg_data
576: );
577: END IF;
578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
579: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
580: raise;
581: WHEN OTHERS THEN
582: IF(c_measure_name%ISOPEN)THEN
575: , p_data => x_msg_data
576: );
577: END IF;
578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
579: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
580: raise;
581: WHEN OTHERS THEN
582: IF(c_measure_name%ISOPEN)THEN
583: CLOSE c_measure_name;
583: CLOSE c_measure_name;
584: END IF;
585:
586: ROLLBACK TO Delete_WM_Dependency_pub;
587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
588: IF (x_msg_data IS NOT NULL) THEN
589: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Dependency ';
590: ELSE
591: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Dependency ';
599: /*******************************************************************
600: *******************************************************************/
601:
602: PROCEDURE Create_WM_Definition(
603: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
604: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
605: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
606: ,x_return_status OUT NOCOPY VARCHAR2
607: ,x_msg_count OUT NOCOPY NUMBER
609: ) IS
610: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
611: BEGIN
612: SAVEPOINT CreateWMDefinitionPUB;
613: x_return_status := FND_API.G_RET_STS_SUCCESS;
614: l_Bis_WM_Rec :=p_Bis_WM_Rec;
615:
616: -- l_Bis_WM_Rec.weighted_measure_id
617: IF BIS_WEIGHTED_MEASURE_PVT.validate_measure_id(p_Bis_WM_Rec.weighted_measure_id) = FND_API.G_FALSE THEN
613: x_return_status := FND_API.G_RET_STS_SUCCESS;
614: l_Bis_WM_Rec :=p_Bis_WM_Rec;
615:
616: -- l_Bis_WM_Rec.weighted_measure_id
617: IF BIS_WEIGHTED_MEASURE_PVT.validate_measure_id(p_Bis_WM_Rec.weighted_measure_id) = FND_API.G_FALSE THEN
618: FND_MESSAGE.SET_NAME('BIS','BIS_WM_INVALIDE_W_MEASURE_ID');
619: FND_MESSAGE.SET_TOKEN('MEASURE', p_Bis_WM_Rec.weighted_measure_id);
620: FND_MSG_PUB.ADD;
621: RAISE FND_API.G_EXC_ERROR;
617: IF BIS_WEIGHTED_MEASURE_PVT.validate_measure_id(p_Bis_WM_Rec.weighted_measure_id) = FND_API.G_FALSE THEN
618: FND_MESSAGE.SET_NAME('BIS','BIS_WM_INVALIDE_W_MEASURE_ID');
619: FND_MESSAGE.SET_TOKEN('MEASURE', p_Bis_WM_Rec.weighted_measure_id);
620: FND_MSG_PUB.ADD;
621: RAISE FND_API.G_EXC_ERROR;
622: end if;
623:
624: -- l_Bis_WM_Rec.VIEWBY_dimension_SN
625: -- l_Bis_WM_Rec.VIEWBY_dim_level_SN
669: ,x_msg_data => x_msg_data
670: );
671:
672: EXCEPTION
673: WHEN FND_API.G_EXC_ERROR THEN
674: ROLLBACK TO CreateWMDefinitionPUB;
675: IF (x_msg_data IS NULL) THEN
676: FND_MSG_PUB.Count_And_Get
677: ( p_encoded => FND_API.G_FALSE
673: WHEN FND_API.G_EXC_ERROR THEN
674: ROLLBACK TO CreateWMDefinitionPUB;
675: IF (x_msg_data IS NULL) THEN
676: FND_MSG_PUB.Count_And_Get
677: ( p_encoded => FND_API.G_FALSE
678: , p_count => x_msg_count
679: , p_data => x_msg_data
680: );
681: END IF;
678: , p_count => x_msg_count
679: , p_data => x_msg_data
680: );
681: END IF;
682: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
683: x_return_status := FND_API.G_RET_STS_ERROR;
684: raise;
685: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
686: ROLLBACK TO CreateWMDefinitionPUB;
679: , p_data => x_msg_data
680: );
681: END IF;
682: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
683: x_return_status := FND_API.G_RET_STS_ERROR;
684: raise;
685: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
686: ROLLBACK TO CreateWMDefinitionPUB;
687: IF (x_msg_data IS NULL) THEN
681: END IF;
682: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
683: x_return_status := FND_API.G_RET_STS_ERROR;
684: raise;
685: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
686: ROLLBACK TO CreateWMDefinitionPUB;
687: IF (x_msg_data IS NULL) THEN
688: FND_MSG_PUB.Count_And_Get
689: ( p_encoded => FND_API.G_FALSE
685: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
686: ROLLBACK TO CreateWMDefinitionPUB;
687: IF (x_msg_data IS NULL) THEN
688: FND_MSG_PUB.Count_And_Get
689: ( p_encoded => FND_API.G_FALSE
690: , p_count => x_msg_count
691: , p_data => x_msg_data
692: );
693: END IF;
690: , p_count => x_msg_count
691: , p_data => x_msg_data
692: );
693: END IF;
694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
695: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
696: raise;
697: WHEN OTHERS THEN
698: ROLLBACK TO CreateWMDefinitionPUB;
691: , p_data => x_msg_data
692: );
693: END IF;
694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
695: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
696: raise;
697: WHEN OTHERS THEN
698: ROLLBACK TO CreateWMDefinitionPUB;
699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
695: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
696: raise;
697: WHEN OTHERS THEN
698: ROLLBACK TO CreateWMDefinitionPUB;
699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
700: IF (x_msg_data IS NOT NULL) THEN
701: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Create_WM_Definition ';
702: ELSE
703: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Create_WM_Definition ';
708:
709: /*******************************************************************
710: *******************************************************************/
711: PROCEDURE Retrieve_WM_Definition(
712: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
713: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
714: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
715: ,x_return_status OUT NOCOPY VARCHAR2
716: ,x_msg_count OUT NOCOPY NUMBER
718: ) IS
719: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
720: BEGIN
721: SAVEPOINT Retrieve_WM_Definition_pub;
722: x_return_status := FND_API.G_RET_STS_SUCCESS;
723:
724: BIS_WEIGHTED_MEASURE_PVT.Retrieve_WM_Definition(
725: p_commit => p_commit
726: ,p_Bis_WM_Rec => p_Bis_WM_Rec
730: ,x_msg_data => x_msg_data
731: );
732:
733: EXCEPTION
734: WHEN FND_API.G_EXC_ERROR THEN
735: ROLLBACK TO Retrieve_WM_Definition_pub;
736: IF (x_msg_data IS NULL) THEN
737: FND_MSG_PUB.Count_And_Get
738: ( p_encoded => FND_API.G_FALSE
734: WHEN FND_API.G_EXC_ERROR THEN
735: ROLLBACK TO Retrieve_WM_Definition_pub;
736: IF (x_msg_data IS NULL) THEN
737: FND_MSG_PUB.Count_And_Get
738: ( p_encoded => FND_API.G_FALSE
739: , p_count => x_msg_count
740: , p_data => x_msg_data
741: );
742: END IF;
739: , p_count => x_msg_count
740: , p_data => x_msg_data
741: );
742: END IF;
743: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
744: x_return_status := FND_API.G_RET_STS_ERROR;
745: raise;
746: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
747: ROLLBACK TO Retrieve_WM_Definition_pub;
740: , p_data => x_msg_data
741: );
742: END IF;
743: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
744: x_return_status := FND_API.G_RET_STS_ERROR;
745: raise;
746: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
747: ROLLBACK TO Retrieve_WM_Definition_pub;
748: IF (x_msg_data IS NULL) THEN
742: END IF;
743: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
744: x_return_status := FND_API.G_RET_STS_ERROR;
745: raise;
746: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
747: ROLLBACK TO Retrieve_WM_Definition_pub;
748: IF (x_msg_data IS NULL) THEN
749: FND_MSG_PUB.Count_And_Get
750: ( p_encoded => FND_API.G_FALSE
746: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
747: ROLLBACK TO Retrieve_WM_Definition_pub;
748: IF (x_msg_data IS NULL) THEN
749: FND_MSG_PUB.Count_And_Get
750: ( p_encoded => FND_API.G_FALSE
751: , p_count => x_msg_count
752: , p_data => x_msg_data
753: );
754: END IF;
751: , p_count => x_msg_count
752: , p_data => x_msg_data
753: );
754: END IF;
755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
756: raise;
757: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
758: WHEN OTHERS THEN
759: ROLLBACK TO Retrieve_WM_Definition_pub;
753: );
754: END IF;
755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
756: raise;
757: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
758: WHEN OTHERS THEN
759: ROLLBACK TO Retrieve_WM_Definition_pub;
760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
761: IF (x_msg_data IS NOT NULL) THEN
756: raise;
757: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
758: WHEN OTHERS THEN
759: ROLLBACK TO Retrieve_WM_Definition_pub;
760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
761: IF (x_msg_data IS NOT NULL) THEN
762: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Retrieve_WM_Definition ';
763: ELSE
764: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Retrieve_WM_Definition ';
769:
770: /*******************************************************************
771: *******************************************************************/
772: PROCEDURE Update_WM_Definition(
773: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
774: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
775: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
776: ,x_return_status OUT NOCOPY VARCHAR2
777: ,x_msg_count OUT NOCOPY NUMBER
781: l_cascade_delete_flag boolean ;
782:
783: BEGIN
784: SAVEPOINT bis_Update_WM_Definition_pub;
785: x_return_status := FND_API.G_RET_STS_SUCCESS;
786: l_cascade_delete_flag := FALSE;
787:
788: -- l_Bis_WM_Rec.weighted_measure_id
789: IF BIS_WEIGHTED_MEASURE_PVT.validate_measure_id(p_Bis_WM_Rec.weighted_measure_id) = FND_API.G_FALSE THEN
785: x_return_status := FND_API.G_RET_STS_SUCCESS;
786: l_cascade_delete_flag := FALSE;
787:
788: -- l_Bis_WM_Rec.weighted_measure_id
789: IF BIS_WEIGHTED_MEASURE_PVT.validate_measure_id(p_Bis_WM_Rec.weighted_measure_id) = FND_API.G_FALSE THEN
790: FND_MESSAGE.SET_NAME('BIS','BIS_INVALIDE_WEIGHTED_MEASURE');
791: FND_MESSAGE.SET_TOKEN('MEASURE_ID', p_Bis_WM_Rec.weighted_measure_id);
792: FND_MSG_PUB.ADD;
793: RAISE FND_API.G_EXC_ERROR;
789: IF BIS_WEIGHTED_MEASURE_PVT.validate_measure_id(p_Bis_WM_Rec.weighted_measure_id) = FND_API.G_FALSE THEN
790: FND_MESSAGE.SET_NAME('BIS','BIS_INVALIDE_WEIGHTED_MEASURE');
791: FND_MESSAGE.SET_TOKEN('MEASURE_ID', p_Bis_WM_Rec.weighted_measure_id);
792: FND_MSG_PUB.ADD;
793: RAISE FND_API.G_EXC_ERROR;
794: end if;
795:
796: BIS_WEIGHTED_MEASURE_PUB.Retrieve_WM_Definition(
797: p_commit => p_commit
879: );
880: END IF;
881:
882: EXCEPTION
883: WHEN FND_API.G_EXC_ERROR THEN
884: ROLLBACK TO bis_Update_WM_Definition_pub;
885: IF (x_msg_data IS NULL) THEN
886: FND_MSG_PUB.Count_And_Get
887: ( p_encoded => FND_API.G_FALSE
883: WHEN FND_API.G_EXC_ERROR THEN
884: ROLLBACK TO bis_Update_WM_Definition_pub;
885: IF (x_msg_data IS NULL) THEN
886: FND_MSG_PUB.Count_And_Get
887: ( p_encoded => FND_API.G_FALSE
888: , p_count => x_msg_count
889: , p_data => x_msg_data
890: );
891: END IF;
888: , p_count => x_msg_count
889: , p_data => x_msg_data
890: );
891: END IF;
892: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
893: x_return_status := FND_API.G_RET_STS_ERROR;
894: raise;
895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
896: ROLLBACK TO bis_Update_WM_Definition_pub;
889: , p_data => x_msg_data
890: );
891: END IF;
892: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
893: x_return_status := FND_API.G_RET_STS_ERROR;
894: raise;
895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
896: ROLLBACK TO bis_Update_WM_Definition_pub;
897: IF (x_msg_data IS NULL) THEN
891: END IF;
892: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
893: x_return_status := FND_API.G_RET_STS_ERROR;
894: raise;
895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
896: ROLLBACK TO bis_Update_WM_Definition_pub;
897: IF (x_msg_data IS NULL) THEN
898: FND_MSG_PUB.Count_And_Get
899: ( p_encoded => FND_API.G_FALSE
895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
896: ROLLBACK TO bis_Update_WM_Definition_pub;
897: IF (x_msg_data IS NULL) THEN
898: FND_MSG_PUB.Count_And_Get
899: ( p_encoded => FND_API.G_FALSE
900: , p_count => x_msg_count
901: , p_data => x_msg_data
902: );
903: END IF;
900: , p_count => x_msg_count
901: , p_data => x_msg_data
902: );
903: END IF;
904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
905: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
906: raise;
907: WHEN OTHERS THEN
908: ROLLBACK TO bis_Update_WM_Definition_pub;
901: , p_data => x_msg_data
902: );
903: END IF;
904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
905: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
906: raise;
907: WHEN OTHERS THEN
908: ROLLBACK TO bis_Update_WM_Definition_pub;
909: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
905: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
906: raise;
907: WHEN OTHERS THEN
908: ROLLBACK TO bis_Update_WM_Definition_pub;
909: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
910: IF (x_msg_data IS NOT NULL) THEN
911: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Update_WM_Definition ';
912: ELSE
913: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Update_WM_Definition ';
918:
919: /*******************************************************************
920: *******************************************************************/
921: PROCEDURE Delete_WM_Definition(
922: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
923: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
924: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
925: ,x_return_status OUT NOCOPY VARCHAR2
926: ,x_msg_count OUT NOCOPY NUMBER
929: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
930:
931: BEGIN
932: SAVEPOINT Delete_WM_Definition_pub;
933: x_return_status := FND_API.G_RET_STS_SUCCESS;
934:
935: -- Weights Cascading delete when a Parameter is deleted
936: Delete_Cascade_WM_Parameters(
937: p_commit => p_commit
951: ,x_msg_data => x_msg_data
952: );
953:
954: EXCEPTION
955: WHEN FND_API.G_EXC_ERROR THEN
956: ROLLBACK TO Delete_WM_Definition_pub;
957: IF (x_msg_data IS NULL) THEN
958: FND_MSG_PUB.Count_And_Get
959: ( p_encoded => FND_API.G_FALSE
955: WHEN FND_API.G_EXC_ERROR THEN
956: ROLLBACK TO Delete_WM_Definition_pub;
957: IF (x_msg_data IS NULL) THEN
958: FND_MSG_PUB.Count_And_Get
959: ( p_encoded => FND_API.G_FALSE
960: , p_count => x_msg_count
961: , p_data => x_msg_data
962: );
963: END IF;
960: , p_count => x_msg_count
961: , p_data => x_msg_data
962: );
963: END IF;
964: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
965: x_return_status := FND_API.G_RET_STS_ERROR;
966: raise;
967: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
968: ROLLBACK TO Delete_WM_Definition_pub;
961: , p_data => x_msg_data
962: );
963: END IF;
964: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
965: x_return_status := FND_API.G_RET_STS_ERROR;
966: raise;
967: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
968: ROLLBACK TO Delete_WM_Definition_pub;
969: IF (x_msg_data IS NULL) THEN
963: END IF;
964: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
965: x_return_status := FND_API.G_RET_STS_ERROR;
966: raise;
967: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
968: ROLLBACK TO Delete_WM_Definition_pub;
969: IF (x_msg_data IS NULL) THEN
970: FND_MSG_PUB.Count_And_Get
971: ( p_encoded => FND_API.G_FALSE
967: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
968: ROLLBACK TO Delete_WM_Definition_pub;
969: IF (x_msg_data IS NULL) THEN
970: FND_MSG_PUB.Count_And_Get
971: ( p_encoded => FND_API.G_FALSE
972: , p_count => x_msg_count
973: , p_data => x_msg_data
974: );
975: END IF;
972: , p_count => x_msg_count
973: , p_data => x_msg_data
974: );
975: END IF;
976: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
977: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
978: raise;
979: WHEN OTHERS THEN
980: ROLLBACK TO Delete_WM_Definition_pub;
973: , p_data => x_msg_data
974: );
975: END IF;
976: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
977: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
978: raise;
979: WHEN OTHERS THEN
980: ROLLBACK TO Delete_WM_Definition_pub;
981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
977: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
978: raise;
979: WHEN OTHERS THEN
980: ROLLBACK TO Delete_WM_Definition_pub;
981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
982: IF (x_msg_data IS NOT NULL) THEN
983: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Definition ';
984: ELSE
985: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Definition ';
992:
993: /*******************************************************************
994: *******************************************************************/
995: PROCEDURE Create_WM_Parameter(
996: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
997: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
998: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
999: ,x_return_status OUT NOCOPY VARCHAR2
1000: ,x_msg_count OUT NOCOPY NUMBER
1003: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
1004: l_count NUMBER;
1005: BEGIN
1006: SAVEPOINT CreateWMParameterPUB;
1007: x_return_status := FND_API.G_RET_STS_SUCCESS;
1008: l_Bis_WM_Rec := p_Bis_WM_Rec;
1009:
1010: -- weighted_parameter_id
1011: -- weighted_definition_id
1019: IF l_count = 0 THEN
1020: FND_MESSAGE.SET_NAME('BIS','BIS_WM_INVALIDE_DEF');
1021: FND_MESSAGE.SET_TOKEN('DEF', p_Bis_WM_Rec.weighted_measure_id);
1022: FND_MSG_PUB.ADD;
1023: RAISE FND_API.G_EXC_ERROR;
1024: END IF;
1025:
1026: -- Set the weighted_parameter_id
1027: IF p_Bis_WM_Rec.weighted_parameter_id IS NULL THEN
1048: ,x_msg_data => x_msg_data
1049: );
1050:
1051: EXCEPTION
1052: WHEN FND_API.G_EXC_ERROR THEN
1053: ROLLBACK TO CreateWMParameterPUB;
1054: IF (x_msg_data IS NULL) THEN
1055: FND_MSG_PUB.Count_And_Get
1056: ( p_encoded => FND_API.G_FALSE
1052: WHEN FND_API.G_EXC_ERROR THEN
1053: ROLLBACK TO CreateWMParameterPUB;
1054: IF (x_msg_data IS NULL) THEN
1055: FND_MSG_PUB.Count_And_Get
1056: ( p_encoded => FND_API.G_FALSE
1057: , p_count => x_msg_count
1058: , p_data => x_msg_data
1059: );
1060: END IF;
1057: , p_count => x_msg_count
1058: , p_data => x_msg_data
1059: );
1060: END IF;
1061: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1062: x_return_status := FND_API.G_RET_STS_ERROR;
1063: raise;
1064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1065: ROLLBACK TO CreateWMParameterPUB;
1058: , p_data => x_msg_data
1059: );
1060: END IF;
1061: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1062: x_return_status := FND_API.G_RET_STS_ERROR;
1063: raise;
1064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1065: ROLLBACK TO CreateWMParameterPUB;
1066: IF (x_msg_data IS NULL) THEN
1060: END IF;
1061: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1062: x_return_status := FND_API.G_RET_STS_ERROR;
1063: raise;
1064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1065: ROLLBACK TO CreateWMParameterPUB;
1066: IF (x_msg_data IS NULL) THEN
1067: FND_MSG_PUB.Count_And_Get
1068: ( p_encoded => FND_API.G_FALSE
1064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1065: ROLLBACK TO CreateWMParameterPUB;
1066: IF (x_msg_data IS NULL) THEN
1067: FND_MSG_PUB.Count_And_Get
1068: ( p_encoded => FND_API.G_FALSE
1069: , p_count => x_msg_count
1070: , p_data => x_msg_data
1071: );
1072: END IF;
1069: , p_count => x_msg_count
1070: , p_data => x_msg_data
1071: );
1072: END IF;
1073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1074: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1075: raise;
1076: WHEN OTHERS THEN
1077: ROLLBACK TO CreateWMParameterPUB;
1070: , p_data => x_msg_data
1071: );
1072: END IF;
1073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1074: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1075: raise;
1076: WHEN OTHERS THEN
1077: ROLLBACK TO CreateWMParameterPUB;
1078: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1074: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1075: raise;
1076: WHEN OTHERS THEN
1077: ROLLBACK TO CreateWMParameterPUB;
1078: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1079: IF (x_msg_data IS NOT NULL) THEN
1080: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Create_WM_Parameter ';
1081: ELSE
1082: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Create_WM_Parameter ';
1087:
1088: /*******************************************************************
1089: *******************************************************************/
1090: PROCEDURE Retrieve_WM_Parameter(
1091: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
1092: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1093: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1094: ,x_return_status OUT NOCOPY VARCHAR2
1095: ,x_msg_count OUT NOCOPY NUMBER
1097: ) IS
1098: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
1099: BEGIN
1100: SAVEPOINT Retrieve_WM_Parameter_pub;
1101: x_return_status := FND_API.G_RET_STS_SUCCESS;
1102: BIS_WEIGHTED_MEASURE_PVT.Retrieve_WM_Parameter(
1103: p_commit => p_commit
1104: ,p_Bis_WM_Rec => p_Bis_WM_Rec
1105: ,x_Bis_WM_Rec => x_Bis_WM_Rec
1108: ,x_msg_data => x_msg_data
1109: );
1110:
1111: EXCEPTION
1112: WHEN FND_API.G_EXC_ERROR THEN
1113: ROLLBACK TO Retrieve_WM_Parameter_pub;
1114: IF (x_msg_data IS NULL) THEN
1115: FND_MSG_PUB.Count_And_Get
1116: ( p_encoded => FND_API.G_FALSE
1112: WHEN FND_API.G_EXC_ERROR THEN
1113: ROLLBACK TO Retrieve_WM_Parameter_pub;
1114: IF (x_msg_data IS NULL) THEN
1115: FND_MSG_PUB.Count_And_Get
1116: ( p_encoded => FND_API.G_FALSE
1117: , p_count => x_msg_count
1118: , p_data => x_msg_data
1119: );
1120: END IF;
1117: , p_count => x_msg_count
1118: , p_data => x_msg_data
1119: );
1120: END IF;
1121: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1122: x_return_status := FND_API.G_RET_STS_ERROR;
1123: raise;
1124: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1125: ROLLBACK TO Retrieve_WM_Parameter_pub;
1118: , p_data => x_msg_data
1119: );
1120: END IF;
1121: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1122: x_return_status := FND_API.G_RET_STS_ERROR;
1123: raise;
1124: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1125: ROLLBACK TO Retrieve_WM_Parameter_pub;
1126: IF (x_msg_data IS NULL) THEN
1120: END IF;
1121: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1122: x_return_status := FND_API.G_RET_STS_ERROR;
1123: raise;
1124: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1125: ROLLBACK TO Retrieve_WM_Parameter_pub;
1126: IF (x_msg_data IS NULL) THEN
1127: FND_MSG_PUB.Count_And_Get
1128: ( p_encoded => FND_API.G_FALSE
1124: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1125: ROLLBACK TO Retrieve_WM_Parameter_pub;
1126: IF (x_msg_data IS NULL) THEN
1127: FND_MSG_PUB.Count_And_Get
1128: ( p_encoded => FND_API.G_FALSE
1129: , p_count => x_msg_count
1130: , p_data => x_msg_data
1131: );
1132: END IF;
1129: , p_count => x_msg_count
1130: , p_data => x_msg_data
1131: );
1132: END IF;
1133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1134: raise;
1135: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1136: WHEN OTHERS THEN
1137: ROLLBACK TO Retrieve_WM_Parameter_pub;
1131: );
1132: END IF;
1133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1134: raise;
1135: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1136: WHEN OTHERS THEN
1137: ROLLBACK TO Retrieve_WM_Parameter_pub;
1138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1139: IF (x_msg_data IS NOT NULL) THEN
1134: raise;
1135: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1136: WHEN OTHERS THEN
1137: ROLLBACK TO Retrieve_WM_Parameter_pub;
1138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1139: IF (x_msg_data IS NOT NULL) THEN
1140: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Retrieve_WM_Parameter ';
1141: ELSE
1142: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Retrieve_WM_Parameter ';
1147:
1148: /*******************************************************************
1149: *******************************************************************/
1150: PROCEDURE Update_WM_Parameter(
1151: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
1152: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1153: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1154: ,x_return_status OUT NOCOPY VARCHAR2
1155: ,x_msg_count OUT NOCOPY NUMBER
1157: ) IS
1158: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
1159: BEGIN
1160: SAVEPOINT bis_Update_WM_Parameter_pub;
1161: x_return_status := FND_API.G_RET_STS_SUCCESS;
1162: l_Bis_WM_Rec :=p_Bis_WM_Rec;
1163:
1164: -- weighted_parameter_id
1165: -- weighted_definition_id
1189: ,x_msg_data => x_msg_data
1190: );
1191:
1192: EXCEPTION
1193: WHEN FND_API.G_EXC_ERROR THEN
1194: ROLLBACK TO bis_Update_WM_Parameter_pub;
1195: IF (x_msg_data IS NULL) THEN
1196: FND_MSG_PUB.Count_And_Get
1197: ( p_encoded => FND_API.G_FALSE
1193: WHEN FND_API.G_EXC_ERROR THEN
1194: ROLLBACK TO bis_Update_WM_Parameter_pub;
1195: IF (x_msg_data IS NULL) THEN
1196: FND_MSG_PUB.Count_And_Get
1197: ( p_encoded => FND_API.G_FALSE
1198: , p_count => x_msg_count
1199: , p_data => x_msg_data
1200: );
1201: END IF;
1198: , p_count => x_msg_count
1199: , p_data => x_msg_data
1200: );
1201: END IF;
1202: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1203: x_return_status := FND_API.G_RET_STS_ERROR;
1204: raise;
1205: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1206: ROLLBACK TO bis_Update_WM_Parameter_pub;
1199: , p_data => x_msg_data
1200: );
1201: END IF;
1202: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1203: x_return_status := FND_API.G_RET_STS_ERROR;
1204: raise;
1205: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1206: ROLLBACK TO bis_Update_WM_Parameter_pub;
1207: IF (x_msg_data IS NULL) THEN
1201: END IF;
1202: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1203: x_return_status := FND_API.G_RET_STS_ERROR;
1204: raise;
1205: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1206: ROLLBACK TO bis_Update_WM_Parameter_pub;
1207: IF (x_msg_data IS NULL) THEN
1208: FND_MSG_PUB.Count_And_Get
1209: ( p_encoded => FND_API.G_FALSE
1205: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1206: ROLLBACK TO bis_Update_WM_Parameter_pub;
1207: IF (x_msg_data IS NULL) THEN
1208: FND_MSG_PUB.Count_And_Get
1209: ( p_encoded => FND_API.G_FALSE
1210: , p_count => x_msg_count
1211: , p_data => x_msg_data
1212: );
1213: END IF;
1210: , p_count => x_msg_count
1211: , p_data => x_msg_data
1212: );
1213: END IF;
1214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1215: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1216: raise;
1217: WHEN OTHERS THEN
1218: ROLLBACK TO bis_Update_WM_Parameter_pub;
1211: , p_data => x_msg_data
1212: );
1213: END IF;
1214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1215: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1216: raise;
1217: WHEN OTHERS THEN
1218: ROLLBACK TO bis_Update_WM_Parameter_pub;
1219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1215: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1216: raise;
1217: WHEN OTHERS THEN
1218: ROLLBACK TO bis_Update_WM_Parameter_pub;
1219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1220: IF (x_msg_data IS NOT NULL) THEN
1221: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Update_WM_Parameter ';
1222: ELSE
1223: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Update_WM_Parameter ';
1228:
1229: /*******************************************************************
1230: *******************************************************************/
1231: PROCEDURE Delete_WM_Parameter(
1232: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
1233: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1234: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1235: ,x_return_status OUT NOCOPY VARCHAR2
1236: ,x_msg_count OUT NOCOPY NUMBER
1245: FROM BIS_WEIGHTED_MEASURE_WEIGHTS
1246: WHERE WEIGHTED_PARAMETER_ID = p_Bis_WM_Rec.weighted_parameter_id;
1247: BEGIN
1248: SAVEPOINT Delete_WM_Parameter_pub;
1249: x_return_status := FND_API.G_RET_STS_SUCCESS;
1250:
1251: -- Weights Cascading delete when a Parameter is deleted
1252: FOR CD IN c_Weights LOOP
1253: l_Bis_WM_Rec.weight_id := CD.WEIGHT_ID;
1271: ,x_msg_data => x_msg_data
1272: );
1273:
1274: EXCEPTION
1275: WHEN FND_API.G_EXC_ERROR THEN
1276: ROLLBACK TO Delete_WM_Parameter_pub;
1277: IF (x_msg_data IS NULL) THEN
1278: FND_MSG_PUB.Count_And_Get
1279: ( p_encoded => FND_API.G_FALSE
1275: WHEN FND_API.G_EXC_ERROR THEN
1276: ROLLBACK TO Delete_WM_Parameter_pub;
1277: IF (x_msg_data IS NULL) THEN
1278: FND_MSG_PUB.Count_And_Get
1279: ( p_encoded => FND_API.G_FALSE
1280: , p_count => x_msg_count
1281: , p_data => x_msg_data
1282: );
1283: END IF;
1280: , p_count => x_msg_count
1281: , p_data => x_msg_data
1282: );
1283: END IF;
1284: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1285: x_return_status := FND_API.G_RET_STS_ERROR;
1286: raise;
1287: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1288: ROLLBACK TO Delete_WM_Parameter_pub;
1281: , p_data => x_msg_data
1282: );
1283: END IF;
1284: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1285: x_return_status := FND_API.G_RET_STS_ERROR;
1286: raise;
1287: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1288: ROLLBACK TO Delete_WM_Parameter_pub;
1289: IF (x_msg_data IS NULL) THEN
1283: END IF;
1284: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1285: x_return_status := FND_API.G_RET_STS_ERROR;
1286: raise;
1287: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1288: ROLLBACK TO Delete_WM_Parameter_pub;
1289: IF (x_msg_data IS NULL) THEN
1290: FND_MSG_PUB.Count_And_Get
1291: ( p_encoded => FND_API.G_FALSE
1287: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1288: ROLLBACK TO Delete_WM_Parameter_pub;
1289: IF (x_msg_data IS NULL) THEN
1290: FND_MSG_PUB.Count_And_Get
1291: ( p_encoded => FND_API.G_FALSE
1292: , p_count => x_msg_count
1293: , p_data => x_msg_data
1294: );
1295: END IF;
1292: , p_count => x_msg_count
1293: , p_data => x_msg_data
1294: );
1295: END IF;
1296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1297: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1298: raise;
1299: WHEN OTHERS THEN
1300: ROLLBACK TO Delete_WM_Parameter_pub;
1293: , p_data => x_msg_data
1294: );
1295: END IF;
1296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1297: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1298: raise;
1299: WHEN OTHERS THEN
1300: ROLLBACK TO Delete_WM_Parameter_pub;
1301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1297: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1298: raise;
1299: WHEN OTHERS THEN
1300: ROLLBACK TO Delete_WM_Parameter_pub;
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||' -> BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Parameter ';
1304: ELSE
1305: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Parameter ';
1312:
1313: /*******************************************************************
1314: *******************************************************************/
1315: PROCEDURE Create_WM_Weight(
1316: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
1317: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1318: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1319: ,x_return_status OUT NOCOPY VARCHAR2
1320: ,x_msg_count OUT NOCOPY NUMBER
1323: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
1324: l_count NUMBER;
1325: BEGIN
1326: SAVEPOINT Create_WM_Weight_PUB;
1327: x_return_status := FND_API.G_RET_STS_SUCCESS;
1328: l_Bis_WM_Rec := p_Bis_WM_Rec;
1329:
1330: --weight_id
1331: --weighted_parameter_id
1340: IF l_count = 0 THEN
1341: FND_MESSAGE.SET_NAME('BIS','BIS_WM_INVALIDE_PARAM');
1342: FND_MESSAGE.SET_TOKEN('PARAM', p_Bis_WM_Rec.weighted_parameter_id);
1343: FND_MSG_PUB.ADD;
1344: RAISE FND_API.G_EXC_ERROR;
1345: END IF;
1346:
1347:
1348: -- Set the weighted_definition_id
1371: ,x_msg_data => x_msg_data
1372: );
1373:
1374: EXCEPTION
1375: WHEN FND_API.G_EXC_ERROR THEN
1376: ROLLBACK TO Create_WM_Weight_PUB;
1377: IF (x_msg_data IS NULL) THEN
1378: FND_MSG_PUB.Count_And_Get
1379: ( p_encoded => FND_API.G_FALSE
1375: WHEN FND_API.G_EXC_ERROR THEN
1376: ROLLBACK TO Create_WM_Weight_PUB;
1377: IF (x_msg_data IS NULL) THEN
1378: FND_MSG_PUB.Count_And_Get
1379: ( p_encoded => FND_API.G_FALSE
1380: , p_count => x_msg_count
1381: , p_data => x_msg_data
1382: );
1383: END IF;
1380: , p_count => x_msg_count
1381: , p_data => x_msg_data
1382: );
1383: END IF;
1384: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1385: x_return_status := FND_API.G_RET_STS_ERROR;
1386: raise;
1387: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1388: ROLLBACK TO Create_WM_Weight_PUB;
1381: , p_data => x_msg_data
1382: );
1383: END IF;
1384: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1385: x_return_status := FND_API.G_RET_STS_ERROR;
1386: raise;
1387: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1388: ROLLBACK TO Create_WM_Weight_PUB;
1389: IF (x_msg_data IS NULL) THEN
1383: END IF;
1384: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1385: x_return_status := FND_API.G_RET_STS_ERROR;
1386: raise;
1387: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1388: ROLLBACK TO Create_WM_Weight_PUB;
1389: IF (x_msg_data IS NULL) THEN
1390: FND_MSG_PUB.Count_And_Get
1391: ( p_encoded => FND_API.G_FALSE
1387: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1388: ROLLBACK TO Create_WM_Weight_PUB;
1389: IF (x_msg_data IS NULL) THEN
1390: FND_MSG_PUB.Count_And_Get
1391: ( p_encoded => FND_API.G_FALSE
1392: , p_count => x_msg_count
1393: , p_data => x_msg_data
1394: );
1395: END IF;
1392: , p_count => x_msg_count
1393: , p_data => x_msg_data
1394: );
1395: END IF;
1396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1397: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1398: raise;
1399: WHEN OTHERS THEN
1400: ROLLBACK TO Create_WM_Weight_PUB;
1393: , p_data => x_msg_data
1394: );
1395: END IF;
1396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1397: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1398: raise;
1399: WHEN OTHERS THEN
1400: ROLLBACK TO Create_WM_Weight_PUB;
1401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1397: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1398: raise;
1399: WHEN OTHERS THEN
1400: ROLLBACK TO Create_WM_Weight_PUB;
1401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1402: IF (x_msg_data IS NOT NULL) THEN
1403: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Create_WM_Weight ';
1404: ELSE
1405: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Create_WM_Weight ';
1410:
1411: /*******************************************************************
1412: *******************************************************************/
1413: PROCEDURE Retrieve_WM_Weight(
1414: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
1415: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1416: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1417: ,x_return_status OUT NOCOPY VARCHAR2
1418: ,x_msg_count OUT NOCOPY NUMBER
1420: ) IS
1421: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
1422: BEGIN
1423: SAVEPOINT bis_Retrieve_WM_Weight_pub;
1424: x_return_status := FND_API.G_RET_STS_SUCCESS;
1425: BIS_WEIGHTED_MEASURE_PVT.Retrieve_WM_Weight(
1426: p_commit => p_commit
1427: ,p_Bis_WM_Rec => p_Bis_WM_Rec
1428: ,x_Bis_WM_Rec => x_Bis_WM_Rec
1431: ,x_msg_data => x_msg_data
1432: );
1433:
1434: EXCEPTION
1435: WHEN FND_API.G_EXC_ERROR THEN
1436: ROLLBACK TO bis_Retrieve_WM_Weight_pub;
1437: IF (x_msg_data IS NULL) THEN
1438: FND_MSG_PUB.Count_And_Get
1439: ( p_encoded => FND_API.G_FALSE
1435: WHEN FND_API.G_EXC_ERROR THEN
1436: ROLLBACK TO bis_Retrieve_WM_Weight_pub;
1437: IF (x_msg_data IS NULL) THEN
1438: FND_MSG_PUB.Count_And_Get
1439: ( p_encoded => FND_API.G_FALSE
1440: , p_count => x_msg_count
1441: , p_data => x_msg_data
1442: );
1443: END IF;
1440: , p_count => x_msg_count
1441: , p_data => x_msg_data
1442: );
1443: END IF;
1444: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1445: x_return_status := FND_API.G_RET_STS_ERROR;
1446: raise;
1447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1448: ROLLBACK TO bis_Retrieve_WM_Weight_pub;
1441: , p_data => x_msg_data
1442: );
1443: END IF;
1444: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1445: x_return_status := FND_API.G_RET_STS_ERROR;
1446: raise;
1447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1448: ROLLBACK TO bis_Retrieve_WM_Weight_pub;
1449: IF (x_msg_data IS NULL) THEN
1443: END IF;
1444: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1445: x_return_status := FND_API.G_RET_STS_ERROR;
1446: raise;
1447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1448: ROLLBACK TO bis_Retrieve_WM_Weight_pub;
1449: IF (x_msg_data IS NULL) THEN
1450: FND_MSG_PUB.Count_And_Get
1451: ( p_encoded => FND_API.G_FALSE
1447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1448: ROLLBACK TO bis_Retrieve_WM_Weight_pub;
1449: IF (x_msg_data IS NULL) THEN
1450: FND_MSG_PUB.Count_And_Get
1451: ( p_encoded => FND_API.G_FALSE
1452: , p_count => x_msg_count
1453: , p_data => x_msg_data
1454: );
1455: END IF;
1452: , p_count => x_msg_count
1453: , p_data => x_msg_data
1454: );
1455: END IF;
1456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1457: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1458: raise;
1459: WHEN OTHERS THEN
1460: ROLLBACK TO bis_Retrieve_WM_Weight_pub;
1453: , p_data => x_msg_data
1454: );
1455: END IF;
1456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1457: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1458: raise;
1459: WHEN OTHERS THEN
1460: ROLLBACK TO bis_Retrieve_WM_Weight_pub;
1461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1457: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1458: raise;
1459: WHEN OTHERS THEN
1460: ROLLBACK TO bis_Retrieve_WM_Weight_pub;
1461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1462: IF (x_msg_data IS NOT NULL) THEN
1463: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Retrieve_WM_Weight ';
1464: ELSE
1465: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Retrieve_WM_Weight ';
1470:
1471: /*******************************************************************
1472: *******************************************************************/
1473: PROCEDURE Update_WM_Weight(
1474: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
1475: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1476: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1477: ,x_return_status OUT NOCOPY VARCHAR2
1478: ,x_msg_count OUT NOCOPY NUMBER
1481: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
1482: BEGIN
1483:
1484: SAVEPOINT bis_Update_WM_Weight_pub;
1485: x_return_status := FND_API.G_RET_STS_SUCCESS;
1486:
1487: BIS_WEIGHTED_MEASURE_PUB.Retrieve_WM_Weight(
1488: p_commit => p_commit
1489: ,p_Bis_WM_Rec => p_Bis_WM_Rec
1519: ,x_msg_data => x_msg_data
1520: );
1521:
1522: EXCEPTION
1523: WHEN FND_API.G_EXC_ERROR THEN
1524: ROLLBACK TO bis_Update_WM_Weight_pub;
1525: IF (x_msg_data IS NULL) THEN
1526: FND_MSG_PUB.Count_And_Get
1527: ( p_encoded => FND_API.G_FALSE
1523: WHEN FND_API.G_EXC_ERROR THEN
1524: ROLLBACK TO bis_Update_WM_Weight_pub;
1525: IF (x_msg_data IS NULL) THEN
1526: FND_MSG_PUB.Count_And_Get
1527: ( p_encoded => FND_API.G_FALSE
1528: , p_count => x_msg_count
1529: , p_data => x_msg_data
1530: );
1531: END IF;
1528: , p_count => x_msg_count
1529: , p_data => x_msg_data
1530: );
1531: END IF;
1532: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1533: x_return_status := FND_API.G_RET_STS_ERROR;
1534: raise;
1535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1536: ROLLBACK TO bis_Update_WM_Weight_pub;
1529: , p_data => x_msg_data
1530: );
1531: END IF;
1532: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1533: x_return_status := FND_API.G_RET_STS_ERROR;
1534: raise;
1535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1536: ROLLBACK TO bis_Update_WM_Weight_pub;
1537: IF (x_msg_data IS NULL) THEN
1531: END IF;
1532: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1533: x_return_status := FND_API.G_RET_STS_ERROR;
1534: raise;
1535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1536: ROLLBACK TO bis_Update_WM_Weight_pub;
1537: IF (x_msg_data IS NULL) THEN
1538: FND_MSG_PUB.Count_And_Get
1539: ( p_encoded => FND_API.G_FALSE
1535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1536: ROLLBACK TO bis_Update_WM_Weight_pub;
1537: IF (x_msg_data IS NULL) THEN
1538: FND_MSG_PUB.Count_And_Get
1539: ( p_encoded => FND_API.G_FALSE
1540: , p_count => x_msg_count
1541: , p_data => x_msg_data
1542: );
1543: END IF;
1540: , p_count => x_msg_count
1541: , p_data => x_msg_data
1542: );
1543: END IF;
1544: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1545: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1546: raise;
1547: WHEN OTHERS THEN
1548: ROLLBACK TO bis_Update_WM_Weight_pub;
1541: , p_data => x_msg_data
1542: );
1543: END IF;
1544: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1545: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1546: raise;
1547: WHEN OTHERS THEN
1548: ROLLBACK TO bis_Update_WM_Weight_pub;
1549: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1545: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1546: raise;
1547: WHEN OTHERS THEN
1548: ROLLBACK TO bis_Update_WM_Weight_pub;
1549: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1550: IF (x_msg_data IS NOT NULL) THEN
1551: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Update_WM_Weight ';
1552: ELSE
1553: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Update_WM_Weight ';
1558:
1559: /*******************************************************************
1560: *******************************************************************/
1561: PROCEDURE Delete_WM_Weight(
1562: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
1563: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1564: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1565: ,x_return_status OUT NOCOPY VARCHAR2
1566: ,x_msg_count OUT NOCOPY NUMBER
1568: ) IS
1569: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
1570: BEGIN
1571: SAVEPOINT Delete_WM_Weight_pub;
1572: x_return_status := FND_API.G_RET_STS_SUCCESS;
1573:
1574: -- Cascading delete when a Weight_id is deleted
1575: l_Bis_WM_Rec.weight_id := p_Bis_WM_Rec.weight_id;
1576: l_Bis_WM_Rec.low_range := null;
1596: );
1597:
1598:
1599: EXCEPTION
1600: WHEN FND_API.G_EXC_ERROR THEN
1601: ROLLBACK TO Delete_WM_Weight_pub;
1602: IF (x_msg_data IS NULL) THEN
1603: FND_MSG_PUB.Count_And_Get
1604: ( p_encoded => FND_API.G_FALSE
1600: WHEN FND_API.G_EXC_ERROR THEN
1601: ROLLBACK TO Delete_WM_Weight_pub;
1602: IF (x_msg_data IS NULL) THEN
1603: FND_MSG_PUB.Count_And_Get
1604: ( p_encoded => FND_API.G_FALSE
1605: , p_count => x_msg_count
1606: , p_data => x_msg_data
1607: );
1608: END IF;
1605: , p_count => x_msg_count
1606: , p_data => x_msg_data
1607: );
1608: END IF;
1609: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1610: x_return_status := FND_API.G_RET_STS_ERROR;
1611: raise;
1612: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1613: ROLLBACK TO Delete_WM_Weight_pub;
1606: , p_data => x_msg_data
1607: );
1608: END IF;
1609: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1610: x_return_status := FND_API.G_RET_STS_ERROR;
1611: raise;
1612: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1613: ROLLBACK TO Delete_WM_Weight_pub;
1614: IF (x_msg_data IS NULL) THEN
1608: END IF;
1609: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1610: x_return_status := FND_API.G_RET_STS_ERROR;
1611: raise;
1612: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1613: ROLLBACK TO Delete_WM_Weight_pub;
1614: IF (x_msg_data IS NULL) THEN
1615: FND_MSG_PUB.Count_And_Get
1616: ( p_encoded => FND_API.G_FALSE
1612: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1613: ROLLBACK TO Delete_WM_Weight_pub;
1614: IF (x_msg_data IS NULL) THEN
1615: FND_MSG_PUB.Count_And_Get
1616: ( p_encoded => FND_API.G_FALSE
1617: , p_count => x_msg_count
1618: , p_data => x_msg_data
1619: );
1620: END IF;
1617: , p_count => x_msg_count
1618: , p_data => x_msg_data
1619: );
1620: END IF;
1621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1622: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1623: raise;
1624: WHEN OTHERS THEN
1625: ROLLBACK TO Delete_WM_Weight_pub;
1618: , p_data => x_msg_data
1619: );
1620: END IF;
1621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1622: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1623: raise;
1624: WHEN OTHERS THEN
1625: ROLLBACK TO Delete_WM_Weight_pub;
1626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1622: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1623: raise;
1624: WHEN OTHERS THEN
1625: ROLLBACK TO Delete_WM_Weight_pub;
1626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1627: IF (x_msg_data IS NOT NULL) THEN
1628: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Weight ';
1629: ELSE
1630: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Weight ';
1636: ------- APIs for table BIS_WEIGHTED_MEASURE_SCORES
1637: /*******************************************************************
1638: *******************************************************************/
1639: PROCEDURE Create_WM_Score(
1640: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
1641: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1642: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1643: ,x_return_status OUT NOCOPY VARCHAR2
1644: ,x_msg_count OUT NOCOPY NUMBER
1647: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
1648: l_count NUMBER;
1649: BEGIN
1650: SAVEPOINT Create_WM_Score_PUB;
1651: x_return_status := FND_API.G_RET_STS_SUCCESS;
1652: l_Bis_WM_Rec :=p_Bis_WM_Rec;
1653:
1654: SELECT COUNT(1)
1655: INTO l_count
1658: IF l_count = 0 THEN
1659: FND_MESSAGE.SET_NAME('BIS','BIS_WM_INVALIDE_WEIGHT_ID');
1660: FND_MESSAGE.SET_TOKEN('WEIGHT_ID', p_Bis_WM_Rec.weight_id);
1661: FND_MSG_PUB.ADD;
1662: RAISE FND_API.G_EXC_ERROR;
1663: END IF;
1664:
1665: -- WHO COLUMNS
1666: l_Bis_WM_Rec.Creation_Date := sysdate;
1681: ,x_msg_data => x_msg_data
1682: );
1683:
1684: EXCEPTION
1685: WHEN FND_API.G_EXC_ERROR THEN
1686: ROLLBACK TO Create_WM_Score_PUB;
1687: IF (x_msg_data IS NULL) THEN
1688: FND_MSG_PUB.Count_And_Get
1689: ( p_encoded => FND_API.G_FALSE
1685: WHEN FND_API.G_EXC_ERROR THEN
1686: ROLLBACK TO Create_WM_Score_PUB;
1687: IF (x_msg_data IS NULL) THEN
1688: FND_MSG_PUB.Count_And_Get
1689: ( p_encoded => FND_API.G_FALSE
1690: , p_count => x_msg_count
1691: , p_data => x_msg_data
1692: );
1693: END IF;
1690: , p_count => x_msg_count
1691: , p_data => x_msg_data
1692: );
1693: END IF;
1694: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1695: x_return_status := FND_API.G_RET_STS_ERROR;
1696: raise;
1697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1698: ROLLBACK TO Create_WM_Score_PUB;
1691: , p_data => x_msg_data
1692: );
1693: END IF;
1694: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1695: x_return_status := FND_API.G_RET_STS_ERROR;
1696: raise;
1697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1698: ROLLBACK TO Create_WM_Score_PUB;
1699: IF (x_msg_data IS NULL) THEN
1693: END IF;
1694: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1695: x_return_status := FND_API.G_RET_STS_ERROR;
1696: raise;
1697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1698: ROLLBACK TO Create_WM_Score_PUB;
1699: IF (x_msg_data IS NULL) THEN
1700: FND_MSG_PUB.Count_And_Get
1701: ( p_encoded => FND_API.G_FALSE
1697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1698: ROLLBACK TO Create_WM_Score_PUB;
1699: IF (x_msg_data IS NULL) THEN
1700: FND_MSG_PUB.Count_And_Get
1701: ( p_encoded => FND_API.G_FALSE
1702: , p_count => x_msg_count
1703: , p_data => x_msg_data
1704: );
1705: END IF;
1702: , p_count => x_msg_count
1703: , p_data => x_msg_data
1704: );
1705: END IF;
1706: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1707: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1708: raise;
1709: WHEN OTHERS THEN
1710: ROLLBACK TO Create_WM_Score_PUB;
1703: , p_data => x_msg_data
1704: );
1705: END IF;
1706: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1707: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1708: raise;
1709: WHEN OTHERS THEN
1710: ROLLBACK TO Create_WM_Score_PUB;
1711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1707: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1708: raise;
1709: WHEN OTHERS THEN
1710: ROLLBACK TO Create_WM_Score_PUB;
1711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1712: IF (x_msg_data IS NOT NULL) THEN
1713: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Create_WM_Score ';
1714: ELSE
1715: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Create_WM_Score ';
1720:
1721: /*******************************************************************
1722: *******************************************************************/
1723: PROCEDURE Retrieve_WM_Score(
1724: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
1725: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1726: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1727: ,x_return_status OUT NOCOPY VARCHAR2
1728: ,x_msg_count OUT NOCOPY NUMBER
1730: ) IS
1731: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
1732: BEGIN
1733: SAVEPOINT bis_Retrieve_WM_Score_pub;
1734: x_return_status := FND_API.G_RET_STS_SUCCESS;
1735: BIS_WEIGHTED_MEASURE_PVT.Retrieve_WM_Score(
1736: p_commit => p_commit
1737: ,p_Bis_WM_Rec => p_Bis_WM_Rec
1738: ,x_Bis_WM_Rec => x_Bis_WM_Rec
1741: ,x_msg_data => x_msg_data
1742: );
1743:
1744: EXCEPTION
1745: WHEN FND_API.G_EXC_ERROR THEN
1746: ROLLBACK TO bis_Retrieve_WM_Score_pub;
1747: IF (x_msg_data IS NULL) THEN
1748: FND_MSG_PUB.Count_And_Get
1749: ( p_encoded => FND_API.G_FALSE
1745: WHEN FND_API.G_EXC_ERROR THEN
1746: ROLLBACK TO bis_Retrieve_WM_Score_pub;
1747: IF (x_msg_data IS NULL) THEN
1748: FND_MSG_PUB.Count_And_Get
1749: ( p_encoded => FND_API.G_FALSE
1750: , p_count => x_msg_count
1751: , p_data => x_msg_data
1752: );
1753: END IF;
1750: , p_count => x_msg_count
1751: , p_data => x_msg_data
1752: );
1753: END IF;
1754: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1755: x_return_status := FND_API.G_RET_STS_ERROR;
1756: raise;
1757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1758: ROLLBACK TO bis_Retrieve_WM_Score_pub;
1751: , p_data => x_msg_data
1752: );
1753: END IF;
1754: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1755: x_return_status := FND_API.G_RET_STS_ERROR;
1756: raise;
1757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1758: ROLLBACK TO bis_Retrieve_WM_Score_pub;
1759: IF (x_msg_data IS NULL) THEN
1753: END IF;
1754: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1755: x_return_status := FND_API.G_RET_STS_ERROR;
1756: raise;
1757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1758: ROLLBACK TO bis_Retrieve_WM_Score_pub;
1759: IF (x_msg_data IS NULL) THEN
1760: FND_MSG_PUB.Count_And_Get
1761: ( p_encoded => FND_API.G_FALSE
1757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1758: ROLLBACK TO bis_Retrieve_WM_Score_pub;
1759: IF (x_msg_data IS NULL) THEN
1760: FND_MSG_PUB.Count_And_Get
1761: ( p_encoded => FND_API.G_FALSE
1762: , p_count => x_msg_count
1763: , p_data => x_msg_data
1764: );
1765: END IF;
1762: , p_count => x_msg_count
1763: , p_data => x_msg_data
1764: );
1765: END IF;
1766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1767: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1768: raise;
1769: WHEN OTHERS THEN
1770: ROLLBACK TO bis_Retrieve_WM_Score_pub;
1763: , p_data => x_msg_data
1764: );
1765: END IF;
1766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1767: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1768: raise;
1769: WHEN OTHERS THEN
1770: ROLLBACK TO bis_Retrieve_WM_Score_pub;
1771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1767: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1768: raise;
1769: WHEN OTHERS THEN
1770: ROLLBACK TO bis_Retrieve_WM_Score_pub;
1771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1772: IF (x_msg_data IS NOT NULL) THEN
1773: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Retrieve_WM_Score ';
1774: ELSE
1775: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Retrieve_WM_Score ';
1780:
1781: /*******************************************************************
1782: *******************************************************************/
1783: PROCEDURE Update_WM_Score(
1784: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
1785: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1786: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1787: ,x_return_status OUT NOCOPY VARCHAR2
1788: ,x_msg_count OUT NOCOPY NUMBER
1790: ) IS
1791: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
1792: BEGIN
1793: SAVEPOINT bis_Update_WM_Score_pub;
1794: x_return_status := FND_API.G_RET_STS_SUCCESS;
1795: l_Bis_WM_Rec :=p_Bis_WM_Rec;
1796:
1797: BIS_WEIGHTED_MEASURE_PUB.Retrieve_WM_Score(
1798: p_commit => p_commit
1828: );
1829:
1830:
1831: EXCEPTION
1832: WHEN FND_API.G_EXC_ERROR THEN
1833: ROLLBACK TO bis_Update_WM_Score_pub;
1834: IF (x_msg_data IS NULL) THEN
1835: FND_MSG_PUB.Count_And_Get
1836: ( p_encoded => FND_API.G_FALSE
1832: WHEN FND_API.G_EXC_ERROR THEN
1833: ROLLBACK TO bis_Update_WM_Score_pub;
1834: IF (x_msg_data IS NULL) THEN
1835: FND_MSG_PUB.Count_And_Get
1836: ( p_encoded => FND_API.G_FALSE
1837: , p_count => x_msg_count
1838: , p_data => x_msg_data
1839: );
1840: END IF;
1837: , p_count => x_msg_count
1838: , p_data => x_msg_data
1839: );
1840: END IF;
1841: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1842: x_return_status := FND_API.G_RET_STS_ERROR;
1843: raise;
1844: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1845: ROLLBACK TO bis_Update_WM_Score_pub;
1838: , p_data => x_msg_data
1839: );
1840: END IF;
1841: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1842: x_return_status := FND_API.G_RET_STS_ERROR;
1843: raise;
1844: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1845: ROLLBACK TO bis_Update_WM_Score_pub;
1846: IF (x_msg_data IS NULL) THEN
1840: END IF;
1841: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1842: x_return_status := FND_API.G_RET_STS_ERROR;
1843: raise;
1844: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1845: ROLLBACK TO bis_Update_WM_Score_pub;
1846: IF (x_msg_data IS NULL) THEN
1847: FND_MSG_PUB.Count_And_Get
1848: ( p_encoded => FND_API.G_FALSE
1844: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1845: ROLLBACK TO bis_Update_WM_Score_pub;
1846: IF (x_msg_data IS NULL) THEN
1847: FND_MSG_PUB.Count_And_Get
1848: ( p_encoded => FND_API.G_FALSE
1849: , p_count => x_msg_count
1850: , p_data => x_msg_data
1851: );
1852: END IF;
1849: , p_count => x_msg_count
1850: , p_data => x_msg_data
1851: );
1852: END IF;
1853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1854: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1855: raise;
1856: WHEN OTHERS THEN
1857: ROLLBACK TO bis_Update_WM_Score_pub;
1850: , p_data => x_msg_data
1851: );
1852: END IF;
1853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1854: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1855: raise;
1856: WHEN OTHERS THEN
1857: ROLLBACK TO bis_Update_WM_Score_pub;
1858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1854: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1855: raise;
1856: WHEN OTHERS THEN
1857: ROLLBACK TO bis_Update_WM_Score_pub;
1858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1859: IF (x_msg_data IS NOT NULL) THEN
1860: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Update_WM_Score ';
1861: ELSE
1862: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Update_WM_Score ';
1867:
1868: /*******************************************************************
1869: *******************************************************************/
1870: PROCEDURE Delete_WM_Score(
1871: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
1872: ,p_Bis_WM_Rec IN BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1873: ,x_Bis_WM_Rec OUT NOCOPY BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec
1874: ,x_return_status OUT NOCOPY VARCHAR2
1875: ,x_msg_count OUT NOCOPY NUMBER
1877: ) IS
1878: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
1879: BEGIN
1880: SAVEPOINT Delete_WM_Score_pub;
1881: x_return_status := FND_API.G_RET_STS_SUCCESS;
1882: BIS_WEIGHTED_MEASURE_PVT.Delete_WM_Score(
1883: p_commit => p_commit
1884: ,p_Bis_WM_Rec => p_Bis_WM_Rec
1885: ,x_Bis_WM_Rec => x_Bis_WM_Rec
1888: ,x_msg_data => x_msg_data
1889: );
1890:
1891: EXCEPTION
1892: WHEN FND_API.G_EXC_ERROR THEN
1893: ROLLBACK TO Delete_WM_Score_pub;
1894: IF (x_msg_data IS NULL) THEN
1895: FND_MSG_PUB.Count_And_Get
1896: ( p_encoded => FND_API.G_FALSE
1892: WHEN FND_API.G_EXC_ERROR THEN
1893: ROLLBACK TO Delete_WM_Score_pub;
1894: IF (x_msg_data IS NULL) THEN
1895: FND_MSG_PUB.Count_And_Get
1896: ( p_encoded => FND_API.G_FALSE
1897: , p_count => x_msg_count
1898: , p_data => x_msg_data
1899: );
1900: END IF;
1897: , p_count => x_msg_count
1898: , p_data => x_msg_data
1899: );
1900: END IF;
1901: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1902: x_return_status := FND_API.G_RET_STS_ERROR;
1903: raise;
1904: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1905: ROLLBACK TO Delete_WM_Score_pub;
1898: , p_data => x_msg_data
1899: );
1900: END IF;
1901: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1902: x_return_status := FND_API.G_RET_STS_ERROR;
1903: raise;
1904: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1905: ROLLBACK TO Delete_WM_Score_pub;
1906: IF (x_msg_data IS NULL) THEN
1900: END IF;
1901: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1902: x_return_status := FND_API.G_RET_STS_ERROR;
1903: raise;
1904: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1905: ROLLBACK TO Delete_WM_Score_pub;
1906: IF (x_msg_data IS NULL) THEN
1907: FND_MSG_PUB.Count_And_Get
1908: ( p_encoded => FND_API.G_FALSE
1904: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1905: ROLLBACK TO Delete_WM_Score_pub;
1906: IF (x_msg_data IS NULL) THEN
1907: FND_MSG_PUB.Count_And_Get
1908: ( p_encoded => FND_API.G_FALSE
1909: , p_count => x_msg_count
1910: , p_data => x_msg_data
1911: );
1912: END IF;
1909: , p_count => x_msg_count
1910: , p_data => x_msg_data
1911: );
1912: END IF;
1913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1914: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1915: raise;
1916: WHEN OTHERS THEN
1917: ROLLBACK TO Delete_WM_Score_pub;
1910: , p_data => x_msg_data
1911: );
1912: END IF;
1913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1914: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1915: raise;
1916: WHEN OTHERS THEN
1917: ROLLBACK TO Delete_WM_Score_pub;
1918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1914: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1915: raise;
1916: WHEN OTHERS THEN
1917: ROLLBACK TO Delete_WM_Score_pub;
1918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1919: IF (x_msg_data IS NOT NULL) THEN
1920: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Score ';
1921: ELSE
1922: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Score ';
1930:
1931: --------------------------------------------------------------------------*/
1932:
1933: PROCEDURE Create_WM_Definition(
1934: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
1935: ,p_weighted_definition_id IN NUMBER
1936: ,p_weighted_measure_id IN NUMBER
1937: ,p_viewby_dimension_sn IN VARCHAR2
1938: ,p_viewby_dim_level_sn IN VARCHAR2
1949: x_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
1950:
1951: BEGIN
1952: -- THIS IS JUST A WRAPPER PLEASE DO NOT ADD ANY BUSINESS LOGIC TO THIS PROCEDURE
1953: x_return_status := FND_API.G_RET_STS_SUCCESS;
1954:
1955: l_Bis_WM_Rec.weighted_definition_id := p_weighted_definition_id;
1956: l_Bis_WM_Rec.weighted_measure_id := p_weighted_measure_id;
1957: l_Bis_WM_Rec.viewby_dimension_sn := p_viewby_dimension_sn;
1972: );
1973: x_weighted_definition_id := x_Bis_WM_Rec.weighted_definition_id;
1974:
1975: EXCEPTION
1976: WHEN FND_API.G_EXC_ERROR THEN
1977: IF (x_msg_data IS NULL) THEN
1978: FND_MSG_PUB.Count_And_Get
1979: ( p_encoded => FND_API.G_FALSE
1980: , p_count => x_msg_count
1975: EXCEPTION
1976: WHEN FND_API.G_EXC_ERROR THEN
1977: IF (x_msg_data IS NULL) THEN
1978: FND_MSG_PUB.Count_And_Get
1979: ( p_encoded => FND_API.G_FALSE
1980: , p_count => x_msg_count
1981: , p_data => x_msg_data
1982: );
1983: END IF;
1980: , p_count => x_msg_count
1981: , p_data => x_msg_data
1982: );
1983: END IF;
1984: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1985: x_return_status := FND_API.G_RET_STS_ERROR;
1986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1987: IF (x_msg_data IS NULL) THEN
1988: FND_MSG_PUB.Count_And_Get
1981: , p_data => x_msg_data
1982: );
1983: END IF;
1984: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1985: x_return_status := FND_API.G_RET_STS_ERROR;
1986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1987: IF (x_msg_data IS NULL) THEN
1988: FND_MSG_PUB.Count_And_Get
1989: ( p_encoded => FND_API.G_FALSE
1982: );
1983: END IF;
1984: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1985: x_return_status := FND_API.G_RET_STS_ERROR;
1986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1987: IF (x_msg_data IS NULL) THEN
1988: FND_MSG_PUB.Count_And_Get
1989: ( p_encoded => FND_API.G_FALSE
1990: , p_count => x_msg_count
1985: x_return_status := FND_API.G_RET_STS_ERROR;
1986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1987: IF (x_msg_data IS NULL) THEN
1988: FND_MSG_PUB.Count_And_Get
1989: ( p_encoded => FND_API.G_FALSE
1990: , p_count => x_msg_count
1991: , p_data => x_msg_data
1992: );
1993: END IF;
1990: , p_count => x_msg_count
1991: , p_data => x_msg_data
1992: );
1993: END IF;
1994: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1995: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1996: WHEN OTHERS THEN
1997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1998: IF (x_msg_data IS NOT NULL) THEN
1991: , p_data => x_msg_data
1992: );
1993: END IF;
1994: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1995: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1996: WHEN OTHERS THEN
1997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1998: IF (x_msg_data IS NOT NULL) THEN
1999: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Create_WM_Definition ';
1993: END IF;
1994: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1995: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1996: WHEN OTHERS THEN
1997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1998: IF (x_msg_data IS NOT NULL) THEN
1999: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Create_WM_Definition ';
2000: ELSE
2001: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Create_WM_Definition ';
2019: ) IS
2020: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2021: x_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2022: BEGIN
2023: x_return_status := FND_API.G_RET_STS_SUCCESS;
2024:
2025: l_Bis_WM_Rec.weighted_definition_id := p_weighted_definition_id;
2026:
2027: BIS_WEIGHTED_MEASURE_PUB.Retrieve_WM_Definition(
2041: x_time_dimension_sn := x_Bis_WM_Rec.time_dimension_short_name ;
2042: x_time_dim_level_sn := x_Bis_WM_Rec.time_dim_level_short_name;
2043:
2044: EXCEPTION
2045: WHEN FND_API.G_EXC_ERROR THEN
2046: IF (x_msg_data IS NULL) THEN
2047: FND_MSG_PUB.Count_And_Get
2048: ( p_encoded => FND_API.G_FALSE
2049: , p_count => x_msg_count
2044: EXCEPTION
2045: WHEN FND_API.G_EXC_ERROR THEN
2046: IF (x_msg_data IS NULL) THEN
2047: FND_MSG_PUB.Count_And_Get
2048: ( p_encoded => FND_API.G_FALSE
2049: , p_count => x_msg_count
2050: , p_data => x_msg_data
2051: );
2052: END IF;
2049: , p_count => x_msg_count
2050: , p_data => x_msg_data
2051: );
2052: END IF;
2053: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2054: x_return_status := FND_API.G_RET_STS_ERROR;
2055: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2056: IF (x_msg_data IS NULL) THEN
2057: FND_MSG_PUB.Count_And_Get
2050: , p_data => x_msg_data
2051: );
2052: END IF;
2053: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2054: x_return_status := FND_API.G_RET_STS_ERROR;
2055: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2056: IF (x_msg_data IS NULL) THEN
2057: FND_MSG_PUB.Count_And_Get
2058: ( p_encoded => FND_API.G_FALSE
2051: );
2052: END IF;
2053: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2054: x_return_status := FND_API.G_RET_STS_ERROR;
2055: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2056: IF (x_msg_data IS NULL) THEN
2057: FND_MSG_PUB.Count_And_Get
2058: ( p_encoded => FND_API.G_FALSE
2059: , p_count => x_msg_count
2054: x_return_status := FND_API.G_RET_STS_ERROR;
2055: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2056: IF (x_msg_data IS NULL) THEN
2057: FND_MSG_PUB.Count_And_Get
2058: ( p_encoded => FND_API.G_FALSE
2059: , p_count => x_msg_count
2060: , p_data => x_msg_data
2061: );
2062: END IF;
2059: , p_count => x_msg_count
2060: , p_data => x_msg_data
2061: );
2062: END IF;
2063: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2064: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2065: WHEN OTHERS THEN
2066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2067: IF (x_msg_data IS NOT NULL) THEN
2060: , p_data => x_msg_data
2061: );
2062: END IF;
2063: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2064: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2065: WHEN OTHERS THEN
2066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2067: IF (x_msg_data IS NOT NULL) THEN
2068: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Retrieve_WM_Definition ';
2062: END IF;
2063: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2064: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2065: WHEN OTHERS THEN
2066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2067: IF (x_msg_data IS NOT NULL) THEN
2068: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Retrieve_WM_Definition ';
2069: ELSE
2070: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Retrieve_WM_Definition ';
2074:
2075: /*******************************************************************
2076: *******************************************************************/
2077: PROCEDURE Update_WM_Definition(
2078: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
2079: ,p_weighted_definition_id IN NUMBER
2080: ,p_weighted_measure_id IN NUMBER
2081: ,p_viewby_dimension_sn IN VARCHAR2
2082: ,p_viewby_dim_level_sn IN VARCHAR2
2092: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2093: x_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2094:
2095: BEGIN
2096: x_return_status := FND_API.G_RET_STS_SUCCESS;
2097:
2098: l_Bis_WM_Rec.weighted_definition_id := p_weighted_definition_id;
2099: l_Bis_WM_Rec.weighted_measure_id := p_weighted_measure_id;
2100: l_Bis_WM_Rec.viewby_dimension_sn := p_viewby_dimension_sn;
2114: ,x_msg_data => x_msg_data
2115: );
2116:
2117: EXCEPTION
2118: WHEN FND_API.G_EXC_ERROR THEN
2119: ROLLBACK TO bis_Update_WM_Definition_pub;
2120: IF (x_msg_data IS NULL) THEN
2121: FND_MSG_PUB.Count_And_Get
2122: ( p_encoded => FND_API.G_FALSE
2118: WHEN FND_API.G_EXC_ERROR THEN
2119: ROLLBACK TO bis_Update_WM_Definition_pub;
2120: IF (x_msg_data IS NULL) THEN
2121: FND_MSG_PUB.Count_And_Get
2122: ( p_encoded => FND_API.G_FALSE
2123: , p_count => x_msg_count
2124: , p_data => x_msg_data
2125: );
2126: END IF;
2123: , p_count => x_msg_count
2124: , p_data => x_msg_data
2125: );
2126: END IF;
2127: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2128: x_return_status := FND_API.G_RET_STS_ERROR;
2129: raise;
2130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2131: ROLLBACK TO bis_Update_WM_Definition_pub;
2124: , p_data => x_msg_data
2125: );
2126: END IF;
2127: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2128: x_return_status := FND_API.G_RET_STS_ERROR;
2129: raise;
2130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2131: ROLLBACK TO bis_Update_WM_Definition_pub;
2132: IF (x_msg_data IS NULL) THEN
2126: END IF;
2127: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2128: x_return_status := FND_API.G_RET_STS_ERROR;
2129: raise;
2130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2131: ROLLBACK TO bis_Update_WM_Definition_pub;
2132: IF (x_msg_data IS NULL) THEN
2133: FND_MSG_PUB.Count_And_Get
2134: ( p_encoded => FND_API.G_FALSE
2130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2131: ROLLBACK TO bis_Update_WM_Definition_pub;
2132: IF (x_msg_data IS NULL) THEN
2133: FND_MSG_PUB.Count_And_Get
2134: ( p_encoded => FND_API.G_FALSE
2135: , p_count => x_msg_count
2136: , p_data => x_msg_data
2137: );
2138: END IF;
2135: , p_count => x_msg_count
2136: , p_data => x_msg_data
2137: );
2138: END IF;
2139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2140: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2141: raise;
2142: WHEN OTHERS THEN
2143: ROLLBACK TO bis_Update_WM_Definition_pub;
2136: , p_data => x_msg_data
2137: );
2138: END IF;
2139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2140: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2141: raise;
2142: WHEN OTHERS THEN
2143: ROLLBACK TO bis_Update_WM_Definition_pub;
2144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2140: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2141: raise;
2142: WHEN OTHERS THEN
2143: ROLLBACK TO bis_Update_WM_Definition_pub;
2144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2145: IF (x_msg_data IS NOT NULL) THEN
2146: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Update_WM_Definition ';
2147: ELSE
2148: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Update_WM_Definition ';
2153:
2154: /*******************************************************************
2155: *******************************************************************/
2156: PROCEDURE Delete_WM_Definition(
2157: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
2158: ,p_weighted_definition_id IN NUMBER
2159: ,x_return_status OUT NOCOPY VARCHAR2
2160: ,x_msg_count OUT NOCOPY NUMBER
2161: ,x_msg_data OUT NOCOPY VARCHAR2
2164: x_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2165:
2166: BEGIN
2167: -- THIS IS JUST A WRAPPER PLEASE DO NOT ADD ANY BUSINESS LOGIC TO THIS PROCEDURE
2168: x_return_status := FND_API.G_RET_STS_SUCCESS;
2169:
2170: l_Bis_WM_Rec.weighted_definition_id := p_weighted_definition_id;
2171:
2172: BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Definition(
2178: ,x_msg_data => x_msg_data
2179: );
2180:
2181: EXCEPTION
2182: WHEN FND_API.G_EXC_ERROR THEN
2183: IF (x_msg_data IS NULL) THEN
2184: FND_MSG_PUB.Count_And_Get
2185: ( p_encoded => FND_API.G_FALSE
2186: , p_count => x_msg_count
2181: EXCEPTION
2182: WHEN FND_API.G_EXC_ERROR THEN
2183: IF (x_msg_data IS NULL) THEN
2184: FND_MSG_PUB.Count_And_Get
2185: ( p_encoded => FND_API.G_FALSE
2186: , p_count => x_msg_count
2187: , p_data => x_msg_data
2188: );
2189: END IF;
2186: , p_count => x_msg_count
2187: , p_data => x_msg_data
2188: );
2189: END IF;
2190: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2191: x_return_status := FND_API.G_RET_STS_ERROR;
2192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2193: IF (x_msg_data IS NULL) THEN
2194: FND_MSG_PUB.Count_And_Get
2187: , p_data => x_msg_data
2188: );
2189: END IF;
2190: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2191: x_return_status := FND_API.G_RET_STS_ERROR;
2192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2193: IF (x_msg_data IS NULL) THEN
2194: FND_MSG_PUB.Count_And_Get
2195: ( p_encoded => FND_API.G_FALSE
2188: );
2189: END IF;
2190: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2191: x_return_status := FND_API.G_RET_STS_ERROR;
2192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2193: IF (x_msg_data IS NULL) THEN
2194: FND_MSG_PUB.Count_And_Get
2195: ( p_encoded => FND_API.G_FALSE
2196: , p_count => x_msg_count
2191: x_return_status := FND_API.G_RET_STS_ERROR;
2192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2193: IF (x_msg_data IS NULL) THEN
2194: FND_MSG_PUB.Count_And_Get
2195: ( p_encoded => FND_API.G_FALSE
2196: , p_count => x_msg_count
2197: , p_data => x_msg_data
2198: );
2199: END IF;
2196: , p_count => x_msg_count
2197: , p_data => x_msg_data
2198: );
2199: END IF;
2200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2201: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2202: WHEN OTHERS THEN
2203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2204: IF (x_msg_data IS NOT NULL) THEN
2197: , p_data => x_msg_data
2198: );
2199: END IF;
2200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2201: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2202: WHEN OTHERS THEN
2203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2204: IF (x_msg_data IS NOT NULL) THEN
2205: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Definition ';
2199: END IF;
2200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2201: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2202: WHEN OTHERS THEN
2203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2204: IF (x_msg_data IS NOT NULL) THEN
2205: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Definition ';
2206: ELSE
2207: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Definition ';
2212: /*******************************************************************
2213: *******************************************************************/
2214:
2215: PROCEDURE Create_WM_Dependency(
2216: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
2217: ,p_weighted_measure_id IN NUMBER
2218: ,p_dependent_measure_id IN NUMBER
2219: ,x_return_status OUT NOCOPY VARCHAR2
2220: ,x_msg_count OUT NOCOPY NUMBER
2224: x_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2225: BEGIN
2226: -- THIS IS JUST A WRAPPER PLEASE DO NOT ADD ANY BUSINESS LOGIC TO THIS PROCEDURE
2227:
2228: x_return_status := FND_API.G_RET_STS_SUCCESS;
2229:
2230: l_Bis_WM_Rec.weighted_measure_id := p_weighted_measure_id;
2231: l_Bis_WM_Rec.dependent_measure_id := p_dependent_measure_id;
2232:
2239: ,x_msg_data => x_msg_data
2240: );
2241:
2242: EXCEPTION
2243: WHEN FND_API.G_EXC_ERROR THEN
2244: IF (x_msg_data IS NULL) THEN
2245: FND_MSG_PUB.Count_And_Get
2246: ( p_encoded => FND_API.G_FALSE
2247: , p_count => x_msg_count
2242: EXCEPTION
2243: WHEN FND_API.G_EXC_ERROR THEN
2244: IF (x_msg_data IS NULL) THEN
2245: FND_MSG_PUB.Count_And_Get
2246: ( p_encoded => FND_API.G_FALSE
2247: , p_count => x_msg_count
2248: , p_data => x_msg_data
2249: );
2250: END IF;
2247: , p_count => x_msg_count
2248: , p_data => x_msg_data
2249: );
2250: END IF;
2251: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2252: x_return_status := FND_API.G_RET_STS_ERROR;
2253: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2254: IF (x_msg_data IS NULL) THEN
2255: FND_MSG_PUB.Count_And_Get
2248: , p_data => x_msg_data
2249: );
2250: END IF;
2251: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2252: x_return_status := FND_API.G_RET_STS_ERROR;
2253: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2254: IF (x_msg_data IS NULL) THEN
2255: FND_MSG_PUB.Count_And_Get
2256: ( p_encoded => FND_API.G_FALSE
2249: );
2250: END IF;
2251: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2252: x_return_status := FND_API.G_RET_STS_ERROR;
2253: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2254: IF (x_msg_data IS NULL) THEN
2255: FND_MSG_PUB.Count_And_Get
2256: ( p_encoded => FND_API.G_FALSE
2257: , p_count => x_msg_count
2252: x_return_status := FND_API.G_RET_STS_ERROR;
2253: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2254: IF (x_msg_data IS NULL) THEN
2255: FND_MSG_PUB.Count_And_Get
2256: ( p_encoded => FND_API.G_FALSE
2257: , p_count => x_msg_count
2258: , p_data => x_msg_data
2259: );
2260: END IF;
2257: , p_count => x_msg_count
2258: , p_data => x_msg_data
2259: );
2260: END IF;
2261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2262: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2263: WHEN OTHERS THEN
2264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2265: IF (x_msg_data IS NOT NULL) THEN
2258: , p_data => x_msg_data
2259: );
2260: END IF;
2261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2262: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2263: WHEN OTHERS THEN
2264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2265: IF (x_msg_data IS NOT NULL) THEN
2266: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Create_WM_Dependency ';
2260: END IF;
2261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2262: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2263: WHEN OTHERS THEN
2264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2265: IF (x_msg_data IS NOT NULL) THEN
2266: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Create_WM_Dependency ';
2267: ELSE
2268: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Create_WM_Dependency ';
2274: /*******************************************************************
2275: *******************************************************************/
2276:
2277: PROCEDURE Delete_WM_Dependency(
2278: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
2279: ,p_weighted_measure_id IN NUMBER
2280: ,p_dependent_measure_id IN NUMBER
2281: ,x_return_status OUT NOCOPY VARCHAR2
2282: ,x_msg_count OUT NOCOPY NUMBER
2285: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2286: x_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2287: BEGIN
2288: -- THIS IS JUST A WRAPPER PLEASE DO NOT ADD ANY BUSINESS LOGIC TO THIS PROCEDURE
2289: x_return_status := FND_API.G_RET_STS_SUCCESS;
2290: l_Bis_WM_Rec.weighted_measure_id := p_weighted_measure_id;
2291: l_Bis_WM_Rec.dependent_measure_id := p_dependent_measure_id;
2292:
2293: -- Delete the Dependent Measure
2300: ,x_msg_data => x_msg_data
2301: );
2302:
2303: EXCEPTION
2304: WHEN FND_API.G_EXC_ERROR THEN
2305: IF (x_msg_data IS NULL) THEN
2306: FND_MSG_PUB.Count_And_Get
2307: ( p_encoded => FND_API.G_FALSE
2308: , p_count => x_msg_count
2303: EXCEPTION
2304: WHEN FND_API.G_EXC_ERROR THEN
2305: IF (x_msg_data IS NULL) THEN
2306: FND_MSG_PUB.Count_And_Get
2307: ( p_encoded => FND_API.G_FALSE
2308: , p_count => x_msg_count
2309: , p_data => x_msg_data
2310: );
2311: END IF;
2308: , p_count => x_msg_count
2309: , p_data => x_msg_data
2310: );
2311: END IF;
2312: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2313: x_return_status := FND_API.G_RET_STS_ERROR;
2314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2315: IF (x_msg_data IS NULL) THEN
2316: FND_MSG_PUB.Count_And_Get
2309: , p_data => x_msg_data
2310: );
2311: END IF;
2312: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2313: x_return_status := FND_API.G_RET_STS_ERROR;
2314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2315: IF (x_msg_data IS NULL) THEN
2316: FND_MSG_PUB.Count_And_Get
2317: ( p_encoded => FND_API.G_FALSE
2310: );
2311: END IF;
2312: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2313: x_return_status := FND_API.G_RET_STS_ERROR;
2314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2315: IF (x_msg_data IS NULL) THEN
2316: FND_MSG_PUB.Count_And_Get
2317: ( p_encoded => FND_API.G_FALSE
2318: , p_count => x_msg_count
2313: x_return_status := FND_API.G_RET_STS_ERROR;
2314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2315: IF (x_msg_data IS NULL) THEN
2316: FND_MSG_PUB.Count_And_Get
2317: ( p_encoded => FND_API.G_FALSE
2318: , p_count => x_msg_count
2319: , p_data => x_msg_data
2320: );
2321: END IF;
2318: , p_count => x_msg_count
2319: , p_data => x_msg_data
2320: );
2321: END IF;
2322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2323: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2324: WHEN OTHERS THEN
2325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2326: IF (x_msg_data IS NOT NULL) THEN
2319: , p_data => x_msg_data
2320: );
2321: END IF;
2322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2323: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2324: WHEN OTHERS THEN
2325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2326: IF (x_msg_data IS NOT NULL) THEN
2327: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Dependency ';
2321: END IF;
2322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2323: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2324: WHEN OTHERS THEN
2325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2326: IF (x_msg_data IS NOT NULL) THEN
2327: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Dependency ';
2328: ELSE
2329: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Dependency ';
2331: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2332: END Delete_WM_Dependency;
2333:
2334: PROCEDURE Create_WM_Parameter(
2335: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
2336: ,p_weighted_parameter_id IN NUMBER
2337: ,p_weighted_definition_id IN NUMBER
2338: ,p_time_level_value_id IN VARCHAR2
2339: ,p_filter_level_value_id IN VARCHAR2
2345: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2346: x_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2347: BEGIN
2348: SAVEPOINT CreateWMParameterPUB;
2349: x_return_status := FND_API.G_RET_STS_SUCCESS;
2350:
2351: l_Bis_WM_Rec.weighted_parameter_id := p_weighted_parameter_id;
2352: l_Bis_WM_Rec.weighted_definition_id := p_weighted_definition_id;
2353: l_Bis_WM_Rec.time_level_value_id := p_time_level_value_id;
2364:
2365: x_weighted_parameter_id := x_Bis_WM_Rec.weighted_parameter_id;
2366:
2367: EXCEPTION
2368: WHEN FND_API.G_EXC_ERROR THEN
2369: IF (x_msg_data IS NULL) THEN
2370: FND_MSG_PUB.Count_And_Get
2371: ( p_encoded => FND_API.G_FALSE
2372: , p_count => x_msg_count
2367: EXCEPTION
2368: WHEN FND_API.G_EXC_ERROR THEN
2369: IF (x_msg_data IS NULL) THEN
2370: FND_MSG_PUB.Count_And_Get
2371: ( p_encoded => FND_API.G_FALSE
2372: , p_count => x_msg_count
2373: , p_data => x_msg_data
2374: );
2375: END IF;
2372: , p_count => x_msg_count
2373: , p_data => x_msg_data
2374: );
2375: END IF;
2376: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2377: x_return_status := FND_API.G_RET_STS_ERROR;
2378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2379: IF (x_msg_data IS NULL) THEN
2380: FND_MSG_PUB.Count_And_Get
2373: , p_data => x_msg_data
2374: );
2375: END IF;
2376: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2377: x_return_status := FND_API.G_RET_STS_ERROR;
2378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2379: IF (x_msg_data IS NULL) THEN
2380: FND_MSG_PUB.Count_And_Get
2381: ( p_encoded => FND_API.G_FALSE
2374: );
2375: END IF;
2376: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2377: x_return_status := FND_API.G_RET_STS_ERROR;
2378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2379: IF (x_msg_data IS NULL) THEN
2380: FND_MSG_PUB.Count_And_Get
2381: ( p_encoded => FND_API.G_FALSE
2382: , p_count => x_msg_count
2377: x_return_status := FND_API.G_RET_STS_ERROR;
2378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2379: IF (x_msg_data IS NULL) THEN
2380: FND_MSG_PUB.Count_And_Get
2381: ( p_encoded => FND_API.G_FALSE
2382: , p_count => x_msg_count
2383: , p_data => x_msg_data
2384: );
2385: END IF;
2382: , p_count => x_msg_count
2383: , p_data => x_msg_data
2384: );
2385: END IF;
2386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2387: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2388: WHEN OTHERS THEN
2389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2390: IF (x_msg_data IS NOT NULL) THEN
2383: , p_data => x_msg_data
2384: );
2385: END IF;
2386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2387: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2388: WHEN OTHERS THEN
2389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2390: IF (x_msg_data IS NOT NULL) THEN
2391: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Create_WM_Parameter ';
2385: END IF;
2386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2387: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2388: WHEN OTHERS THEN
2389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2390: IF (x_msg_data IS NOT NULL) THEN
2391: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Create_WM_Parameter ';
2392: ELSE
2393: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Create_WM_Parameter ';
2397:
2398: /*******************************************************************
2399: *******************************************************************/
2400: PROCEDURE Delete_WM_Parameter(
2401: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
2402: ,p_weighted_parameter_id IN NUMBER
2403: ,x_return_status OUT NOCOPY VARCHAR2
2404: ,x_msg_count OUT NOCOPY NUMBER
2405: ,x_msg_data OUT NOCOPY VARCHAR2
2408: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2409: x_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2410:
2411: BEGIN
2412: x_return_status := FND_API.G_RET_STS_SUCCESS;
2413:
2414: l_Bis_WM_Rec.weighted_parameter_id := p_weighted_parameter_id;
2415:
2416: -- Delete the Parameter
2423: ,x_msg_data => x_msg_data
2424: );
2425:
2426: EXCEPTION
2427: WHEN FND_API.G_EXC_ERROR THEN
2428: ROLLBACK TO Delete_WM_Parameter_pub;
2429: IF (x_msg_data IS NULL) THEN
2430: FND_MSG_PUB.Count_And_Get
2431: ( p_encoded => FND_API.G_FALSE
2427: WHEN FND_API.G_EXC_ERROR THEN
2428: ROLLBACK TO Delete_WM_Parameter_pub;
2429: IF (x_msg_data IS NULL) THEN
2430: FND_MSG_PUB.Count_And_Get
2431: ( p_encoded => FND_API.G_FALSE
2432: , p_count => x_msg_count
2433: , p_data => x_msg_data
2434: );
2435: END IF;
2432: , p_count => x_msg_count
2433: , p_data => x_msg_data
2434: );
2435: END IF;
2436: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2437: x_return_status := FND_API.G_RET_STS_ERROR;
2438: raise;
2439: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2440: ROLLBACK TO Delete_WM_Parameter_pub;
2433: , p_data => x_msg_data
2434: );
2435: END IF;
2436: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2437: x_return_status := FND_API.G_RET_STS_ERROR;
2438: raise;
2439: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2440: ROLLBACK TO Delete_WM_Parameter_pub;
2441: IF (x_msg_data IS NULL) THEN
2435: END IF;
2436: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2437: x_return_status := FND_API.G_RET_STS_ERROR;
2438: raise;
2439: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2440: ROLLBACK TO Delete_WM_Parameter_pub;
2441: IF (x_msg_data IS NULL) THEN
2442: FND_MSG_PUB.Count_And_Get
2443: ( p_encoded => FND_API.G_FALSE
2439: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2440: ROLLBACK TO Delete_WM_Parameter_pub;
2441: IF (x_msg_data IS NULL) THEN
2442: FND_MSG_PUB.Count_And_Get
2443: ( p_encoded => FND_API.G_FALSE
2444: , p_count => x_msg_count
2445: , p_data => x_msg_data
2446: );
2447: END IF;
2444: , p_count => x_msg_count
2445: , p_data => x_msg_data
2446: );
2447: END IF;
2448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2449: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2450: raise;
2451: WHEN OTHERS THEN
2452: ROLLBACK TO Delete_WM_Parameter_pub;
2445: , p_data => x_msg_data
2446: );
2447: END IF;
2448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2449: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2450: raise;
2451: WHEN OTHERS THEN
2452: ROLLBACK TO Delete_WM_Parameter_pub;
2453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2449: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2450: raise;
2451: WHEN OTHERS THEN
2452: ROLLBACK TO Delete_WM_Parameter_pub;
2453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2454: IF (x_msg_data IS NOT NULL) THEN
2455: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Parameter ';
2456: ELSE
2457: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Parameter ';
2464:
2465: /*******************************************************************
2466: *******************************************************************/
2467: PROCEDURE Create_WM_Weight(
2468: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
2469: ,P_weight_id IN NUMBER
2470: ,p_weighted_parameter_id IN NUMBER
2471: ,p_dependent_measure_id IN NUMBER
2472: ,p_weight IN NUMBER
2477: ) IS
2478: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2479: x_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2480: BEGIN
2481: x_return_status := FND_API.G_RET_STS_SUCCESS;
2482:
2483: l_Bis_WM_Rec.weight_id := p_weight_id;
2484: l_Bis_WM_Rec.weighted_parameter_id := p_weighted_parameter_id;
2485: l_Bis_WM_Rec.dependent_measure_id := p_dependent_measure_id;
2496:
2497: x_weight_id := x_Bis_WM_Rec.weight_id ;
2498:
2499: EXCEPTION
2500: WHEN FND_API.G_EXC_ERROR THEN
2501: IF (x_msg_data IS NULL) THEN
2502: FND_MSG_PUB.Count_And_Get
2503: ( p_encoded => FND_API.G_FALSE
2504: , p_count => x_msg_count
2499: EXCEPTION
2500: WHEN FND_API.G_EXC_ERROR THEN
2501: IF (x_msg_data IS NULL) THEN
2502: FND_MSG_PUB.Count_And_Get
2503: ( p_encoded => FND_API.G_FALSE
2504: , p_count => x_msg_count
2505: , p_data => x_msg_data
2506: );
2507: END IF;
2504: , p_count => x_msg_count
2505: , p_data => x_msg_data
2506: );
2507: END IF;
2508: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2509: x_return_status := FND_API.G_RET_STS_ERROR;
2510: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2511: IF (x_msg_data IS NULL) THEN
2512: FND_MSG_PUB.Count_And_Get
2505: , p_data => x_msg_data
2506: );
2507: END IF;
2508: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2509: x_return_status := FND_API.G_RET_STS_ERROR;
2510: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2511: IF (x_msg_data IS NULL) THEN
2512: FND_MSG_PUB.Count_And_Get
2513: ( p_encoded => FND_API.G_FALSE
2506: );
2507: END IF;
2508: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2509: x_return_status := FND_API.G_RET_STS_ERROR;
2510: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2511: IF (x_msg_data IS NULL) THEN
2512: FND_MSG_PUB.Count_And_Get
2513: ( p_encoded => FND_API.G_FALSE
2514: , p_count => x_msg_count
2509: x_return_status := FND_API.G_RET_STS_ERROR;
2510: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2511: IF (x_msg_data IS NULL) THEN
2512: FND_MSG_PUB.Count_And_Get
2513: ( p_encoded => FND_API.G_FALSE
2514: , p_count => x_msg_count
2515: , p_data => x_msg_data
2516: );
2517: END IF;
2514: , p_count => x_msg_count
2515: , p_data => x_msg_data
2516: );
2517: END IF;
2518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2519: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2520: WHEN OTHERS THEN
2521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2522: IF (x_msg_data IS NOT NULL) THEN
2515: , p_data => x_msg_data
2516: );
2517: END IF;
2518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2519: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2520: WHEN OTHERS THEN
2521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2522: IF (x_msg_data IS NOT NULL) THEN
2523: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Create_WM_Weight ';
2517: END IF;
2518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2519: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2520: WHEN OTHERS THEN
2521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2522: IF (x_msg_data IS NOT NULL) THEN
2523: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Create_WM_Weight ';
2524: ELSE
2525: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Create_WM_Weight ';
2529:
2530: /*******************************************************************
2531: *******************************************************************/
2532: PROCEDURE Update_WM_Weight(
2533: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
2534: ,p_weight_id IN NUMBER
2535: ,p_weight IN NUMBER
2536: ,x_return_status OUT NOCOPY VARCHAR2
2537: ,x_msg_count OUT NOCOPY NUMBER
2539: ) IS
2540: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2541: x_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2542: BEGIN
2543: x_return_status := FND_API.G_RET_STS_SUCCESS;
2544:
2545: l_Bis_WM_Rec.weight_id := p_weight_id;
2546: l_Bis_WM_Rec.weight := p_weight;
2547:
2554: ,x_msg_data => x_msg_data
2555: );
2556:
2557: EXCEPTION
2558: WHEN FND_API.G_EXC_ERROR THEN
2559: ROLLBACK TO bis_Update_WM_Weight_pub;
2560: IF (x_msg_data IS NULL) THEN
2561: FND_MSG_PUB.Count_And_Get
2562: ( p_encoded => FND_API.G_FALSE
2558: WHEN FND_API.G_EXC_ERROR THEN
2559: ROLLBACK TO bis_Update_WM_Weight_pub;
2560: IF (x_msg_data IS NULL) THEN
2561: FND_MSG_PUB.Count_And_Get
2562: ( p_encoded => FND_API.G_FALSE
2563: , p_count => x_msg_count
2564: , p_data => x_msg_data
2565: );
2566: END IF;
2563: , p_count => x_msg_count
2564: , p_data => x_msg_data
2565: );
2566: END IF;
2567: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2568: x_return_status := FND_API.G_RET_STS_ERROR;
2569: raise;
2570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2571: ROLLBACK TO bis_Update_WM_Weight_pub;
2564: , p_data => x_msg_data
2565: );
2566: END IF;
2567: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2568: x_return_status := FND_API.G_RET_STS_ERROR;
2569: raise;
2570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2571: ROLLBACK TO bis_Update_WM_Weight_pub;
2572: IF (x_msg_data IS NULL) THEN
2566: END IF;
2567: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2568: x_return_status := FND_API.G_RET_STS_ERROR;
2569: raise;
2570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2571: ROLLBACK TO bis_Update_WM_Weight_pub;
2572: IF (x_msg_data IS NULL) THEN
2573: FND_MSG_PUB.Count_And_Get
2574: ( p_encoded => FND_API.G_FALSE
2570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2571: ROLLBACK TO bis_Update_WM_Weight_pub;
2572: IF (x_msg_data IS NULL) THEN
2573: FND_MSG_PUB.Count_And_Get
2574: ( p_encoded => FND_API.G_FALSE
2575: , p_count => x_msg_count
2576: , p_data => x_msg_data
2577: );
2578: END IF;
2575: , p_count => x_msg_count
2576: , p_data => x_msg_data
2577: );
2578: END IF;
2579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2580: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2581: raise;
2582: WHEN OTHERS THEN
2583: ROLLBACK TO bis_Update_WM_Weight_pub;
2576: , p_data => x_msg_data
2577: );
2578: END IF;
2579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2580: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2581: raise;
2582: WHEN OTHERS THEN
2583: ROLLBACK TO bis_Update_WM_Weight_pub;
2584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2580: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2581: raise;
2582: WHEN OTHERS THEN
2583: ROLLBACK TO bis_Update_WM_Weight_pub;
2584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2585: IF (x_msg_data IS NOT NULL) THEN
2586: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Update_WM_Weight ';
2587: ELSE
2588: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Update_WM_Weight ';
2593:
2594: /*******************************************************************
2595: *******************************************************************/
2596: PROCEDURE Delete_WM_Weight(
2597: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
2598: ,p_weight_id IN NUMBER
2599: ,x_return_status OUT NOCOPY VARCHAR2
2600: ,x_msg_count OUT NOCOPY NUMBER
2601: ,x_msg_data OUT NOCOPY VARCHAR2
2603: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2604: x_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2605: BEGIN
2606: SAVEPOINT Delete_WM_Weight_pub;
2607: x_return_status := FND_API.G_RET_STS_SUCCESS;
2608:
2609: l_Bis_WM_Rec.weight_id := p_weight_id;
2610: -- Delete the Weight
2611: BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Weight(
2617: ,x_msg_data => x_msg_data
2618: );
2619:
2620: EXCEPTION
2621: WHEN FND_API.G_EXC_ERROR THEN
2622: IF (x_msg_data IS NULL) THEN
2623: FND_MSG_PUB.Count_And_Get
2624: ( p_encoded => FND_API.G_FALSE
2625: , p_count => x_msg_count
2620: EXCEPTION
2621: WHEN FND_API.G_EXC_ERROR THEN
2622: IF (x_msg_data IS NULL) THEN
2623: FND_MSG_PUB.Count_And_Get
2624: ( p_encoded => FND_API.G_FALSE
2625: , p_count => x_msg_count
2626: , p_data => x_msg_data
2627: );
2628: END IF;
2625: , p_count => x_msg_count
2626: , p_data => x_msg_data
2627: );
2628: END IF;
2629: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2630: x_return_status := FND_API.G_RET_STS_ERROR;
2631: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2632: IF (x_msg_data IS NULL) THEN
2633: FND_MSG_PUB.Count_And_Get
2626: , p_data => x_msg_data
2627: );
2628: END IF;
2629: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2630: x_return_status := FND_API.G_RET_STS_ERROR;
2631: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2632: IF (x_msg_data IS NULL) THEN
2633: FND_MSG_PUB.Count_And_Get
2634: ( p_encoded => FND_API.G_FALSE
2627: );
2628: END IF;
2629: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2630: x_return_status := FND_API.G_RET_STS_ERROR;
2631: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2632: IF (x_msg_data IS NULL) THEN
2633: FND_MSG_PUB.Count_And_Get
2634: ( p_encoded => FND_API.G_FALSE
2635: , p_count => x_msg_count
2630: x_return_status := FND_API.G_RET_STS_ERROR;
2631: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2632: IF (x_msg_data IS NULL) THEN
2633: FND_MSG_PUB.Count_And_Get
2634: ( p_encoded => FND_API.G_FALSE
2635: , p_count => x_msg_count
2636: , p_data => x_msg_data
2637: );
2638: END IF;
2635: , p_count => x_msg_count
2636: , p_data => x_msg_data
2637: );
2638: END IF;
2639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2640: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2641: WHEN OTHERS THEN
2642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2643: IF (x_msg_data IS NOT NULL) THEN
2636: , p_data => x_msg_data
2637: );
2638: END IF;
2639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2640: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2641: WHEN OTHERS THEN
2642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2643: IF (x_msg_data IS NOT NULL) THEN
2644: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Weight ';
2638: END IF;
2639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2640: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2641: WHEN OTHERS THEN
2642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2643: IF (x_msg_data IS NOT NULL) THEN
2644: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Weight ';
2645: ELSE
2646: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Weight ';
2648: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2649: END Delete_WM_Weight;
2650:
2651: PROCEDURE Create_WM_Score(
2652: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
2653: ,p_weight_id IN NUMBER
2654: ,p_low_range IN NUMBER
2655: ,p_high_range IN NUMBER
2656: ,p_score IN NUMBER
2661: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2662: x_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2663: BEGIN
2664: SAVEPOINT Create_WM_Score_PUB;
2665: x_return_status := FND_API.G_RET_STS_SUCCESS;
2666:
2667: l_Bis_WM_Rec.weight_id := p_weight_id;
2668: l_Bis_WM_Rec.low_range := p_low_range;
2669: l_Bis_WM_Rec.high_range := p_high_range;
2678: ,x_msg_data => x_msg_data
2679: );
2680:
2681: EXCEPTION
2682: WHEN FND_API.G_EXC_ERROR THEN
2683: IF (x_msg_data IS NULL) THEN
2684: FND_MSG_PUB.Count_And_Get
2685: ( p_encoded => FND_API.G_FALSE
2686: , p_count => x_msg_count
2681: EXCEPTION
2682: WHEN FND_API.G_EXC_ERROR THEN
2683: IF (x_msg_data IS NULL) THEN
2684: FND_MSG_PUB.Count_And_Get
2685: ( p_encoded => FND_API.G_FALSE
2686: , p_count => x_msg_count
2687: , p_data => x_msg_data
2688: );
2689: END IF;
2686: , p_count => x_msg_count
2687: , p_data => x_msg_data
2688: );
2689: END IF;
2690: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2691: x_return_status := FND_API.G_RET_STS_ERROR;
2692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2693: IF (x_msg_data IS NULL) THEN
2694: FND_MSG_PUB.Count_And_Get
2687: , p_data => x_msg_data
2688: );
2689: END IF;
2690: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2691: x_return_status := FND_API.G_RET_STS_ERROR;
2692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2693: IF (x_msg_data IS NULL) THEN
2694: FND_MSG_PUB.Count_And_Get
2695: ( p_encoded => FND_API.G_FALSE
2688: );
2689: END IF;
2690: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2691: x_return_status := FND_API.G_RET_STS_ERROR;
2692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2693: IF (x_msg_data IS NULL) THEN
2694: FND_MSG_PUB.Count_And_Get
2695: ( p_encoded => FND_API.G_FALSE
2696: , p_count => x_msg_count
2691: x_return_status := FND_API.G_RET_STS_ERROR;
2692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2693: IF (x_msg_data IS NULL) THEN
2694: FND_MSG_PUB.Count_And_Get
2695: ( p_encoded => FND_API.G_FALSE
2696: , p_count => x_msg_count
2697: , p_data => x_msg_data
2698: );
2699: END IF;
2696: , p_count => x_msg_count
2697: , p_data => x_msg_data
2698: );
2699: END IF;
2700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2701: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2702: WHEN OTHERS THEN
2703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2704: IF (x_msg_data IS NOT NULL) THEN
2697: , p_data => x_msg_data
2698: );
2699: END IF;
2700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2701: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2702: WHEN OTHERS THEN
2703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2704: IF (x_msg_data IS NOT NULL) THEN
2705: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Create_WM_Score ';
2699: END IF;
2700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2701: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2702: WHEN OTHERS THEN
2703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2704: IF (x_msg_data IS NOT NULL) THEN
2705: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Create_WM_Score ';
2706: ELSE
2707: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Create_WM_Score ';
2711:
2712: /*******************************************************************
2713: *******************************************************************/
2714: PROCEDURE Delete_WM_Score(
2715: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
2716: ,p_weight_id IN NUMBER
2717: ,x_return_status OUT NOCOPY VARCHAR2
2718: ,x_msg_count OUT NOCOPY NUMBER
2719: ,x_msg_data OUT NOCOPY VARCHAR2
2720: ) IS
2721: l_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2722: x_Bis_WM_Rec BIS_WEIGHTED_MEASURE_PUB.Bis_WM_Rec;
2723: BEGIN
2724: x_return_status := FND_API.G_RET_STS_SUCCESS;
2725:
2726: l_Bis_WM_Rec.weight_id := p_weight_id;
2727:
2728: BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Score(
2734: ,x_msg_data => x_msg_data
2735: );
2736:
2737: EXCEPTION
2738: WHEN FND_API.G_EXC_ERROR THEN
2739: IF (x_msg_data IS NULL) THEN
2740: FND_MSG_PUB.Count_And_Get
2741: ( p_encoded => FND_API.G_FALSE
2742: , p_count => x_msg_count
2737: EXCEPTION
2738: WHEN FND_API.G_EXC_ERROR THEN
2739: IF (x_msg_data IS NULL) THEN
2740: FND_MSG_PUB.Count_And_Get
2741: ( p_encoded => FND_API.G_FALSE
2742: , p_count => x_msg_count
2743: , p_data => x_msg_data
2744: );
2745: END IF;
2742: , p_count => x_msg_count
2743: , p_data => x_msg_data
2744: );
2745: END IF;
2746: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2747: x_return_status := FND_API.G_RET_STS_ERROR;
2748: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2749: IF (x_msg_data IS NULL) THEN
2750: FND_MSG_PUB.Count_And_Get
2743: , p_data => x_msg_data
2744: );
2745: END IF;
2746: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2747: x_return_status := FND_API.G_RET_STS_ERROR;
2748: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2749: IF (x_msg_data IS NULL) THEN
2750: FND_MSG_PUB.Count_And_Get
2751: ( p_encoded => FND_API.G_FALSE
2744: );
2745: END IF;
2746: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2747: x_return_status := FND_API.G_RET_STS_ERROR;
2748: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2749: IF (x_msg_data IS NULL) THEN
2750: FND_MSG_PUB.Count_And_Get
2751: ( p_encoded => FND_API.G_FALSE
2752: , p_count => x_msg_count
2747: x_return_status := FND_API.G_RET_STS_ERROR;
2748: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2749: IF (x_msg_data IS NULL) THEN
2750: FND_MSG_PUB.Count_And_Get
2751: ( p_encoded => FND_API.G_FALSE
2752: , p_count => x_msg_count
2753: , p_data => x_msg_data
2754: );
2755: END IF;
2752: , p_count => x_msg_count
2753: , p_data => x_msg_data
2754: );
2755: END IF;
2756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2757: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2758: WHEN OTHERS THEN
2759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2760: IF (x_msg_data IS NOT NULL) THEN
2753: , p_data => x_msg_data
2754: );
2755: END IF;
2756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2757: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2758: WHEN OTHERS THEN
2759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2760: IF (x_msg_data IS NOT NULL) THEN
2761: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Score ';
2755: END IF;
2756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2757: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2758: WHEN OTHERS THEN
2759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2760: IF (x_msg_data IS NOT NULL) THEN
2761: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Score ';
2762: ELSE
2763: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Score ';
2890:
2891: /*******************************************************************
2892: *******************************************************************/
2893: PROCEDURE Delete_Weighted_Measure_data(
2894: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
2895: ,p_weighted_measure_id IN NUMBER
2896: ,x_return_status OUT NOCOPY VARCHAR2
2897: ,x_msg_count OUT NOCOPY NUMBER
2898: ,x_msg_data OUT NOCOPY VARCHAR2
2912: FROM BIS_WEIGHTED_MEASURE_DEPENDS
2913: WHERE WEIGHTED_MEASURE_ID = p_weighted_measure_id;
2914:
2915: BEGIN
2916: x_return_status := FND_API.G_RET_STS_SUCCESS;
2917:
2918: -- Dependent Measures Cascading delete when the Weighted Measure is deleted
2919: FOR CD IN c_WM_Dependent LOOP
2920: l_Bis_WM_Rec.weighted_measure_id := p_weighted_measure_id;
2919: FOR CD IN c_WM_Dependent LOOP
2920: l_Bis_WM_Rec.weighted_measure_id := p_weighted_measure_id;
2921: l_Bis_WM_Rec.dependent_measure_id := CD.DEPENDENT_MEASURE_ID;
2922: BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Dependency(
2923: p_commit => FND_API.G_FALSE
2924: ,p_Bis_WM_Rec => l_Bis_WM_Rec
2925: ,x_Bis_WM_Rec => x_Bis_WM_Rec
2926: ,x_return_status => x_return_status
2927: ,x_msg_count => x_msg_count
2933: FOR CD IN c_WM_Definitions LOOP
2934: l_Bis_WM_Rec.weighted_measure_id := p_weighted_measure_id;
2935: l_Bis_WM_Rec.weighted_definition_id := CD.WEIGHTED_DEFINITION_ID;
2936: BIS_WEIGHTED_MEASURE_PUB.Delete_WM_Definition(
2937: p_commit => FND_API.G_FALSE
2938: ,p_Bis_WM_Rec => l_Bis_WM_Rec
2939: ,x_Bis_WM_Rec => x_Bis_WM_Rec
2940: ,x_return_status => x_return_status
2941: ,x_msg_count => x_msg_count
2942: ,x_msg_data => x_msg_data
2943: );
2944: END LOOP;
2945:
2946: IF p_commit = FND_API.G_TRUE THEN
2947: COMMIT;
2948: END IF;
2949:
2950: EXCEPTION
2947: COMMIT;
2948: END IF;
2949:
2950: EXCEPTION
2951: WHEN FND_API.G_EXC_ERROR THEN
2952: ROLLBACK TO Delete_WM_Definition_pub;
2953: IF (x_msg_data IS NULL) THEN
2954: FND_MSG_PUB.Count_And_Get
2955: ( p_encoded => FND_API.G_FALSE
2951: WHEN FND_API.G_EXC_ERROR THEN
2952: ROLLBACK TO Delete_WM_Definition_pub;
2953: IF (x_msg_data IS NULL) THEN
2954: FND_MSG_PUB.Count_And_Get
2955: ( p_encoded => FND_API.G_FALSE
2956: , p_count => x_msg_count
2957: , p_data => x_msg_data
2958: );
2959: END IF;
2956: , p_count => x_msg_count
2957: , p_data => x_msg_data
2958: );
2959: END IF;
2960: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2961: x_return_status := FND_API.G_RET_STS_ERROR;
2962: -- raise;
2963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2964: ROLLBACK TO Delete_WM_Definition_pub;
2957: , p_data => x_msg_data
2958: );
2959: END IF;
2960: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2961: x_return_status := FND_API.G_RET_STS_ERROR;
2962: -- raise;
2963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2964: ROLLBACK TO Delete_WM_Definition_pub;
2965: IF (x_msg_data IS NULL) THEN
2959: END IF;
2960: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2961: x_return_status := FND_API.G_RET_STS_ERROR;
2962: -- raise;
2963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2964: ROLLBACK TO Delete_WM_Definition_pub;
2965: IF (x_msg_data IS NULL) THEN
2966: FND_MSG_PUB.Count_And_Get
2967: ( p_encoded => FND_API.G_FALSE
2963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2964: ROLLBACK TO Delete_WM_Definition_pub;
2965: IF (x_msg_data IS NULL) THEN
2966: FND_MSG_PUB.Count_And_Get
2967: ( p_encoded => FND_API.G_FALSE
2968: , p_count => x_msg_count
2969: , p_data => x_msg_data
2970: );
2971: END IF;
2968: , p_count => x_msg_count
2969: , p_data => x_msg_data
2970: );
2971: END IF;
2972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2973: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2974: -- raise;
2975: WHEN OTHERS THEN
2976: ROLLBACK TO Delete_WM_Definition_pub;
2969: , p_data => x_msg_data
2970: );
2971: END IF;
2972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2973: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2974: -- raise;
2975: WHEN OTHERS THEN
2976: ROLLBACK TO Delete_WM_Definition_pub;
2977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2973: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2974: -- raise;
2975: WHEN OTHERS THEN
2976: ROLLBACK TO Delete_WM_Definition_pub;
2977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2978: IF (x_msg_data IS NOT NULL) THEN
2979: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Delete_Weighted_Measure_data ';
2980: ELSE
2981: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Delete_Weighted_Measure_data ';
2986: /*******************************************************************
2987: *******************************************************************/
2988:
2989: PROCEDURE Create_Weighted_Measure_data(
2990: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
2991: ,p_weighted_measure_id IN NUMBER
2992: ,p_dependent_measure_ids IN VARCHAR2
2993: ,p_viewby_dimension_short_name IN VARCHAR2
2994: ,p_viewby_dim_level_short_name IN VARCHAR2
3011: l_count NUMBER;
3012:
3013: BEGIN
3014: SAVEPOINT BisCreateWeightedMeasure;
3015: x_return_status := FND_API.G_RET_STS_SUCCESS;
3016:
3017: -- Check if the Weighted Measure metada already exist
3018: SELECT COUNT(1)
3019: INTO l_count
3047: --DBMS_OUTPUT.PUT_LINE('l_Bis_WM_Rec.time_dimension_short_name = ' || l_Bis_WM_Rec.time_dimension_short_name);
3048: --DBMS_OUTPUT.PUT_LINE('l_Bis_WM_Rec.time_dim_level_short_name = ' || l_Bis_WM_Rec.time_dim_level_short_name);
3049:
3050: BIS_WEIGHTED_MEASURE_PUB.Create_WM_Definition(
3051: p_commit => FND_API.G_FALSE
3052: ,p_Bis_WM_Rec => l_Bis_WM_Rec
3053: ,x_Bis_WM_Rec => x_Bis_WM_Rec
3054: ,x_return_status => x_return_status
3055: ,x_msg_count => x_msg_count
3068: --DBMS_OUTPUT.PUT_LINE('l_Bis_WM_Rec.weighted_measure_id' || l_Bis_WM_Rec.weighted_measure_id);
3069: --DBMS_OUTPUT.PUT_LINE('l_dependent_measure_id = '||l_dependent_measure_id);
3070:
3071: BIS_WEIGHTED_MEASURE_PUB.Create_WM_Dependency(
3072: p_commit => FND_API.G_FALSE
3073: ,p_Bis_WM_Rec => l_Bis_WM_Rec
3074: ,x_Bis_WM_Rec => x_Bis_WM_Rec
3075: ,x_return_status => x_return_status
3076: ,x_msg_count => x_msg_count
3095: ,x_msg_count => x_msg_count
3096: ,x_msg_data => x_msg_data
3097: );
3098: */
3099: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3101: END IF;
3102:
3103: END IF;
3096: ,x_msg_data => x_msg_data
3097: );
3098: */
3099: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3101: END IF;
3102:
3103: END IF;
3104:
3101: END IF;
3102:
3103: END IF;
3104:
3105: IF p_commit = FND_API.G_TRUE THEN
3106: COMMIT;
3107: END IF;
3108:
3109:
3107: END IF;
3108:
3109:
3110: EXCEPTION
3111: WHEN FND_API.G_EXC_ERROR THEN
3112: ROLLBACK TO BisCreateWeightedMeasure;
3113: IF (x_msg_data IS NULL) THEN
3114: FND_MSG_PUB.Count_And_Get
3115: ( p_encoded => FND_API.G_FALSE
3111: WHEN FND_API.G_EXC_ERROR THEN
3112: ROLLBACK TO BisCreateWeightedMeasure;
3113: IF (x_msg_data IS NULL) THEN
3114: FND_MSG_PUB.Count_And_Get
3115: ( p_encoded => FND_API.G_FALSE
3116: , p_count => x_msg_count
3117: , p_data => x_msg_data
3118: );
3119: END IF;
3116: , p_count => x_msg_count
3117: , p_data => x_msg_data
3118: );
3119: END IF;
3120: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3121: x_return_status := FND_API.G_RET_STS_ERROR;
3122: -- raise;
3123: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3124: ROLLBACK TO BisCreateWeightedMeasure;
3117: , p_data => x_msg_data
3118: );
3119: END IF;
3120: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3121: x_return_status := FND_API.G_RET_STS_ERROR;
3122: -- raise;
3123: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3124: ROLLBACK TO BisCreateWeightedMeasure;
3125: IF (x_msg_data IS NULL) THEN
3119: END IF;
3120: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3121: x_return_status := FND_API.G_RET_STS_ERROR;
3122: -- raise;
3123: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3124: ROLLBACK TO BisCreateWeightedMeasure;
3125: IF (x_msg_data IS NULL) THEN
3126: FND_MSG_PUB.Count_And_Get
3127: ( p_encoded => FND_API.G_FALSE
3123: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3124: ROLLBACK TO BisCreateWeightedMeasure;
3125: IF (x_msg_data IS NULL) THEN
3126: FND_MSG_PUB.Count_And_Get
3127: ( p_encoded => FND_API.G_FALSE
3128: , p_count => x_msg_count
3129: , p_data => x_msg_data
3130: );
3131: END IF;
3128: , p_count => x_msg_count
3129: , p_data => x_msg_data
3130: );
3131: END IF;
3132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3133: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3134: -- raise;
3135: WHEN OTHERS THEN
3136: ROLLBACK TO BisCreateWeightedMeasure;
3129: , p_data => x_msg_data
3130: );
3131: END IF;
3132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3133: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3134: -- raise;
3135: WHEN OTHERS THEN
3136: ROLLBACK TO BisCreateWeightedMeasure;
3137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3133: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3134: -- raise;
3135: WHEN OTHERS THEN
3136: ROLLBACK TO BisCreateWeightedMeasure;
3137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3138: IF (x_msg_data IS NOT NULL) THEN
3139: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Create_Weighted_Measure_data ';
3140: ELSE
3141: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Create_Weighted_Measure_data ';
3159: -- defined . If so create weight entries for these combinations
3160: -- entries (Only if the weight is not null)
3161: ************************************************************************************/
3162: PROCEDURE Set_Weight_Data(
3163: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
3164: ,p_weighted_measure_id NUMBER
3165: ,p_dependent_measure_id NUMBER
3166: ,p_weight NUMBER
3167: ,x_return_status OUT NOCOPY VARCHAR2
3177: l_Login_Id NUMBER;
3178:
3179: BEGIN
3180: SAVEPOINT BisSetWeightDataPUB1;
3181: x_return_status := FND_API.G_RET_STS_SUCCESS;
3182:
3183:
3184: -- Check that dependent measure exist
3185: SELECT COUNT(WEIGHTED_MEASURE_ID)
3192: FND_MESSAGE.SET_NAME('BIS','BIS_WM_DEP_MEASURE_NO_FOUND');
3193: FND_MESSAGE.SET_TOKEN('DEP_MEASURE',p_dependent_measure_id);
3194: FND_MESSAGE.SET_TOKEN('MEASURE',p_weighted_measure_id);
3195: FND_MSG_PUB.ADD;
3196: RAISE FND_API.G_EXC_ERROR;
3197: END IF;
3198:
3199: l_User_Id := FND_GLOBAL.user_id;
3200: l_Login_Id := FND_GLOBAL.login_id;
3257: weighted_parameter_id = l_Update_Param_Ids(i) AND
3258: dependent_measure_id = p_dependent_measure_id;
3259: ELSE
3260: Delete_Bulk_Weights_Scores (
3261: p_commit => FND_API.G_FALSE
3262: ,p_Param_Ids => l_Update_Param_Ids
3263: ,p_dependent_measure_id => p_dependent_measure_id
3264: ,x_return_status => x_return_status
3265: ,x_msg_count => x_msg_count
3264: ,x_return_status => x_return_status
3265: ,x_msg_count => x_msg_count
3266: ,x_msg_data => x_msg_data
3267: );
3268: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3270: END IF;
3271: END IF;
3272: END IF;
3265: ,x_msg_count => x_msg_count
3266: ,x_msg_data => x_msg_data
3267: );
3268: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3270: END IF;
3271: END IF;
3272: END IF;
3273:
3297: END IF;
3298: END IF;
3299: END IF;
3300:
3301: IF p_commit = FND_API.G_TRUE THEN
3302: COMMIT;
3303: END IF;
3304:
3305: EXCEPTION
3302: COMMIT;
3303: END IF;
3304:
3305: EXCEPTION
3306: WHEN FND_API.G_EXC_ERROR THEN
3307: ROLLBACK TO BisSetWeightDataPUB1;
3308: IF (x_msg_data IS NULL) THEN
3309: FND_MSG_PUB.Count_And_Get
3310: ( p_encoded => FND_API.G_FALSE
3306: WHEN FND_API.G_EXC_ERROR THEN
3307: ROLLBACK TO BisSetWeightDataPUB1;
3308: IF (x_msg_data IS NULL) THEN
3309: FND_MSG_PUB.Count_And_Get
3310: ( p_encoded => FND_API.G_FALSE
3311: , p_count => x_msg_count
3312: , p_data => x_msg_data
3313: );
3314: END IF;
3311: , p_count => x_msg_count
3312: , p_data => x_msg_data
3313: );
3314: END IF;
3315: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3316: x_return_status := FND_API.G_RET_STS_ERROR;
3317: -- raise;
3318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3319: ROLLBACK TO BisSetWeightDataPUB1;
3312: , p_data => x_msg_data
3313: );
3314: END IF;
3315: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3316: x_return_status := FND_API.G_RET_STS_ERROR;
3317: -- raise;
3318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3319: ROLLBACK TO BisSetWeightDataPUB1;
3320: IF (x_msg_data IS NULL) THEN
3314: END IF;
3315: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3316: x_return_status := FND_API.G_RET_STS_ERROR;
3317: -- raise;
3318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3319: ROLLBACK TO BisSetWeightDataPUB1;
3320: IF (x_msg_data IS NULL) THEN
3321: FND_MSG_PUB.Count_And_Get
3322: ( p_encoded => FND_API.G_FALSE
3318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3319: ROLLBACK TO BisSetWeightDataPUB1;
3320: IF (x_msg_data IS NULL) THEN
3321: FND_MSG_PUB.Count_And_Get
3322: ( p_encoded => FND_API.G_FALSE
3323: , p_count => x_msg_count
3324: , p_data => x_msg_data
3325: );
3326: END IF;
3323: , p_count => x_msg_count
3324: , p_data => x_msg_data
3325: );
3326: END IF;
3327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3328: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3329: -- raise;
3330: WHEN OTHERS THEN
3331: ROLLBACK TO BisSetWeightDataPUB1;
3324: , p_data => x_msg_data
3325: );
3326: END IF;
3327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3328: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3329: -- raise;
3330: WHEN OTHERS THEN
3331: ROLLBACK TO BisSetWeightDataPUB1;
3332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3328: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3329: -- raise;
3330: WHEN OTHERS THEN
3331: ROLLBACK TO BisSetWeightDataPUB1;
3332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3333: IF (x_msg_data IS NOT NULL) THEN
3334: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Set_Weight_Data ';
3335: ELSE
3336: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Set_Weight_Data ';
3339: -- raise;
3340: END Set_Weight_Data;
3341:
3342: Procedure Set_Weights_Data(
3343: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
3344: ,p_weighted_measure_id IN NUMBER
3345: ,p_depend_measure_short_names IN FND_TABLE_OF_VARCHAR2_30
3346: ,p_weights IN FND_TABLE_OF_NUMBER
3347: ,x_return_status OUT NOCOPY VARCHAR2
3380: ,x_msg_data => x_msg_data
3381: );
3382:
3383: EXCEPTION
3384: WHEN FND_API.G_EXC_ERROR THEN
3385: x_return_status := FND_API.G_RET_STS_ERROR;
3386: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
3387: ,p_data => x_msg_data);
3388: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3381: );
3382:
3383: EXCEPTION
3384: WHEN FND_API.G_EXC_ERROR THEN
3385: x_return_status := FND_API.G_RET_STS_ERROR;
3386: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
3387: ,p_data => x_msg_data);
3388: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3384: WHEN FND_API.G_EXC_ERROR THEN
3385: x_return_status := FND_API.G_RET_STS_ERROR;
3386: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
3387: ,p_data => x_msg_data);
3388: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3390: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
3391: ,p_data => x_msg_data);
3392: WHEN NO_DATA_FOUND THEN
3385: x_return_status := FND_API.G_RET_STS_ERROR;
3386: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
3387: ,p_data => x_msg_data);
3388: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3390: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
3391: ,p_data => x_msg_data);
3392: WHEN NO_DATA_FOUND THEN
3393: x_return_status := FND_API.G_RET_STS_ERROR;
3389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3390: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
3391: ,p_data => x_msg_data);
3392: WHEN NO_DATA_FOUND THEN
3393: x_return_status := FND_API.G_RET_STS_ERROR;
3394: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
3395: ,p_data => x_msg_data);
3396: WHEN OTHERS THEN
3397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3393: x_return_status := FND_API.G_RET_STS_ERROR;
3394: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
3395: ,p_data => x_msg_data);
3396: WHEN OTHERS THEN
3397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3398: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
3399: ,p_data => x_msg_data);
3400: if (x_msg_data is null) then
3401: x_msg_data := SQLERRM;
3437:
3438: /*******************************************************************
3439: *******************************************************************/
3440: PROCEDURE Update_WM_Last_Update_Info(
3441: p_commit IN VARCHAR2 := FND_API.G_FALSE
3442: ,p_weighted_measure_id IN NUMBER
3443: ,x_return_status OUT NOCOPY VARCHAR2
3444: ,x_msg_count OUT NOCOPY NUMBER
3445: ,x_msg_data OUT NOCOPY VARCHAR2
3446: ) IS
3447: BEGIN
3448: SAVEPOINT Update_WM_LU_Info_pub;
3449:
3450: x_return_status := FND_API.G_RET_STS_SUCCESS;
3451:
3452: BIS_WEIGHTED_MEASURE_PVT.Update_WM_Last_Update_Info(
3453: p_commit => p_commit
3454: ,p_weighted_measure_id => p_weighted_measure_id
3457: ,x_msg_data => x_msg_data
3458: );
3459:
3460: EXCEPTION
3461: WHEN FND_API.G_EXC_ERROR THEN
3462: ROLLBACK TO Update_WM_LU_Info_pub;
3463: IF (x_msg_data IS NULL) THEN
3464: FND_MSG_PUB.Count_And_Get
3465: ( p_encoded => FND_API.G_FALSE
3461: WHEN FND_API.G_EXC_ERROR THEN
3462: ROLLBACK TO Update_WM_LU_Info_pub;
3463: IF (x_msg_data IS NULL) THEN
3464: FND_MSG_PUB.Count_And_Get
3465: ( p_encoded => FND_API.G_FALSE
3466: , p_count => x_msg_count
3467: , p_data => x_msg_data
3468: );
3469: END IF;
3466: , p_count => x_msg_count
3467: , p_data => x_msg_data
3468: );
3469: END IF;
3470: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3471: x_return_status := FND_API.G_RET_STS_ERROR;
3472: raise;
3473: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3474: ROLLBACK TO Update_WM_LU_Info_pub;
3467: , p_data => x_msg_data
3468: );
3469: END IF;
3470: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3471: x_return_status := FND_API.G_RET_STS_ERROR;
3472: raise;
3473: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3474: ROLLBACK TO Update_WM_LU_Info_pub;
3475: IF (x_msg_data IS NULL) THEN
3469: END IF;
3470: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3471: x_return_status := FND_API.G_RET_STS_ERROR;
3472: raise;
3473: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3474: ROLLBACK TO Update_WM_LU_Info_pub;
3475: IF (x_msg_data IS NULL) THEN
3476: FND_MSG_PUB.Count_And_Get
3477: ( p_encoded => FND_API.G_FALSE
3473: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3474: ROLLBACK TO Update_WM_LU_Info_pub;
3475: IF (x_msg_data IS NULL) THEN
3476: FND_MSG_PUB.Count_And_Get
3477: ( p_encoded => FND_API.G_FALSE
3478: , p_count => x_msg_count
3479: , p_data => x_msg_data
3480: );
3481: END IF;
3478: , p_count => x_msg_count
3479: , p_data => x_msg_data
3480: );
3481: END IF;
3482: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3483: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3484: raise;
3485: WHEN OTHERS THEN
3486: ROLLBACK TO Update_WM_LU_Info_pub;
3479: , p_data => x_msg_data
3480: );
3481: END IF;
3482: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3483: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3484: raise;
3485: WHEN OTHERS THEN
3486: ROLLBACK TO Update_WM_LU_Info_pub;
3487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3483: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3484: raise;
3485: WHEN OTHERS THEN
3486: ROLLBACK TO Update_WM_LU_Info_pub;
3487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3488: IF (x_msg_data IS NOT NULL) THEN
3489: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Update_WM_Last_Update_Info ';
3490: ELSE
3491: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Update_WM_Last_Update_Info ';
3505: -- 3. Delete all the weights and scores corresponding to the above weight ids
3506: ************************************************************************************/
3507:
3508: PROCEDURE Delete_Mass_Update_Data(
3509: p_commit IN VARCHAR2 := FND_API.G_FALSE
3510: ,p_weighted_definition_id IN NUMBER
3511: ,p_dependent_measure_id IN NUMBER
3512: ,p_Selected_Period_Ids IN BIS_TABLE_OF_VARCHAR
3513: ,p_Selected_DimObj_Ids IN BIS_TABLE_OF_VARCHAR
3518: IS
3519: l_Param_Ids FND_TABLE_OF_NUMBER;
3520: l_Weight_Ids FND_TABLE_OF_NUMBER;
3521: BEGIN
3522: x_return_status := FND_API.G_RET_STS_SUCCESS;
3523: SAVEPOINT Bis_Delete_Mass_Update_Data;
3524:
3525: SELECT
3526: params.weighted_parameter_id
3553: weights.weighted_parameter_id IN (SELECT column_value FROM TABLE(CAST(l_Param_Ids AS FND_TABLE_OF_NUMBER)));
3554:
3555: IF l_Weight_Ids.COUNT > 0 THEN
3556: Delete_Bulk_Weights_Scores (
3557: p_commit => FND_API.G_FALSE
3558: ,p_Param_Ids => l_Param_Ids
3559: ,p_dependent_measure_id => p_dependent_measure_id
3560: ,x_return_status => x_return_status
3561: ,x_msg_count => x_msg_count
3560: ,x_return_status => x_return_status
3561: ,x_msg_count => x_msg_count
3562: ,x_msg_data => x_msg_data
3563: );
3564: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3566: END IF;
3567: END IF;
3568: END IF;
3561: ,x_msg_count => x_msg_count
3562: ,x_msg_data => x_msg_data
3563: );
3564: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3566: END IF;
3567: END IF;
3568: END IF;
3569:
3566: END IF;
3567: END IF;
3568: END IF;
3569:
3570: IF FND_API.To_Boolean( p_commit ) THEN
3571: COMMIT;
3572: END IF;
3573:
3574: EXCEPTION
3573:
3574: EXCEPTION
3575: WHEN OTHERS THEN
3576: ROLLBACK TO Bis_Delete_Mass_Update_Data;
3577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3578: IF (x_msg_data IS NOT NULL) THEN
3579: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Delete_Mass_Update_Data ';
3580: ELSE
3581: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Delete_Mass_Update_Data ';
3599: -- 7. For all those weight ids that are retrieved in step6 create scores.
3600: ************************************************************************************/
3601:
3602: PROCEDURE Insert_Mass_Update_Data(
3603: p_commit IN VARCHAR2 := FND_API.G_FALSE
3604: ,p_weighted_measure_id IN NUMBER
3605: ,p_weighted_definition_id IN NUMBER
3606: ,p_dependent_measure_id IN NUMBER
3607: ,p_Time_Level IN VARCHAR2
3630:
3631: BEGIN
3632:
3633: SAVEPOINT SAVE_Insert_Mass_Update_Data;
3634: x_return_status := FND_API.G_RET_STS_SUCCESS;
3635:
3636: l_Count := 0;
3637:
3638: l_User_Id := FND_GLOBAL.user_id;
3780: );
3781: END IF;
3782: END LOOP;
3783:
3784: IF FND_API.To_Boolean( p_commit ) THEN
3785: COMMIT;
3786: END IF;
3787:
3788: EXCEPTION
3787:
3788: EXCEPTION
3789: WHEN OTHERS THEN
3790: ROLLBACK TO SAVE_Insert_Mass_Update_Data;
3791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3792: IF (x_msg_data IS NOT NULL) THEN
3793: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Insert_Mass_Update_Data ';
3794: ELSE
3795: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Insert_Mass_Update_Data';
3826: l_Weighted_Definition_Id bis_weighted_measure_params.weighted_definition_id%type;
3827: BEGIN
3828:
3829: SAVEPOINT BisSave_Mass_Update_Values_Pub;
3830: x_return_status := FND_API.G_RET_STS_SUCCESS;
3831:
3832: SELECT
3833: defns.weighted_definition_id
3834: INTO
3839: defns.weighted_measure_id = p_weighted_measure_id AND
3840: defns.time_dimension_short_name || '+' || defns.time_dim_level_short_name = p_Time_Level;
3841:
3842: Delete_Mass_Update_Data(
3843: p_commit => FND_API.G_FALSE
3844: , p_weighted_definition_id => l_Weighted_Definition_Id
3845: , p_dependent_measure_id => p_dependent_measure_id
3846: , p_Selected_Period_Ids => p_Selected_Period_Ids
3847: , p_Selected_DimObj_Ids => p_Selected_DimObj_Ids
3848: , x_return_status => x_return_status
3849: , x_msg_count => x_msg_count
3850: , x_msg_data => x_msg_data
3851: );
3852: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3854: END IF;
3855:
3856: Insert_Mass_Update_Data (
3849: , x_msg_count => x_msg_count
3850: , x_msg_data => x_msg_data
3851: );
3852: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3854: END IF;
3855:
3856: Insert_Mass_Update_Data (
3857: p_commit => FND_API.G_FALSE
3853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3854: END IF;
3855:
3856: Insert_Mass_Update_Data (
3857: p_commit => FND_API.G_FALSE
3858: , p_weighted_measure_id => p_weighted_measure_id
3859: , p_dependent_measure_id => p_dependent_measure_id
3860: , p_weighted_definition_id => l_Weighted_Definition_Id
3861: , p_Time_Level => p_Time_Level
3868: , x_return_status => x_return_status
3869: , x_msg_count => x_msg_count
3870: , x_msg_data => x_msg_data
3871: );
3872: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3874: END IF;
3875:
3876: IF FND_API.To_Boolean( p_commit ) THEN
3869: , x_msg_count => x_msg_count
3870: , x_msg_data => x_msg_data
3871: );
3872: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3874: END IF;
3875:
3876: IF FND_API.To_Boolean( p_commit ) THEN
3877: COMMIT;
3872: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3874: END IF;
3875:
3876: IF FND_API.To_Boolean( p_commit ) THEN
3877: COMMIT;
3878: END IF;
3879:
3880: EXCEPTION
3877: COMMIT;
3878: END IF;
3879:
3880: EXCEPTION
3881: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3882: ROLLBACK TO BisSave_Mass_Update_Values_Pub;
3883: IF (x_msg_data IS NULL) THEN
3884: FND_MSG_PUB.Count_And_Get
3885: ( p_encoded => FND_API.G_FALSE
3881: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3882: ROLLBACK TO BisSave_Mass_Update_Values_Pub;
3883: IF (x_msg_data IS NULL) THEN
3884: FND_MSG_PUB.Count_And_Get
3885: ( p_encoded => FND_API.G_FALSE
3886: , p_count => x_msg_count
3887: , p_data => x_msg_data
3888: );
3889: END IF;
3886: , p_count => x_msg_count
3887: , p_data => x_msg_data
3888: );
3889: END IF;
3890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3891: WHEN OTHERS THEN
3892: ROLLBACK TO BisSave_Mass_Update_Values_Pub;
3893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3894: IF (x_msg_data IS NOT NULL) THEN
3889: END IF;
3890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3891: WHEN OTHERS THEN
3892: ROLLBACK TO BisSave_Mass_Update_Values_Pub;
3893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3894: IF (x_msg_data IS NOT NULL) THEN
3895: x_msg_data := x_msg_data||' -> BIS_WEIGHTED_MEASURE_PUB.Save_Mass_Update_Values ';
3896: ELSE
3897: x_msg_data := SQLERRM||' at BIS_WEIGHTED_MEASURE_PUB.Save_Mass_Update_Values ';