1: package body CZ_PUB_MGR as
2: /* $Header: czpmmgrb.pls 120.5.12020000.2 2012/08/17 15:26:03 smanna ship $ */
3:
4: /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
5: <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
142: vModelKeyStr := NULL;
143: END IF;
144: COMMIT;
145: EXCEPTION WHEN OTHERS THEN
146: errbuf := cz_utils.get_text('CZ_PUB_MGR_ERR','ERR',SQLERRM);
147: END;
148: END IF;
149: END LOOP;
150: --SKM: for the Remaining fetch < 3900 length insert after exit from loop.
151: CZ_BASE_MGR.WRITE_TO_DB_LOGS('CZ_PURGE_LOG',vModelKeyStr, 'Tracking Deleted Projects',0,1);
152: close cDeletedPublication;
153: EXCEPTION
154: WHEN OTHERS THEN
155: errbuf := cz_utils.get_text('CZ_PUB_MGR_ERR','ERR',SQLERRM);
156: END;
157:
158: exception
159: when no_data_found then
156: END;
157:
158: exception
159: when no_data_found then
160: errbuf := cz_utils.get_text('CZ_PUB_MGR_ERR','ERR',SQLERRM);
161: end;
162:
163: /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
164: <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/