942: Write_Debug('Change Line Id : ' || TO_CHAR(p_change_line_id) );
943: Write_Debug('Role Id : ' || TO_CHAR(p_role_id) );
944: Write_Debug('API Caller : ' || p_api_caller);
945: Write_Debug('-----------------------------------------------------');
946: Write_Debug('Calling DOM_SECURITY_PUB.Grant_Document_Role');
947: END IF ;
948:
949:
950: l_return_status := FND_API.G_RET_STS_SUCCESS ;
970: -- Comment out: somehow dynamic call does not work
971: -- I guess we should use DBMS_SQL to achieve this
972: --
973: -- l_pls_block := ' BEGIN '
974: -- || ' DOM_SECURITY_PUB.Grant_Document_Role'
975: -- || ' ( p_api_version => :1 '
976: -- || ' ,p_init_msg_list => :2 '
977: -- || ' ,p_commit => :3 '
978: -- || ' ,p_validation_level => :4 '
1011:
1012:
1013: /* BEGIN
1014:
1015: DOM_SECURITY_PUB.Grant_Document_Role
1016: ( p_api_version => p_api_version
1017: ,p_init_msg_list => p_init_msg_list
1018: ,p_commit => p_commit
1019: ,p_validation_level => p_validation_level
1033:
1034: EXCEPTION
1035: WHEN OTHERS THEN
1036: IF g_debug_flag THEN
1037: Write_Debug('Unexpected Exception DOM_SECURITY_PUB.Grant_Document_Role: ' || SQLERRM);
1038: END IF ;
1039:
1040: END ;
1041:
1052: END IF ;
1053:
1054:
1055: IF g_debug_flag THEN
1056: Write_Debug('After Calling DOM_SECURITY_PUB.Grant_Document_Role: ' || l_return_status);
1057: END IF ;
1058:
1059: EXCEPTION
1060: WHEN PLSQL_COMPILE_ERROR THEN
1075:
1076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1077:
1078: FND_MSG_PUB.Add_Exc_Msg
1079: ( p_pkg_name => 'DOM_SECURITY_PUB' ,
1080: p_procedure_name => 'Grant_Document_Role',
1081: p_error_text => Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240)
1082: );
1083:
1140: Write_Debug('Change Line Id : ' || TO_CHAR(p_change_line_id) );
1141: Write_Debug('Role Id : ' || TO_CHAR(p_role_id) );
1142: Write_Debug('API Caller : ' || p_api_caller);
1143: Write_Debug('-----------------------------------------------------');
1144: Write_Debug('Calling DOM_SECURITY_PUB.Revoke_Document_Role');
1145: END IF ;
1146:
1147:
1148: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1173: -- Comment out: somehow dynamic call does not work
1174: -- I guess we should use DBMS_SQL to achieve this
1175: --
1176: -- l_pls_block := ' BEGIN '
1177: -- || ' DOM_SECURITY_PUB.Revoke_Document_Role'
1178: -- || ' ( p_api_version => :1 '
1179: -- || ' ,p_init_msg_list => :2 '
1180: -- || ' ,p_commit => :3 '
1181: -- || ' ,p_validation_level => :4 '
1212: */
1213:
1214: /* BEGIN
1215:
1216: DOM_SECURITY_PUB.Revoke_Document_Role
1217: ( p_api_version => p_api_version
1218: ,p_init_msg_list => p_init_msg_list
1219: ,p_commit => p_commit
1220: ,p_validation_level => p_validation_level
1234:
1235: EXCEPTION
1236: WHEN OTHERS THEN
1237: IF g_debug_flag THEN
1238: Write_Debug('Unexpected Exception DOM_SECURITY_PUB.Revoke_Document_Role: ' || SQLERRM);
1239: END IF ;
1240:
1241: END ;
1242:
1254: END IF ;
1255:
1256:
1257: IF g_debug_flag THEN
1258: Write_Debug('After Calling DOM_SECURITY_PUB.Revoke_Document_Role: ' || l_return_status);
1259: END IF ;
1260:
1261:
1262:
1280:
1281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1282:
1283: FND_MSG_PUB.Add_Exc_Msg
1284: ( p_pkg_name => 'DOM_SECURITY_PUB' ,
1285: p_procedure_name => 'Revoke_Document_Role',
1286: p_error_text => Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240)
1287: );
1288:
1346: Write_Debug('PK5 Value : ' || p_pk5value);
1347: Write_Debug('OCS ROle : ' || p_ocs_role);
1348: Write_Debug('API Caller : ' || p_api_caller);
1349: Write_Debug('-----------------------------------------------------');
1350: Write_Debug('Calling DOM_SECURITY_PUB.Grant_Attachments_OCSRole');
1351: END IF ;
1352:
1353:
1354: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1361: -- Comment out: somehow dynamic call does not work
1362: -- I guess we should use DBMS_SQL to achieve this
1363: --
1364: -- l_pls_block := ' BEGIN '
1365: -- || ' DOM_SECURITY_PUB.Grant_Attachments_OCSRole'
1366: -- || ' ( p_api_version => :1 '
1367: -- || ' ,p_init_msg_list => :2 '
1368: -- || ' ,p_commit => :3 '
1369: -- || ' ,p_validation_level => :4 '
1404:
1405: BEGIN
1406:
1407:
1408: DOM_SECURITY_PUB.Grant_Attachments_OCSRole
1409: ( p_api_version => p_api_version
1410: ,p_init_msg_list => p_init_msg_list
1411: ,p_commit => p_commit
1412: ,p_validation_level => p_validation_level
1434: AND p_repository_id_tbl is not null and p_repository_id_tbl.count>0
1435: then
1436: for ind in p_source_media_id_tbl.first .. p_source_media_id_tbl.last
1437: loop
1438: DOM_SECURITY_PUB.Grant_Attachment_Access
1439: (
1440: p_api_version => p_api_version,
1441: p_attached_document_id => p_attachment_id_tbl(ind),
1442: p_source_media_id => p_source_media_id_tbl(ind),
1474: END IF ;
1475:
1476:
1477: IF g_debug_flag THEN
1478: Write_Debug('After Calling DOM_SECURITY_PUB.Grant_Attachments_OCSRole: ' || l_return_status);
1479: END IF ;
1480:
1481: EXCEPTION
1482: WHEN PLSQL_COMPILE_ERROR THEN
1497:
1498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1499:
1500: FND_MSG_PUB.Add_Exc_Msg
1501: ( p_pkg_name => 'DOM_SECURITY_PUB' ,
1502: p_procedure_name => 'Grant_Attachments_OCSRole',
1503: p_error_text => Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240)
1504: );
1505:
1561: Write_Debug('PK5 Value : ' || p_pk5value);
1562: Write_Debug('API Caller : ' || p_api_caller);
1563: Write_Debug('OCS ROle : ' || p_ocs_role);
1564: Write_Debug('-----------------------------------------------------');
1565: Write_Debug('Calling DOM_SECURITY_PUB.Revoke_Attachments_OCSRole');
1566: END IF ;
1567:
1568: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1569:
1579: -- I guess we should use DBMS_SQL to achieve this
1580: --
1581: --
1582: -- l_pls_block := ' BEGIN '
1583: -- || ' DOM_SECURITY_PUB.Revoke_Attachments_OCSRole'
1584: -- || ' ( p_api_version => :1 '
1585: -- || ' ,p_init_msg_list => :2 '
1586: -- || ' ,p_commit => :3 '
1587: -- || ' ,p_validation_level => :4 '
1621:
1622: BEGIN
1623:
1624:
1625: DOM_SECURITY_PUB.Revoke_Attachments_OCSRole
1626: ( p_api_version => p_api_version
1627: ,p_init_msg_list => p_init_msg_list
1628: ,p_commit => p_commit
1629: ,p_validation_level => p_validation_level
1664:
1665:
1666:
1667: IF g_debug_flag THEN
1668: Write_Debug('After Calling DOM_SECURITY_PUB.Revoke_Attachments_OCSRole: ' || l_return_status);
1669: END IF ;
1670:
1671:
1672: EXCEPTION
1689:
1690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1691:
1692: FND_MSG_PUB.Add_Exc_Msg
1693: ( p_pkg_name => 'DOM_SECURITY_PUB' ,
1694: p_procedure_name => 'Revoke_Attachments_OCSRole',
1695: p_error_text => Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240)
1696: );
1697: