APPS.CSM_ACCESS_PURGE_PKG SQL Statements

The following lines contain the word 'select', 'insert', 'update' or 'delete':

Line: 13

PROCEDURE DELETE_NON_ACC_MFS_TABLE
IS
 CURSOR c_csm_inv_org
 IS
 SELECT DISTINCT USER_ID
 FROM   CSM_USER_INVENTORY_ORG   ACC
 WHERE  USER_ID IS NOT NULL
 AND NOT EXISTS (SELECT 1 FROM ASG_USER AU WHERE AU.USER_ID=ACC.USER_ID
                  AND AU.ENABLED= 'Y');

Line: 25

 SELECT DISTINCT RESOURCE_ID
 FROM   CSL_RESOURCE_INVENTORY_ORG   ACC
 WHERE  RESOURCE_ID IS NOT NULL
 AND NOT EXISTS (SELECT 1 FROM ASG_USER AU WHERE AU.RESOURCE_ID=ACC.RESOURCE_ID
                  AND AU.ENABLED= 'Y');

Line: 43

            DELETE  FROM CSM_USER_INVENTORY_ORG WHERE USER_ID = l_user_list(i);

Line: 50

    l_user_list.DELETE;

Line: 61

            DELETE  FROM CSL_RESOURCE_INVENTORY_ORG WHERE RESOURCE_ID = l_user_list(i);

Line: 67

    l_user_list.DELETE;

Line: 70

END DELETE_NON_ACC_MFS_TABLE;

Line: 72

PROCEDURE DELETE_ACC_FOR_USER
( p_acc_table_name IN VARCHAR2
, p_user_id        IN NUMBER
) IS
 l_stmt    VARCHAR2(1000);

Line: 78

  l_stmt := 'DELETE ' || p_acc_table_name ||' WHERE USER_ID = :P1';

Line: 82

END DELETE_ACC_FOR_USER;

Line: 84

PROCEDURE DELETE_ACC_FOR_RESOURCE
( p_acc_table_name IN VARCHAR2
, p_resource_id        IN NUMBER
) IS
 l_stmt    VARCHAR2(1000);

Line: 90

  l_stmt := 'DELETE ' || p_acc_table_name ||' WHERE RESOURCE_ID = :P1';

Line: 94

END DELETE_ACC_FOR_RESOURCE;

Line: 102

  SELECT ITEM_ID,
         ACCESS_OWNER,
         ACCESS_NAME
  FROM   ASG_PUB_ITEM
  WHERE  PUB_NAME IN ('SERVICEP','JTM_HANDHELD')
  AND    ACCESS_NAME IS NOT NULL
  AND    STATUS  = 'Y'
  AND    ENABLED = 'Y';

Line: 112

  SELECT ITEM_ID,
         ACCESS_OWNER,
         ACCESS_NAME
  FROM   ASG_PUB_ITEM
  WHERE  PUB_NAME IN ('JTM','SERVICEL')
  AND    ACCESS_NAME IS NOT NULL
  AND    STATUS  = 'Y'
  AND    ENABLED = 'Y';

Line: 139

      l_sql_stmt:= 'SELECT DISTINCT USER_ID FROM '||acc_tab_list(I).ACCESS_NAME ||
             ' ACC WHERE USER_ID IS NOT NULL
			       AND NOT EXISTS (SELECT 1 FROM ASG_USER AU WHERE AU.USER_ID=ACC.USER_ID AND AU.ENABLED= ''Y'')';

Line: 152

            DELETE_ACC_FOR_USER(acc_tab_list(I).ACCESS_NAME,l_user_list(J));

Line: 155

          l_user_list.DELETE;

Line: 161

     acc_tab_list.DELETE;

Line: 173

      l_sql_stmt:= 'SELECT DISTINCT RESOURCE_ID FROM '||acc_tab_list(I).ACCESS_NAME ||
             ' ACC WHERE RESOURCE_ID IS NOT NULL
			       AND NOT EXISTS (SELECT 1 FROM ASG_USER AU WHERE AU.RESOURCE_ID=ACC.RESOURCE_ID AND AU.ENABLED= ''Y'')';

Line: 187

            DELETE_ACC_FOR_RESOURCE(acc_tab_list(I).ACCESS_NAME,l_user_list(J));

Line: 190

          l_user_list.DELETE;

Line: 196

     acc_tab_list.DELETE;

Line: 199

  DELETE_NON_ACC_MFS_TABLE;