1: PACKAGE BODY JTF_IH_TOOLS AS
2: /* $Header: JTFIHPTB.pls 120.2 2006/01/10 00:12:14 nchouras noship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30) := 'JTF_IH_TOOLS';
4:
5: -- Created by IAleshin, based on Enh#3519691
1: PACKAGE BODY JTF_IH_TOOLS AS
2: /* $Header: JTFIHPTB.pls 120.2 2006/01/10 00:12:14 nchouras noship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30) := 'JTF_IH_TOOLS';
4:
5: -- Created by IAleshin, based on Enh#3519691
6: --
7: PROCEDURE MIGRATE_IH_WRAPUPS(p_Wrap_Up_Level VARCHAR2 ) AS
651: UPDATE JTF_IH_OUTCOMES_B set RESULT_REQUIRED = 'N' WHERE RESULT_REQUIRED is NULL;
652: UPDATE JTF_IH_RESULTS_B set RESULT_REQUIRED = 'N' WHERE RESULT_REQUIRED is NULL;
653: COMMIT;
654:
655: JTF_IH_TOOLS.MIGRATE_IH_WRAPUPS('INTERACTION'); -- Add unique combinations based on jtf_ih_interactions table
656: JTF_IH_TOOLS.MIGRATE_IH_WRAPUPS('ACTIVITY'); -- Add unique combinations based on jtf_ih_activities table
657:
658: commit work;
659: exception
652: UPDATE JTF_IH_RESULTS_B set RESULT_REQUIRED = 'N' WHERE RESULT_REQUIRED is NULL;
653: COMMIT;
654:
655: JTF_IH_TOOLS.MIGRATE_IH_WRAPUPS('INTERACTION'); -- Add unique combinations based on jtf_ih_interactions table
656: JTF_IH_TOOLS.MIGRATE_IH_WRAPUPS('ACTIVITY'); -- Add unique combinations based on jtf_ih_activities table
657:
658: commit work;
659: exception
660: when eNoOutcomes then
664: FND_MESSAGE.SET_TOKEN('ERRORMSG',SQLERRM);
665: FND_MSG_PUB.Add;
666: RETURN;
667: end MIGRATE_WRAPUPS;
668: END JTF_IH_TOOLS;