306: WHEN OTHERS THEN
307: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Interaction_ID = '||nInteraction_Id||' has an error:');
308: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: '||SQLERRM);
309: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: -----------------------------------------');
310: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_INTERACTION_ERROR');
311: FND_MESSAGE.SET_TOKEN('INTERACTION', to_char(nInteraction_Id));
312: FND_MESSAGE.SET_TOKEN('ERRORMSG', SQLERRM);
313: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
314: ROLLBACK TO SAVEPOINT Activities;
307: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Interaction_ID = '||nInteraction_Id||' has an error:');
308: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: '||SQLERRM);
309: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: -----------------------------------------');
310: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_INTERACTION_ERROR');
311: FND_MESSAGE.SET_TOKEN('INTERACTION', to_char(nInteraction_Id));
312: FND_MESSAGE.SET_TOKEN('ERRORMSG', SQLERRM);
313: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
314: ROLLBACK TO SAVEPOINT Activities;
315: RAISE ErrInteraction;
308: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: '||SQLERRM);
309: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: -----------------------------------------');
310: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_INTERACTION_ERROR');
311: FND_MESSAGE.SET_TOKEN('INTERACTION', to_char(nInteraction_Id));
312: FND_MESSAGE.SET_TOKEN('ERRORMSG', SQLERRM);
313: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
314: ROLLBACK TO SAVEPOINT Activities;
315: RAISE ErrInteraction;
316: END;
309: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: -----------------------------------------');
310: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_INTERACTION_ERROR');
311: FND_MESSAGE.SET_TOKEN('INTERACTION', to_char(nInteraction_Id));
312: FND_MESSAGE.SET_TOKEN('ERRORMSG', SQLERRM);
313: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
314: ROLLBACK TO SAVEPOINT Activities;
315: RAISE ErrInteraction;
316: END;
317: ELSE
343: NULL;
344: END IF;
345:
346: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Done :');
347: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_DONE');
348: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
349:
350: IF nCountInteraction = 0 THEN
351: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Interactions not found');
344: END IF;
345:
346: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Done :');
347: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_DONE');
348: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
349:
350: IF nCountInteraction = 0 THEN
351: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Interactions not found');
352: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_NO_INTERACTIONS');
348: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
349:
350: IF nCountInteraction = 0 THEN
351: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Interactions not found');
352: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_NO_INTERACTIONS');
353: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
354: ELSE
355: IF l_SafeMode = 'TRUE' THEN
356: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: You are going to delete :');
349:
350: IF nCountInteraction = 0 THEN
351: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Interactions not found');
352: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_NO_INTERACTIONS');
353: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
354: ELSE
355: IF l_SafeMode = 'TRUE' THEN
356: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: You are going to delete :');
357: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Interactions....'||to_char(nCountInteraction));
357: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Interactions....'||to_char(nCountInteraction));
358: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Activities......'||to_char(nCountActivities));
359: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Media Items.....'||to_char(nCountMediaItems));
360: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: -----------------------------------------');
361: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_SAFEMODE_REPORT');
362: FND_MESSAGE.SET_TOKEN('INTERACTIONS', to_char(nCountInteraction));
363: FND_MESSAGE.SET_TOKEN('ACTIVITIES', to_char(nCountActivities));
364: FND_MESSAGE.SET_TOKEN('MEDIAITEMS', to_char(nCountMediaItems));
365: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
358: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Activities......'||to_char(nCountActivities));
359: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Media Items.....'||to_char(nCountMediaItems));
360: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: -----------------------------------------');
361: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_SAFEMODE_REPORT');
362: FND_MESSAGE.SET_TOKEN('INTERACTIONS', to_char(nCountInteraction));
363: FND_MESSAGE.SET_TOKEN('ACTIVITIES', to_char(nCountActivities));
364: FND_MESSAGE.SET_TOKEN('MEDIAITEMS', to_char(nCountMediaItems));
365: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
366: ELSE
359: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Media Items.....'||to_char(nCountMediaItems));
360: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: -----------------------------------------');
361: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_SAFEMODE_REPORT');
362: FND_MESSAGE.SET_TOKEN('INTERACTIONS', to_char(nCountInteraction));
363: FND_MESSAGE.SET_TOKEN('ACTIVITIES', to_char(nCountActivities));
364: FND_MESSAGE.SET_TOKEN('MEDIAITEMS', to_char(nCountMediaItems));
365: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
366: ELSE
367: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Deleted :');
360: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: -----------------------------------------');
361: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_SAFEMODE_REPORT');
362: FND_MESSAGE.SET_TOKEN('INTERACTIONS', to_char(nCountInteraction));
363: FND_MESSAGE.SET_TOKEN('ACTIVITIES', to_char(nCountActivities));
364: FND_MESSAGE.SET_TOKEN('MEDIAITEMS', to_char(nCountMediaItems));
365: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
366: ELSE
367: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Deleted :');
368: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Interactions....'||to_char(nCountInteraction));
361: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_SAFEMODE_REPORT');
362: FND_MESSAGE.SET_TOKEN('INTERACTIONS', to_char(nCountInteraction));
363: FND_MESSAGE.SET_TOKEN('ACTIVITIES', to_char(nCountActivities));
364: FND_MESSAGE.SET_TOKEN('MEDIAITEMS', to_char(nCountMediaItems));
365: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
366: ELSE
367: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Deleted :');
368: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Interactions....'||to_char(nCountInteraction));
369: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Activities......'||to_char(nCountActivities));
369: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Activities......'||to_char(nCountActivities));
370: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Media Items.....'||to_char(nCountMediaItems));
371: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Media Item LC...'||to_char(nCountMediaItemLC));
372: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: -----------------------------------------');
373: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_REPORT');
374: FND_MESSAGE.SET_TOKEN('INTERACTIONS', to_char(nCountInteraction));
375: FND_MESSAGE.SET_TOKEN('ACTIVITIES', to_char(nCountActivities));
376: FND_MESSAGE.SET_TOKEN('MEDIAITEMS', to_char(nCountMediaItems));
377: FND_MESSAGE.SET_TOKEN('MEDIAITEMLC', to_char(nCountMediaItemLC));
370: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Media Items.....'||to_char(nCountMediaItems));
371: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Media Item LC...'||to_char(nCountMediaItemLC));
372: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: -----------------------------------------');
373: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_REPORT');
374: FND_MESSAGE.SET_TOKEN('INTERACTIONS', to_char(nCountInteraction));
375: FND_MESSAGE.SET_TOKEN('ACTIVITIES', to_char(nCountActivities));
376: FND_MESSAGE.SET_TOKEN('MEDIAITEMS', to_char(nCountMediaItems));
377: FND_MESSAGE.SET_TOKEN('MEDIAITEMLC', to_char(nCountMediaItemLC));
378: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
371: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: Media Item LC...'||to_char(nCountMediaItemLC));
372: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: -----------------------------------------');
373: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_REPORT');
374: FND_MESSAGE.SET_TOKEN('INTERACTIONS', to_char(nCountInteraction));
375: FND_MESSAGE.SET_TOKEN('ACTIVITIES', to_char(nCountActivities));
376: FND_MESSAGE.SET_TOKEN('MEDIAITEMS', to_char(nCountMediaItems));
377: FND_MESSAGE.SET_TOKEN('MEDIAITEMLC', to_char(nCountMediaItemLC));
378: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
379: END IF;
372: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: -----------------------------------------');
373: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_REPORT');
374: FND_MESSAGE.SET_TOKEN('INTERACTIONS', to_char(nCountInteraction));
375: FND_MESSAGE.SET_TOKEN('ACTIVITIES', to_char(nCountActivities));
376: FND_MESSAGE.SET_TOKEN('MEDIAITEMS', to_char(nCountMediaItems));
377: FND_MESSAGE.SET_TOKEN('MEDIAITEMLC', to_char(nCountMediaItemLC));
378: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
379: END IF;
380: END IF;
373: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_REPORT');
374: FND_MESSAGE.SET_TOKEN('INTERACTIONS', to_char(nCountInteraction));
375: FND_MESSAGE.SET_TOKEN('ACTIVITIES', to_char(nCountActivities));
376: FND_MESSAGE.SET_TOKEN('MEDIAITEMS', to_char(nCountMediaItems));
377: FND_MESSAGE.SET_TOKEN('MEDIAITEMLC', to_char(nCountMediaItemLC));
378: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
379: END IF;
380: END IF;
381: DBMS_SQL.CLOSE_CURSOR(n_CursorId);
374: FND_MESSAGE.SET_TOKEN('INTERACTIONS', to_char(nCountInteraction));
375: FND_MESSAGE.SET_TOKEN('ACTIVITIES', to_char(nCountActivities));
376: FND_MESSAGE.SET_TOKEN('MEDIAITEMS', to_char(nCountMediaItems));
377: FND_MESSAGE.SET_TOKEN('MEDIAITEMLC', to_char(nCountMediaItemLC));
378: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
379: END IF;
380: END IF;
381: DBMS_SQL.CLOSE_CURSOR(n_CursorId);
382: EXCEPTION
380: END IF;
381: DBMS_SQL.CLOSE_CURSOR(n_CursorId);
382: EXCEPTION
383: WHEN ErrInvPartyType THEN
384: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_INV_PARTY_TYPE');
385: FND_MESSAGE.SET_TOKEN('PARTYTYPE', p_Party_Type);
386: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
387: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
388: WHEN ErrNoPartyType THEN
381: DBMS_SQL.CLOSE_CURSOR(n_CursorId);
382: EXCEPTION
383: WHEN ErrInvPartyType THEN
384: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_INV_PARTY_TYPE');
385: FND_MESSAGE.SET_TOKEN('PARTYTYPE', p_Party_Type);
386: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
387: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
388: WHEN ErrNoPartyType THEN
389: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_NO_PARTY_TYPE');
382: EXCEPTION
383: WHEN ErrInvPartyType THEN
384: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_INV_PARTY_TYPE');
385: FND_MESSAGE.SET_TOKEN('PARTYTYPE', p_Party_Type);
386: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
387: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
388: WHEN ErrNoPartyType THEN
389: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_NO_PARTY_TYPE');
390: FND_MESSAGE.SET_TOKEN('PARTYTYPE', p_Party_Type);
383: WHEN ErrInvPartyType THEN
384: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_INV_PARTY_TYPE');
385: FND_MESSAGE.SET_TOKEN('PARTYTYPE', p_Party_Type);
386: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
387: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
388: WHEN ErrNoPartyType THEN
389: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_NO_PARTY_TYPE');
390: FND_MESSAGE.SET_TOKEN('PARTYTYPE', p_Party_Type);
391: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
385: FND_MESSAGE.SET_TOKEN('PARTYTYPE', p_Party_Type);
386: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
387: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
388: WHEN ErrNoPartyType THEN
389: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_NO_PARTY_TYPE');
390: FND_MESSAGE.SET_TOKEN('PARTYTYPE', p_Party_Type);
391: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
392: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
393: WHEN ErrStartEndDate THEN
386: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
387: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
388: WHEN ErrNoPartyType THEN
389: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_NO_PARTY_TYPE');
390: FND_MESSAGE.SET_TOKEN('PARTYTYPE', p_Party_Type);
391: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
392: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
393: WHEN ErrStartEndDate THEN
394: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_INVALID_DATE');
387: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
388: WHEN ErrNoPartyType THEN
389: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_NO_PARTY_TYPE');
390: FND_MESSAGE.SET_TOKEN('PARTYTYPE', p_Party_Type);
391: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
392: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
393: WHEN ErrStartEndDate THEN
394: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_INVALID_DATE');
395: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
388: WHEN ErrNoPartyType THEN
389: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_NO_PARTY_TYPE');
390: FND_MESSAGE.SET_TOKEN('PARTYTYPE', p_Party_Type);
391: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
392: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
393: WHEN ErrStartEndDate THEN
394: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_INVALID_DATE');
395: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
396: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
390: FND_MESSAGE.SET_TOKEN('PARTYTYPE', p_Party_Type);
391: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
392: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
393: WHEN ErrStartEndDate THEN
394: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_INVALID_DATE');
395: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
396: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
397: -- Added for Bug# 4063673
398: WHEN ErrEndDateNull THEN
391: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
392: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
393: WHEN ErrStartEndDate THEN
394: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_INVALID_DATE');
395: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
396: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
397: -- Added for Bug# 4063673
398: WHEN ErrEndDateNull THEN
399: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_DATE_TO_NOTNULL');
392: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
393: WHEN ErrStartEndDate THEN
394: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_INVALID_DATE');
395: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
396: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
397: -- Added for Bug# 4063673
398: WHEN ErrEndDateNull THEN
399: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_DATE_TO_NOTNULL');
400: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
395: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
396: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
397: -- Added for Bug# 4063673
398: WHEN ErrEndDateNull THEN
399: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_DATE_TO_NOTNULL');
400: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
401: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
402: WHEN NoCriteriaSpecified THEN
403: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_NO_CRITERIA');
396: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
397: -- Added for Bug# 4063673
398: WHEN ErrEndDateNull THEN
399: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_DATE_TO_NOTNULL');
400: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
401: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
402: WHEN NoCriteriaSpecified THEN
403: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_NO_CRITERIA');
404: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
397: -- Added for Bug# 4063673
398: WHEN ErrEndDateNull THEN
399: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_DATE_TO_NOTNULL');
400: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
401: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
402: WHEN NoCriteriaSpecified THEN
403: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_NO_CRITERIA');
404: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
405: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
399: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_DATE_TO_NOTNULL');
400: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
401: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
402: WHEN NoCriteriaSpecified THEN
403: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_NO_CRITERIA');
404: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
405: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
406: WHEN ErrPatyIdsDescription THEN
407: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_WRONG_PARTY_IDS');
400: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
401: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
402: WHEN NoCriteriaSpecified THEN
403: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_NO_CRITERIA');
404: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
405: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
406: WHEN ErrPatyIdsDescription THEN
407: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_WRONG_PARTY_IDS');
408: FND_MESSAGE.SET_TOKEN('PARTYIDS', p_Party_IDs);
401: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
402: WHEN NoCriteriaSpecified THEN
403: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_NO_CRITERIA');
404: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
405: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
406: WHEN ErrPatyIdsDescription THEN
407: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_WRONG_PARTY_IDS');
408: FND_MESSAGE.SET_TOKEN('PARTYIDS', p_Party_IDs);
409: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
403: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_NO_CRITERIA');
404: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
405: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
406: WHEN ErrPatyIdsDescription THEN
407: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_WRONG_PARTY_IDS');
408: FND_MESSAGE.SET_TOKEN('PARTYIDS', p_Party_IDs);
409: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
410: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
411: WHEN OTHERS THEN
404: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
405: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
406: WHEN ErrPatyIdsDescription THEN
407: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_WRONG_PARTY_IDS');
408: FND_MESSAGE.SET_TOKEN('PARTYIDS', p_Party_IDs);
409: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
410: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
411: WHEN OTHERS THEN
412: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
405: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
406: WHEN ErrPatyIdsDescription THEN
407: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_WRONG_PARTY_IDS');
408: FND_MESSAGE.SET_TOKEN('PARTYIDS', p_Party_IDs);
409: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
410: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
411: WHEN OTHERS THEN
412: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
413: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
406: WHEN ErrPatyIdsDescription THEN
407: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_WRONG_PARTY_IDS');
408: FND_MESSAGE.SET_TOKEN('PARTYIDS', p_Party_IDs);
409: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
410: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
411: WHEN OTHERS THEN
412: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
413: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
414: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: '||SQLERRM);
409: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
410: --DBMS_OUTPUT.PUT_LINE(FND_MESSAGE.GET);
411: WHEN OTHERS THEN
412: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
413: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
414: --DBMS_OUTPUT.PUT_LINE('JTF_IH_PURGE: '||SQLERRM);
415: END PURGE;
416:
417: PROCEDURE P_DELETE_INTERACTIONS (