1: PACKAGE BODY GMP_DESPATCH_LOAD_RPT_PKG as
2: /* $Header: GMPRDESB.pls 120.6 2008/01/17 06:04:11 vpedarla ship $ */
3:
4: G_ret_code BOOLEAN;
5: G_forg VARCHAR2(240);
59: f_org := V_forg;
60: t_org := V_torg;
61:
62: --copying the parameter values into the global variables
63: G_forg := gmp_despatch_load_rpt_pkg.get_orgn_code(V_forg);
64: G_torg := gmp_despatch_load_rpt_pkg.get_orgn_code(V_torg);
65: G_fres := V_fres;
66: G_tores := V_tores;
67: G_fres_instance := V_fres_instance;
60: t_org := V_torg;
61:
62: --copying the parameter values into the global variables
63: G_forg := gmp_despatch_load_rpt_pkg.get_orgn_code(V_forg);
64: G_torg := gmp_despatch_load_rpt_pkg.get_orgn_code(V_torg);
65: G_fres := V_fres;
66: G_tores := V_tores;
67: G_fres_instance := V_fres_instance;
68: G_tores_instance := V_tores_instance;
120:
121: log_message('Inside the procedure print_res_load');
122:
123: --copying the parameter values into the global variables
124: G_forg := gmp_despatch_load_rpt_pkg.get_orgn_code(V_forg);
125: G_torg := gmp_despatch_load_rpt_pkg.get_orgn_code(V_torg);
126: G_inst := gmp_despatch_load_rpt_pkg.get_inst_code(V_inst_id);
127: G_plan := gmp_despatch_load_rpt_pkg.get_plan_code(V_plan_id);
128: IF V_fres IS NOT NULL THEN
121: log_message('Inside the procedure print_res_load');
122:
123: --copying the parameter values into the global variables
124: G_forg := gmp_despatch_load_rpt_pkg.get_orgn_code(V_forg);
125: G_torg := gmp_despatch_load_rpt_pkg.get_orgn_code(V_torg);
126: G_inst := gmp_despatch_load_rpt_pkg.get_inst_code(V_inst_id);
127: G_plan := gmp_despatch_load_rpt_pkg.get_plan_code(V_plan_id);
128: IF V_fres IS NOT NULL THEN
129: G_fres := gmp_despatch_load_rpt_pkg.get_resource_desc(V_fres);
122:
123: --copying the parameter values into the global variables
124: G_forg := gmp_despatch_load_rpt_pkg.get_orgn_code(V_forg);
125: G_torg := gmp_despatch_load_rpt_pkg.get_orgn_code(V_torg);
126: G_inst := gmp_despatch_load_rpt_pkg.get_inst_code(V_inst_id);
127: G_plan := gmp_despatch_load_rpt_pkg.get_plan_code(V_plan_id);
128: IF V_fres IS NOT NULL THEN
129: G_fres := gmp_despatch_load_rpt_pkg.get_resource_desc(V_fres);
130: f_res := to_number(V_fres);
123: --copying the parameter values into the global variables
124: G_forg := gmp_despatch_load_rpt_pkg.get_orgn_code(V_forg);
125: G_torg := gmp_despatch_load_rpt_pkg.get_orgn_code(V_torg);
126: G_inst := gmp_despatch_load_rpt_pkg.get_inst_code(V_inst_id);
127: G_plan := gmp_despatch_load_rpt_pkg.get_plan_code(V_plan_id);
128: IF V_fres IS NOT NULL THEN
129: G_fres := gmp_despatch_load_rpt_pkg.get_resource_desc(V_fres);
130: f_res := to_number(V_fres);
131: ELSE
125: G_torg := gmp_despatch_load_rpt_pkg.get_orgn_code(V_torg);
126: G_inst := gmp_despatch_load_rpt_pkg.get_inst_code(V_inst_id);
127: G_plan := gmp_despatch_load_rpt_pkg.get_plan_code(V_plan_id);
128: IF V_fres IS NOT NULL THEN
129: G_fres := gmp_despatch_load_rpt_pkg.get_resource_desc(V_fres);
130: f_res := to_number(V_fres);
131: ELSE
132: G_fres := NULL;
133: f_res := NULL;
133: f_res := NULL;
134: END IF;
135:
136: IF V_tores IS NOT NULL THEN
137: G_tores := gmp_despatch_load_rpt_pkg.get_resource_desc(V_tores);
138: t_res := to_number(V_tores);
139: ELSE
140: G_tores := NULL;
141: t_res := NULL;
193: ''''||G_start_date||''''||' fdate, ' ||
194: ''''||G_to_date||''''||' tdate, ' ||
195: ' CURSOR( ' ||
196: ' SELECT ' ||
197: ' gmp_despatch_load_rpt_pkg.get_orgn_code(mp.organization_id) organzation_code, ' ||
198: ' crd.resources resource_desc, ' ||
199: ' crd.usage_uom uom, '||
200: ' gi.instance_number instance_number, ' ||
201: ' CURSOR( ' ||
317: ''''||G_start_date||''''||' fdate, ' ||
318: ''''||G_to_date||''''||' tdate, ' ||
319: ' CURSOR( ' ||
320: ' SELECT ' ||
321: ' gmp_despatch_load_rpt_pkg.get_orgn_code(dr.organization_id) organization_code, '||
322: ' substr(dr.resource_description,1,15) resource_desc,'||
323: ' dr.unit_of_measure UOM, '||
324: ' mri.serial_number Instance_number,'||
325: ' CURSOR( ' ||
726: WHEN OTHERS THEN
727: log_message ('Exception in procedure rd_xml_transfer '||SQLERRM);
728: END rd_xml_transfer;
729:
730: END GMP_DESPATCH_LOAD_RPT_PKG;