[Home] [Help]
1807: IF(g_purge_log_enabled IS null)
1808: then
1809: begin
1810: SELECT nvl(value,'N') INTO g_purge_log_enabled
1811: FROM asg_config WHERE name='ENABLE_PURGE_LOGGING';
1812: exception
1813: when no_data_found
1814: then
1815: g_purge_log_enabled := 'N';
1976: l_dormant_rec c_dormant_users%ROWTYPE;
1977:
1978: CURSOR c_last_processed_user
1979: IS
1980: SELECT value FROM asg_config
1981: WHERE name='ASG_SDQ_PURGE_LAST_USER';
1982:
1983: CURSOR c_last_processed_dupdel_user
1984: IS
1981: WHERE name='ASG_SDQ_PURGE_LAST_USER';
1982:
1983: CURSOR c_last_processed_dupdel_user
1984: IS
1985: SELECT value FROM asg_config
1986: WHERE NAME='ASG_SDQ_PURGE_LAST_DUPDEL';
1987:
1988: CURSOR c_all_users(l_last_processed VARCHAR2,l_max_num NUMBER)
1989: IS
2127: delete_duplicate_records(l_user_name);
2128: END loop;
2129: CLOSE c_all_users;
2130:
2131: UPDATE asg_config SET value=nvl(l_last_user,value)
2132: WHERE NAME='ASG_SDQ_PURGE_LAST_DUPDEL';
2133: COMMIT;
2134:
2135: SELECT SYSDATE INTO l_date FROM dual;
2146: l_last_processed_user := to_char(0);
2147: ELSE
2148: --check whether there are any more users to be processed
2149: --after l_last_processed_user ...
2150: --if no reset value of asg_config parameter to null
2151: --set l_last_processed_user to to_char(0)
2152: OPEN c_get_last_user(l_dormancy_period,l_last_processed_user,1);
2153: FETCH c_get_last_user INTO l_tmp_user;
2154: IF(c_get_last_user%NOTFOUND) --we have hit last user.so reset to to_char(0)
2248:
2249: log_concprogram('Last user to be processed in this run : '||l_last_user,
2250: 'asg_download',FND_LOG.LEVEL_STATEMENT);
2251:
2252: UPDATE asg_config
2253: SET value = nvl(l_last_user,value)
2254: WHERE NAME ='ASG_SDQ_PURGE_LAST_USER';
2255: commit;
2256: