[Home] [Help]
117: AND object_id = p_object_id;
118:
119: BEGIN
120:
121: -- Standard begin of API savepoint Update_User_Action_PVT
122: SAVEPOINT Update_User_Action_PVT;
123: -- Standard call to check for call compatibility.
124: IF NOT FND_API.Compatible_API_Call (
125: l_api_version,
119: BEGIN
120:
121: -- Standard begin of API savepoint Update_User_Action_PVT
122: SAVEPOINT Update_User_Action_PVT;
123: -- Standard call to check for call compatibility.
124: IF NOT FND_API.Compatible_API_Call (
125: l_api_version,
126: p_api_version,
127: l_api_name,
305: -- Debug Message
306: IF G_DEBUG THEN
307: dpp_utility_pvt.debug_message( l_api_name||': End');
308: END IF;
309: --Standard call to get message count and if count=1, get the message
310: FND_MSG_PUB.Count_And_Get (
311: p_encoded => FND_API.G_FALSE,
312: p_count => x_msg_count,
313: p_data => x_msg_data
315: EXCEPTION
316: WHEN FND_API.G_EXC_ERROR THEN
317: ROLLBACK TO Update_User_Action_PVT;
318: x_return_status := FND_API.G_RET_STS_ERROR;
319: -- Standard call to get message count and if count=1, get the message
320: FND_MSG_PUB.Count_And_Get (
321: p_encoded => FND_API.G_FALSE,
322: p_count => x_msg_count,
323: p_data => x_msg_data
329: END IF;
330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
331: ROLLBACK TO Update_User_Action_PVT;
332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
333: -- Standard call to get message count and if count=1, get the message
334: FND_MSG_PUB.Count_And_Get (
335: p_encoded => FND_API.G_FALSE,
336: p_count => x_msg_count,
337: p_data => x_msg_data
347: IF DPP_UNEXP_ERROR_ON
348: THEN
349: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
350: END IF;
351: -- Standard call to get message count and if count=1, get the message
352: FND_MSG_PUB.Count_And_Get (
353: p_encoded => FND_API.G_FALSE,
354: p_count => x_msg_count,
355: p_data => x_msg_data
401: AND object_id = p_object_id;
402:
403: BEGIN
404:
405: -- Standard begin of API savepoint
406: SAVEPOINT Get_Approvers_PVT;
407: -- Standard call to check for call compatibility.
408: IF NOT FND_API.Compatible_API_Call (
409: l_api_version,
403: BEGIN
404:
405: -- Standard begin of API savepoint
406: SAVEPOINT Get_Approvers_PVT;
407: -- Standard call to check for call compatibility.
408: IF NOT FND_API.Compatible_API_Call (
409: l_api_version,
410: p_api_version,
411: l_api_name,
493: end if;
494: x_approvers(1).approver_level := l_approver_level;
495: END IF;
496:
497: --Standard call to get message count and if count=1, get the message
498: FND_MSG_PUB.Count_And_Get (
499: p_encoded => FND_API.G_FALSE,
500: p_count => x_msg_count,
501: p_data => x_msg_data
503: EXCEPTION
504: WHEN FND_API.G_EXC_ERROR THEN
505: ROLLBACK TO Get_Approvers_PVT;
506: x_return_status := FND_API.G_RET_STS_ERROR;
507: -- Standard call to get message count and if count=1, get the message
508: FND_MSG_PUB.Count_And_Get (
509: p_encoded => FND_API.G_FALSE,
510: p_count => x_msg_count,
511: p_data => x_msg_data
517: END IF;
518: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
519: ROLLBACK TO Get_Approvers_PVT;
520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
521: -- Standard call to get message count and if count=1, get the message
522: FND_MSG_PUB.Count_And_Get (
523: p_encoded => FND_API.G_FALSE,
524: p_count => x_msg_count,
525: p_data => x_msg_data
535: IF DPP_UNEXP_ERROR_ON
536: THEN
537: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
538: END IF;
539: -- Standard call to get message count and if count=1, get the message
540: FND_MSG_PUB.Count_And_Get (
541: p_encoded => FND_API.G_FALSE,
542: p_count => x_msg_count,
543: p_data => x_msg_data
581: l_approver_group_name VARCHAR2(50);
582: l_approver_sequence NUMBER;
583:
584: BEGIN
585: -- Standard begin of API savepoint
586: SAVEPOINT Get_AllApprovers_PVT;
587: -- Standard call to check for call compatibility.
588: IF NOT FND_API.Compatible_API_Call (
589: l_api_version,
583:
584: BEGIN
585: -- Standard begin of API savepoint
586: SAVEPOINT Get_AllApprovers_PVT;
587: -- Standard call to check for call compatibility.
588: IF NOT FND_API.Compatible_API_Call (
589: l_api_version,
590: p_api_version,
591: l_api_name,
771: -- Debug Message
772: IF G_DEBUG THEN
773: dpp_utility_pvt.debug_message( l_api_name||': End');
774: END IF;
775: --Standard call to get message count and if count=1, get the message
776: FND_MSG_PUB.Count_And_Get (
777: p_encoded => FND_API.G_FALSE,
778: p_count => x_msg_count,
779: p_data => x_msg_data
781: EXCEPTION
782: WHEN FND_API.G_EXC_ERROR THEN
783: ROLLBACK TO Get_AllApprovers_PVT;
784: x_return_status := FND_API.G_RET_STS_ERROR;
785: -- Standard call to get message count and if count=1, get the message
786: FND_MSG_PUB.Count_And_Get (
787: p_encoded => FND_API.G_FALSE,
788: p_count => x_msg_count,
789: p_data => x_msg_data
795: END IF;
796: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
797: ROLLBACK TO Get_AllApprovers_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
813: IF DPP_UNEXP_ERROR_ON
814: THEN
815: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
816: END IF;
817: -- Standard call to get message count and if count=1, get the message
818: FND_MSG_PUB.Count_And_Get (
819: p_encoded => FND_API.G_FALSE,
820: p_count => x_msg_count,
821: p_data => x_msg_data
860: SELECT DPP_APPROVAL_ACCESS_seq.NEXTVAL
861: FROM dual;
862:
863: BEGIN
864: -- Standard begin of API savepoint
865: SAVEPOINT Add_Access_PVT;
866: -- Standard call to check for call compatibility.
867: IF NOT FND_API.Compatible_API_Call (
868: l_api_version,
862:
863: BEGIN
864: -- Standard begin of API savepoint
865: SAVEPOINT Add_Access_PVT;
866: -- Standard call to check for call compatibility.
867: IF NOT FND_API.Compatible_API_Call (
868: l_api_version,
869: p_api_version,
870: l_api_name,
970: END IF;
971: END;
972: END LOOP;
973:
974: --Standard check of commit
975: IF FND_API.To_Boolean ( p_commit ) THEN
976: COMMIT WORK;
977: END IF;
978: -- Debug Message
978: -- Debug Message
979: IF G_DEBUG THEN
980: dpp_utility_pvt.debug_message( l_api_name||': End');
981: END IF;
982: --Standard call to get message count and if count=1, get the message
983: FND_MSG_PUB.Count_And_Get (
984: p_encoded => FND_API.G_FALSE,
985: p_count => x_msg_count,
986: p_data => x_msg_data
988: EXCEPTION
989: WHEN FND_API.G_EXC_ERROR THEN
990: ROLLBACK TO Add_Access_PVT;
991: x_return_status := FND_API.G_RET_STS_ERROR;
992: -- Standard call to get message count and if count=1, get the message
993: FND_MSG_PUB.Count_And_Get (
994: p_encoded => FND_API.G_FALSE,
995: p_count => x_msg_count,
996: p_data => x_msg_data
1002: END IF;
1003: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1004: ROLLBACK TO Add_Access_PVT;
1005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1006: -- Standard call to get message count and if count=1, get the message
1007: FND_MSG_PUB.Count_And_Get (
1008: p_encoded => FND_API.G_FALSE,
1009: p_count => x_msg_count,
1010: p_data => x_msg_data
1020: IF DPP_UNEXP_ERROR_ON
1021: THEN
1022: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1023: END IF;
1024: -- Standard call to get message count and if count=1, get the message
1025: FND_MSG_PUB.Count_And_Get (
1026: p_encoded => FND_API.G_FALSE,
1027: p_count => x_msg_count,
1028: p_data => x_msg_data
1070: AND object_type = p_object_type
1071: AND object_id = p_object_id;
1072:
1073: BEGIN
1074: -- Standard begin of API savepoint
1075: SAVEPOINT Revoke_Access_PVT;
1076: -- Standard call to check for call compatibility.
1077: IF NOT FND_API.Compatible_API_Call (
1078: l_api_version,
1072:
1073: BEGIN
1074: -- Standard begin of API savepoint
1075: SAVEPOINT Revoke_Access_PVT;
1076: -- Standard call to check for call compatibility.
1077: IF NOT FND_API.Compatible_API_Call (
1078: l_api_version,
1079: p_api_version,
1080: l_api_name,
1110: l_approval_access_id := null;
1111: END LOOP;
1112: CLOSE csr_curr_approvers;
1113:
1114: --Standard check of commit
1115: IF FND_API.To_Boolean ( p_commit ) THEN
1116: COMMIT WORK;
1117: END IF;
1118: -- Debug Message
1118: -- Debug Message
1119: IF G_DEBUG THEN
1120: dpp_utility_pvt.debug_message( l_api_name||': End');
1121: END IF;
1122: --Standard call to get message count and if count=1, get the message
1123: FND_MSG_PUB.Count_And_Get (
1124: p_encoded => FND_API.G_FALSE,
1125: p_count => x_msg_count,
1126: p_data => x_msg_data
1128: EXCEPTION
1129: WHEN FND_API.G_EXC_ERROR THEN
1130: ROLLBACK TO Revoke_Access_PVT;
1131: x_return_status := FND_API.G_RET_STS_ERROR;
1132: -- Standard call to get message count and if count=1, get the message
1133: FND_MSG_PUB.Count_And_Get (
1134: p_encoded => FND_API.G_FALSE,
1135: p_count => x_msg_count,
1136: p_data => x_msg_data
1142: END IF;
1143: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1144: ROLLBACK TO Revoke_Access_PVT;
1145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1146: -- Standard call to get message count and if count=1, get the message
1147: FND_MSG_PUB.Count_And_Get (
1148: p_encoded => FND_API.G_FALSE,
1149: p_count => x_msg_count,
1150: p_data => x_msg_data
1160: IF DPP_UNEXP_ERROR_ON
1161: THEN
1162: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1163: END IF;
1164: -- Standard call to get message count and if count=1, get the message
1165: FND_MSG_PUB.Count_And_Get (
1166: p_encoded => FND_API.G_FALSE,
1167: p_count => x_msg_count,
1168: p_data => x_msg_data
1361: EXCEPTION
1362: WHEN FND_API.G_EXC_ERROR THEN
1363: ROLLBACK TO Raise_Event_PVT;
1364: x_return_status := FND_API.G_RET_STS_ERROR;
1365: -- Standard call to get message count and if count=1, get the message
1366: FND_MSG_PUB.Count_And_Get (
1367: p_encoded => FND_API.G_FALSE,
1368: p_count => x_msg_count,
1369: p_data => x_msg_data
1375: END IF;
1376: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1377: ROLLBACK TO Raise_Event_PVT;
1378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1379: -- Standard call to get message count and if count=1, get the message
1380: FND_MSG_PUB.Count_And_Get (
1381: p_encoded => FND_API.G_FALSE,
1382: p_count => x_msg_count,
1383: p_data => x_msg_data
1393: IF DPP_UNEXP_ERROR_ON
1394: THEN
1395: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1396: END IF;
1397: -- Standard call to get message count and if count=1, get the message
1398: FND_MSG_PUB.Count_And_Get (
1399: p_encoded => FND_API.G_FALSE,
1400: p_count => x_msg_count,
1401: p_data => x_msg_data
1481:
1482: l_execute_str varchar2(3000);
1483:
1484: BEGIN
1485: -- Standard begin of API savepoint
1486: SAVEPOINT Send_Notification_PVT;
1487: -- Standard call to check for call compatibility.
1488: IF NOT FND_API.Compatible_API_Call (
1489: l_api_version,
1483:
1484: BEGIN
1485: -- Standard begin of API savepoint
1486: SAVEPOINT Send_Notification_PVT;
1487: -- Standard call to check for call compatibility.
1488: IF NOT FND_API.Compatible_API_Call (
1489: l_api_version,
1490: p_api_version,
1491: l_api_name,
1619: and approval_level = ( select max (approval_level)
1620: from DPP_APPROVAL_ACCESS
1621: where object_type = l_object_type
1622: and object_id = l_object_id);
1623: --Standard check of commit
1624: IF FND_API.To_Boolean ( p_commit ) THEN
1625: COMMIT WORK;
1626: END IF;
1627:
1628: -- Debug Message
1629: IF G_DEBUG THEN
1630: dpp_utility_pvt.debug_message( l_api_name||': End');
1631: END IF;
1632: --Standard call to get message count and if count=1, get the message
1633: FND_MSG_PUB.Count_And_Get (
1634: p_encoded => FND_API.G_FALSE,
1635: p_count => x_msg_count,
1636: p_data => x_msg_data
1638: EXCEPTION
1639: WHEN FND_API.G_EXC_ERROR THEN
1640: ROLLBACK TO Send_Notification_PVT;
1641: x_return_status := FND_API.G_RET_STS_ERROR;
1642: -- Standard call to get message count and if count=1, get the message
1643: FND_MSG_PUB.Count_And_Get (
1644: p_encoded => FND_API.G_FALSE,
1645: p_count => x_msg_count,
1646: p_data => x_msg_data
1652: END IF;
1653: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1654: ROLLBACK TO Send_Notification_PVT;
1655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1656: -- Standard call to get message count and if count=1, get the message
1657: FND_MSG_PUB.Count_And_Get (
1658: p_encoded => FND_API.G_FALSE,
1659: p_count => x_msg_count,
1660: p_data => x_msg_data
1670: IF DPP_UNEXP_ERROR_ON
1671: THEN
1672: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1673: END IF;
1674: -- Standard call to get message count and if count=1, get the message
1675: FND_MSG_PUB.Count_And_Get (
1676: p_encoded => FND_API.G_FALSE,
1677: p_count => x_msg_count,
1678: p_data => x_msg_data
1730: l_login_id NUMBER := FND_GLOBAL.LOGIN_ID;
1731: l_user_id NUMBER := FND_PROFILE.VALUE('USER_ID');
1732:
1733: BEGIN
1734: -- Standard begin of API savepoint
1735: SAVEPOINT Process_User_Action_PVT;
1736: -- Standard call to check for call compatibility.
1737: IF NOT FND_API.Compatible_API_Call (
1738: l_api_version,
1732:
1733: BEGIN
1734: -- Standard begin of API savepoint
1735: SAVEPOINT Process_User_Action_PVT;
1736: -- Standard call to check for call compatibility.
1737: IF NOT FND_API.Compatible_API_Call (
1738: l_api_version,
1739: p_api_version,
1740: l_api_name,
1953: dpp_utility_pvt.debug_message( 'Transaction is Future dated and hence not made Active ');
1954: END IF;
1955: END IF; --l_effective_date <= sysdate
1956: END IF; --x_final_approval_flag := 'Y'
1957: --Standard check of commit
1958: IF FND_API.To_Boolean ( p_commit ) THEN
1959: COMMIT WORK;
1960: END IF;
1961: -- Debug Message
1961: -- Debug Message
1962: IF G_DEBUG THEN
1963: dpp_utility_pvt.debug_message( l_api_name||': End');
1964: END IF;
1965: --Standard call to get message count and if count=1, get the message
1966: FND_MSG_PUB.Count_And_Get (
1967: p_encoded => FND_API.G_FALSE,
1968: p_count => x_msg_count,
1969: p_data => x_msg_data
1972: EXCEPTION
1973: WHEN FND_API.G_EXC_ERROR THEN
1974: ROLLBACK TO Process_User_Action_PVT;
1975: x_return_status := FND_API.G_RET_STS_ERROR;
1976: -- Standard call to get message count and if count=1, get the message
1977: FND_MSG_PUB.Count_And_Get (
1978: p_encoded => FND_API.G_FALSE,
1979: p_count => x_msg_count,
1980: p_data => x_msg_data
1986: END IF;
1987: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1988: ROLLBACK TO Process_User_Action_PVT;
1989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1990: -- Standard call to get message count and if count=1, get the message
1991: FND_MSG_PUB.Count_And_Get (
1992: p_encoded => FND_API.G_FALSE,
1993: p_count => x_msg_count,
1994: p_data => x_msg_data
2004: IF DPP_UNEXP_ERROR_ON
2005: THEN
2006: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2007: END IF;
2008: -- Standard call to get message count and if count=1, get the message
2009: FND_MSG_PUB.Count_And_Get (
2010: p_encoded => FND_API.G_FALSE,
2011: p_count => x_msg_count,
2012: p_data => x_msg_data