1: PACKAGE BODY GHR_MTO_PKG AS
2: /* $Header: ghmtoexe.pkb 120.5.12020000.3 2012/07/05 14:34:37 amnaraya ship $ */
3:
4: --
5: -- Global Declaration
5: -- Global Declaration
6: --
7:
8: g_no number := 0;
9: g_package varchar2(32) := 'GHR_MTO_PKG';
10: g_proc varchar2(32) := null;
11:
12: l_log_text varchar2(2000) := null;
13: l_mass_errbuf varchar2(2000) := null;
585: raise mass_error;
586: END;
587:
588: IF upper(p_action) = 'CREATE' then
589: ghr_mto_int.set_log_program_name('GHR_MTO_PKG');
590: ELSE
591: ghr_mto_int.set_log_program_name('MTO_'||p_mass_transfer_name);
592: END IF;
593:
608: l_loc_errbuf varchar2(2000);
609: l_loc_retcode number;
610: BEGIN
611: --- Call dump out to make sure its interfaced
612: pr('Before ghr_mto_pkg.execute mto for dump out');
613:
614: ghr_mto_pkg.execute_mto (l_loc_errbuf,
615: l_loc_retcode,
616: p_mass_transfer_id,
610: BEGIN
611: --- Call dump out to make sure its interfaced
612: pr('Before ghr_mto_pkg.execute mto for dump out');
613:
614: ghr_mto_pkg.execute_mto (l_loc_errbuf,
615: l_loc_retcode,
616: p_mass_transfer_id,
617: 'DUMP OUT');
618: pr('After execute mto - for dump out Error is ',l_loc_errbuf);
3056: ghr_api.g_api_dml := FALSE;
3057: end if;
3058:
3059: End;
3060: END GHR_MTO_PKG;