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