[Home] [Help]
5: -- Purpose : PACKAGE BODY FOR PRIVATE API
6: -- History : 11/10/00 JIE LI CREATED
7: -- 11/16/00 SVEERAVE@US In Check_req_items, all required fields are also compared
8: -- with null for insert action.
9: -- History : 01/23/2001 BGEORGE Modified for Standards and business rules
10: -- History : 01/23/2001 BGEORGE Added new proc Validate_next_status
11: -- 25-Jan-2001 choang Fixed close cursor for status in update api.
12: -- 26-Jan-2001 choang Added increment of object ver num in update api.
13: -- 29-Jan-2001 choang Removed return statements from req item validation.
19: -- 16-Feb-2001 choang Replaced top_down_flag with row_selection_type.
20: -- 21-Feb-2001 choang 1) Added callouts to access apis in create. 2) Added check_access
21: -- api which calls check_update_access + others.
22: -- 22-Feb-2001 choang Added complete rec.
23: -- 23-Feb-2001 choang Defaulted row_selection_type to STANDARD in create.
24: -- 26-Feb-2001 choang Added custom_setup_id, country_id and best_subtree.
25: -- 28-Feb-2001 choang 1) Replaced DM_MODEL with MODEL in messages. 2) Shortened
26: -- message codes to be less than 30.
27: -- 06-Mar-2001 choang Added expire_models for oncurrent processing.
285:
286: l_status_check c_status_check%ROWTYPE;
287:
288: BEGIN
289: -- Standard Start of API savepoint
290: SAVEPOINT VALIDATE_NEXT_STATUS;
291:
292: -- Debug Message
293: IF (AMS_DEBUG_HIGH_ON) THEN
317:
318: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' end');
319: END IF;
320:
321: -- Standard call to get message count and if count is 1, get message info.
322: FND_MSG_PUB.Count_And_Get
323: (p_count => x_msg_count,
324: p_data => x_msg_data
325: );
334:
335: WHEN FND_API.G_EXC_ERROR THEN
336: ROLLBACK TO VALIDATE_NEXT_STATUS;
337: x_return_status := FND_API.G_RET_STS_ERROR;
338: -- Standard call to get message count and if count=1, get the message
339: FND_MSG_PUB.Count_And_Get (
340: p_encoded => FND_API.G_FALSE,
341: p_count => x_msg_count,
342: p_data => x_msg_data
344:
345: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
346: ROLLBACK TO VALIDATE_NEXT_STATUS;
347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
348: -- Standard call to get message count and if count=1, get the message
349: FND_MSG_PUB.Count_And_Get (
350: p_encoded => FND_API.G_FALSE,
351: p_count => x_msg_count,
352: p_data => x_msg_data
358: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
359: THEN
360: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
361: END IF;
362: -- Standard call to get message count and if count=1, get the message
363: FND_MSG_PUB.Count_And_Get (
364: p_encoded => FND_API.G_FALSE,
365: p_count => x_msg_count,
366: p_data => x_msg_data
409: THEN
410: FND_MSG_PUB.initialize;
411: END IF;
412:
413: -- Standard call to check for call compatibility.
414: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
415: p_api_version_number,
416: l_api_name,
417: G_PKG_NAME)
464:
465: WHEN FND_API.G_EXC_ERROR THEN
466: ROLLBACK TO LOCK_DM_MODEL_PVT;
467: x_return_status := FND_API.G_RET_STS_ERROR;
468: -- Standard call to get message count and if count=1, get the message
469: FND_MSG_PUB.Count_And_Get (
470: p_encoded => FND_API.G_FALSE,
471: p_count => x_msg_count,
472: p_data => x_msg_data
474:
475: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
476: ROLLBACK TO LOCK_DM_MODEL_PVT;
477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
478: -- Standard call to get message count and if count=1, get the message
479: FND_MSG_PUB.Count_And_Get (
480: p_encoded => FND_API.G_FALSE,
481: p_count => x_msg_count,
482: p_data => x_msg_data
488: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
489: THEN
490: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
491: END IF;
492: -- Standard call to get message count and if count=1, get the message
493: FND_MSG_PUB.Count_And_Get (
494: p_encoded => FND_API.G_FALSE,
495: p_count => x_msg_count,
496: p_data => x_msg_data
516: )
517: IS
518: l_api_name CONSTANT VARCHAR2(30) := 'Create_dm_model';
519: l_api_version_number CONSTANT NUMBER := 1.0;
520: L_DEFAULT_SELECTION_TYPE CONSTANT VARCHAR2(30) := 'STANDARD';
521: L_DEFAULT_POSITIVE_VALUE CONSTANT VARCHAR2(30) := '1';
522:
523: l_return_status_full VARCHAR2(1);
524: l_object_version_number NUMBER := 1;
548: WHERE object_type = G_OBJECT_TYPE_MODEL
549: AND enabled_flag = 'Y'
550: ;
551: BEGIN
552: -- Standard Start of API savepoint
553: SAVEPOINT CREATE_DM_MODEL_PVT;
554:
555: -- Standard call to check for call compatibility.
556: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
551: BEGIN
552: -- Standard Start of API savepoint
553: SAVEPOINT CREATE_DM_MODEL_PVT;
554:
555: -- Standard call to check for call compatibility.
556: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
557: p_api_version_number,
558: l_api_name,
559: G_PKG_NAME)
757: --
758: -- End of API body
759: --
760:
761: -- Standard check for p_commit
762: IF FND_API.to_Boolean( p_commit ) THEN
763: COMMIT WORK;
764: END IF;
765:
768:
769: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' end');
770: END IF;
771:
772: -- Standard call to get message count and if count is 1, get message info.
773: FND_MSG_PUB.Count_And_Get
774: (p_count => x_msg_count,
775: p_data => x_msg_data
776: );
785:
786: WHEN FND_API.G_EXC_ERROR THEN
787: ROLLBACK TO CREATE_DM_MODEL_PVT;
788: x_return_status := FND_API.G_RET_STS_ERROR;
789: -- Standard call to get message count and if count=1, get the message
790: FND_MSG_PUB.Count_And_Get (
791: p_encoded => FND_API.G_FALSE,
792: p_count => x_msg_count,
793: p_data => x_msg_data
795:
796: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
797: ROLLBACK TO CREATE_DM_MODEL_PVT;
798: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
799: -- Standard call to get message count and if count=1, get the message
800: FND_MSG_PUB.Count_And_Get (
801: p_encoded => FND_API.G_FALSE,
802: p_count => x_msg_count,
803: p_data => x_msg_data
809: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
810: THEN
811: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
812: END IF;
813: -- Standard call to get message count and if count=1, get the message
814: FND_MSG_PUB.Count_And_Get (
815: p_encoded => FND_API.G_FALSE,
816: p_count => x_msg_count,
817: p_data => x_msg_data
863: l_data_exists_flag VARCHAR2(1);
864: l_is_enabled BOOLEAN;
865:
866: BEGIN
867: -- Standard Start of API savepoint
868: SAVEPOINT UPDATE_DM_MODEL_PVT;
869:
870: -- Standard call to check for call compatibility.
871: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
866: BEGIN
867: -- Standard Start of API savepoint
868: SAVEPOINT UPDATE_DM_MODEL_PVT;
869:
870: -- Standard call to check for call compatibility.
871: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
872: p_api_version_number,
873: l_api_name,
874: G_PKG_NAME)
1377: --
1378: -- End of API body.
1379: --
1380:
1381: -- Standard check for p_commit
1382: IF FND_API.to_Boolean( p_commit ) THEN
1383: COMMIT WORK;
1384: END IF;
1385:
1388: IF (AMS_DEBUG_HIGH_ON) THEN
1389: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' end');
1390: END IF;
1391:
1392: -- Standard call to get message count and if count is 1, get message info.
1393: FND_MSG_PUB.Count_And_Get
1394: (p_count => x_msg_count,
1395: p_data => x_msg_data
1396: );
1411:
1412: WHEN FND_API.G_EXC_ERROR THEN
1413: ROLLBACK TO UPDATE_DM_MODEL_PVT;
1414: x_return_status := FND_API.G_RET_STS_ERROR;
1415: -- Standard call to get message count and if count=1, get the message
1416: FND_MSG_PUB.Count_And_Get (
1417: p_encoded => FND_API.G_FALSE,
1418: p_count => x_msg_count,
1419: p_data => x_msg_data
1421:
1422: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1423: ROLLBACK TO UPDATE_DM_MODEL_PVT;
1424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1425: -- Standard call to get message count and if count=1, get the message
1426: FND_MSG_PUB.Count_And_Get (
1427: p_encoded => FND_API.G_FALSE,
1428: p_count => x_msg_count,
1429: p_data => x_msg_data
1435: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1436: THEN
1437: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1438: END IF;
1439: -- Standard call to get message count and if count=1, get the message
1440: FND_MSG_PUB.Count_And_Get (
1441: p_encoded => FND_API.G_FALSE,
1442: p_count => x_msg_count,
1443: p_data => x_msg_data
1462: l_api_version_number CONSTANT NUMBER := 1.0;
1463: l_object_version_number NUMBER;
1464:
1465: BEGIN
1466: -- Standard Start of API savepoint
1467: SAVEPOINT DELETE_DM_MODEL_PVT;
1468:
1469: -- Standard call to check for call compatibility.
1470: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1465: BEGIN
1466: -- Standard Start of API savepoint
1467: SAVEPOINT DELETE_DM_MODEL_PVT;
1468:
1469: -- Standard call to check for call compatibility.
1470: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1471: p_api_version_number,
1472: l_api_name,
1473: G_PKG_NAME)
1512: --
1513: -- End of API body
1514: --
1515:
1516: -- Standard check for p_commit
1517: IF FND_API.to_Boolean( p_commit )
1518: THEN
1519: COMMIT WORK;
1520: END IF;
1525:
1526: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' end');
1527: END IF;
1528:
1529: -- Standard call to get message count and if count is 1, get message info.
1530: FND_MSG_PUB.Count_And_Get
1531: (p_count => x_msg_count,
1532: p_data => x_msg_data
1533: );
1542:
1543: WHEN FND_API.G_EXC_ERROR THEN
1544: ROLLBACK TO DELETE_DM_MODEL_PVT;
1545: x_return_status := FND_API.G_RET_STS_ERROR;
1546: -- Standard call to get message count and if count=1, get the message
1547: FND_MSG_PUB.Count_And_Get (
1548: p_encoded => FND_API.G_FALSE,
1549: p_count => x_msg_count,
1550: p_data => x_msg_data
1552:
1553: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1554: ROLLBACK TO DELETE_DM_MODEL_PVT;
1555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1556: -- Standard call to get message count and if count=1, get the message
1557: FND_MSG_PUB.Count_And_Get (
1558: p_encoded => FND_API.G_FALSE,
1559: p_count => x_msg_count,
1560: p_data => x_msg_data
1566: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1567: THEN
1568: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1569: END IF;
1570: -- Standard call to get message count and if count=1, get the message
1571: FND_MSG_PUB.Count_And_Get (
1572: p_encoded => FND_API.G_FALSE,
1573: p_count => x_msg_count,
1574: p_data => x_msg_data
2216: -- Debug Message
2217: IF (AMS_DEBUG_HIGH_ON) THEN
2218: AMS_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
2219: END IF;
2220: -- Standard call to get message count and if count is 1, get message info.
2221: FND_MSG_PUB.Count_And_Get
2222: (p_count => x_msg_count,
2223: p_data => x_msg_data
2224: );
2541: l_api_version_number CONSTANT NUMBER := 1.0;
2542: l_object_version_number NUMBER;
2543:
2544: BEGIN
2545: -- Standard Start of API savepoint
2546: SAVEPOINT VALIDATE_DM_MODEL;
2547:
2548: -- Debug Message
2549: IF (AMS_DEBUG_HIGH_ON) THEN
2552: END IF;
2553: -- Initialize API return status to SUCCESS
2554: x_return_status := FND_API.G_RET_STS_SUCCESS;
2555:
2556: -- Standard call to check for call compatibility.
2557: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2558: p_api_version_number,
2559: l_api_name,
2560: g_pkg_name)
2605:
2606: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' end');
2607: END IF;
2608:
2609: -- Standard call to get message count and if count is 1, get message info.
2610: FND_MSG_PUB.Count_And_Get
2611: (p_count => x_msg_count,
2612: p_data => x_msg_data
2613: );
2620: END IF;
2621: WHEN FND_API.G_EXC_ERROR THEN
2622: ROLLBACK TO VALIDATE_DM_MODEL;
2623: x_return_status := FND_API.G_RET_STS_ERROR;
2624: -- Standard call to get message count and if count=1, get the message
2625: FND_MSG_PUB.Count_And_Get (
2626: p_encoded => FND_API.G_FALSE,
2627: p_count => x_msg_count,
2628: p_data => x_msg_data
2629: );
2630: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2631: ROLLBACK TO VALIDATE_DM_MODEL;
2632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2633: -- Standard call to get message count and if count=1, get the message
2634: FND_MSG_PUB.Count_And_Get (
2635: p_encoded => FND_API.G_FALSE,
2636: p_count => x_msg_count,
2637: p_data => x_msg_data
2642: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2643: THEN
2644: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2645: END IF;
2646: -- Standard call to get message count and if count=1, get the message
2647: FND_MSG_PUB.Count_And_Get (
2648: p_encoded => FND_API.G_FALSE,
2649: p_count => x_msg_count,
2650: p_data => x_msg_data
3214: l_new_model_id NUMBER;
3215: l_model_rec dm_model_rec_type;
3216: l_custom_setup_id NUMBER;
3217:
3218: -- for non-standard out params in copy_act_access
3219: l_errnum NUMBER;
3220: l_errcode VARCHAR2(30);
3221: l_errmsg VARCHAR2(4000);
3222:
3237: --end changes rosharma 20-aug-2003 bug 3104201
3238: l_reference_rec c_model%ROWTYPE;
3239: l_new_model_rec c_model%ROWTYPE;
3240: BEGIN
3241: -- Standard Start of API savepoint
3242: SAVEPOINT ams_model_pvt_copy_model;
3243:
3244: -- Standard call to check for call compatibility.
3245: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3240: BEGIN
3241: -- Standard Start of API savepoint
3242: SAVEPOINT ams_model_pvt_copy_model;
3243:
3244: -- Standard call to check for call compatibility.
3245: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3246: p_api_version,
3247: l_api_name,
3248: G_PKG_NAME)
3440: --
3441: -- End of API body.
3442: --
3443:
3444: -- Standard check for p_commit
3445: IF FND_API.to_Boolean( p_commit ) THEN
3446: COMMIT WORK;
3447: END IF;
3448:
3452:
3453: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' end');
3454: END IF;
3455:
3456: -- Standard call to get message count and if count is 1, get message info.
3457: FND_MSG_PUB.Count_And_Get (
3458: p_count => x_msg_count,
3459: p_data => x_msg_data
3460: );
3461: EXCEPTION
3462: WHEN FND_API.G_EXC_ERROR THEN
3463: ROLLBACK TO ams_model_pvt_copy_model;
3464: x_return_status := FND_API.G_RET_STS_ERROR;
3465: -- Standard call to get message count and if count=1, get the message
3466: FND_MSG_PUB.Count_And_Get (
3467: p_encoded => FND_API.G_FALSE,
3468: p_count => x_msg_count,
3469: p_data => x_msg_data
3470: );
3471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3472: ROLLBACK TO ams_model_pvt_copy_model;
3473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3474: -- Standard call to get message count and if count=1, get the message
3475: FND_MSG_PUB.Count_And_Get (
3476: p_encoded => FND_API.G_FALSE,
3477: p_count => x_msg_count,
3478: p_data => x_msg_data
3482: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3483: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3484: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3485: END IF;
3486: -- Standard call to get message count and if count=1, get the message
3487: FND_MSG_PUB.Count_And_Get (
3488: p_encoded => FND_API.G_FALSE,
3489: p_count => x_msg_count,
3490: p_data => x_msg_data